基于SQL调用Com组件来发送邮件

这个需求是公司有个文控中心，如果有用增删改了文件信息希望可以发邮件通知到有权限的人。当然方式很多。

这里是用数据库作业来完成

JOB+Com，这里用的com组件是Jmail

当然你需要把com组件放到system32下面

下面是实现方式

CREATE PROC dbo.dcc_Send_Email

AS

BEGIN

	SET NOCOUNT ON 

	DECLARE @lasttime DATETIME --获取最后一次发送的时间

	IF Not EXISTS(SELECT lastsendtime FROM dcc_lastsend)

		begin

			set @lasttime=GETDATE()

		END

	ELSE

		BEGIN

			SELECT @lasttime=lastsendtime FROM dcc_lastsend

		END

	--SELECT @lasttime

	--SELECT * FROM dcc_changereaon WHERE createdate>=@lasttime

	DECLARE @sendto VARCHAR(500)--发送邮件给谁

	DECLARE @aliasname VARCHAR(500)--档案名称

	DECLARE @filename VARCHAR(500)--名称

	DECLARE @userid INT --用户ID

	DECLARE @dccid INT --文件夹ID

	DECLARE @dccfileid INT --文件ID

	DECLARE @action VARCHAR(500) --操作类型 1 新增 2 修改 3删除

	DECLARE @changeid int

	DECLARE @reasons VARCHAR(8000) --原因

	DECLARE @html VARCHAR(8000) ---html格式内容

	DECLARE @table VARCHAR(8000) ---html格式内容

	DECLARE @senduiserid VARCHAR(8000) --通知的用户

	DECLARE @sendfileid VARCHAR(8000) --更改的文件用户

	DECLARE @temp TABLE (id INT ,ACTION varchar(50), aliasname varchar(50),FILENAME varchar(50))

	DECLARE @rcount INT 

	SET @html=''--

	SET @table=''

	DECLARE @index INT--奇数还是偶数行

	SET @index=0

    DECLARE CusCursor CURSOR FOR --外层游标查询用户

    SELECT id,DccMail FROM view_dcc_users WHERE DccMail<>'' AND IsLock=0

    OPEN CusCursor

    FETCH NEXT FROM CusCursor INTO @userid,@sendto

    WHILE (@@FETCH_STATUS = 0)

         BEGIN  

			SET @table=''

			SET @index=0

			SET @html = ''

			SET @rcount=0

			DELETE @temp

			INSERT INTO @temp (id,action,aliasname,filename)

				SELECT a.id,[action],a.aliasname,a.filename FROM dcc_changereaon a

					WHERE a.createdate>=@lasttime

					AND dccid IN (SELECT folderid FROM dbo.dcc_rights WHERE userid=@userid AND enabled=1)

			SET @rcount = @@ROWCOUNT

			IF @rcount>0

				BEGIN

					DECLARE cur CURSOR FOR SELECT * FROM @temp --内层游标查询用户有那些权限

					OPEN cur

					SET @html='<html><head><style type="text/css">table{font-family:"Trebuchet MS", Arial, Helvetica, sans-serif;width:100%;border-collapse:collapse;}td,th{font-size:1em;border:1px solid #98bf21;padding:3px 7px 2px 7px;}th {font-size:1.1em;text-align:left;padding-top:5px;padding-bottom:4px;background-color:#A7C942;color:#ffffff;}tr.alt td {color:#000000;background-color:#EAF2D3;}</style></head><body>各位:<br>兹通知下述文件有变动，贵部可随时登录文控网页（www.gardenchinagroup.com:82)  查阅:<br><br><br><table><tr><th>档案名称</th><th>名称</th><th>备注(标注新增/更新/取消)</th></tr>'

					FETCH NEXT FROM cur INTO @changeid,@action,@aliasname,@filename

						WHILE (@@FETCH_STATUS = 0)

							BEGIN

								INSERT INTO dbo.dcc_logs

								        ( changeid, userid, createtime )

								VALUES  ( @changeid, -- changeid - int

								          @userid, -- userid - int

								          GETDATE()  -- createtime - smalldatetime

								          )

								IF @index %2<>0

									SET @table=@table+'<tr class=''alt''><td>'+@filename+'</td><td>'+@aliasname+'</td><td>'+@action+'</td></tr>'

								ELSE

									SET @table=@table+'<tr><td>'+@filename+'</td><td>'+@aliasname+'</td><td>'+@action+'</td></tr>'

								SET @index=@index+1

								fetch next from cur into @changeid,@action,@aliasname,@filename

							END

					CLOSE cur

					DEALLOCATE cur 

					SET @html=@html+@table+'</table></body></html>'

					--PRINT @sendto

					EXEC myCommData.dbo.my_SendMail '文件新增/更新/取消通知',@html,'DCC',@sendto,'','fengmin.dg@gardenchinagroup.com,foxbuilder.dg@gardenchinagroup.com','joey.dg@gardenchinagroup.com',1					

				END

				--SELECT @html

     		FETCH NEXT FROM CusCursor INTO @userid,@sendto

		END

	CLOSE CusCursor

	DEALLOCATE CusCursor 

	IF Not EXISTS(SELECT lastsendtime FROM dcc_lastsend) --更新最后一次发送时间

		begin

			INSERT INTO dbo.dcc_lastsend( lastsendtime )VALUES(GETDATE())

		END

	ELSE

		BEGIN

			UPDATE dcc_lastsend SET lastsendtime=GETDATE()

		END 

END

GO

CREATE PROC dbo.my_SendMail

@Subject varchar(100),	 -- 主题

@Body varchar(8000),	 -- 内容

@Sender varchar(100),	 -- 发件人姓名

@ToList varchar(2000),	 -- 发送邮件地址, 可以多个地址，用","隔开

@ccList varchar(2000)='',	-- 抄送地址

@BccList varchar(2000)='',	-- 秘抄送地址

@ReturnEmail VARCHAR(500)='', -- 回执到指定邮箱

@ReturnReceipt bit = 0	 --是否回执

AS

/*

EXEC dbo.my_SendMail

@Subject = 'today is a luck day', -- varchar(100)

@Body = 'today is a luck day 20130', -- varchar(8000)

@Sender = 'system', -- varchar(100)

@ToList = 'fengmin.dg@gardenchinagroup.com', -- varchar(2000)

@ccList = 'fengmin.dg@gardenchinagroup.com', -- varchar(2000)

@BccList='foxbuilder.dg@gardenchinagroup.com',

@ReturnEmail='foxbuilder.dg@gardenchinagroup.com',

@ReturnReceipt=1

*/

Declare @object int

Declare @hr int

EXEC @hr = sp_OACreate 'jmail.Message', @object OUT

EXEC @hr = sp_OASetProperty @object, 'Silent' , 1

EXEC @hr = sp_OASetProperty @object, 'Logging' , 1

EXEC @hr = sp_OASetProperty @object, 'Charset' , 'GB2312'

EXEC @hr = sp_OASetProperty @object, 'From' , @Sender

EXEC @hr = sp_OASetProperty @object, 'ISOEncodeHeaders' ,0

EXEC @hr = sp_OASetProperty @object, 'From' , 'mis.dg@gardenchinagroup.com'

EXEC @hr = sp_OASetProperty @object, 'MailServerUserName' , 'mis.dg'

EXEC @hr = sp_OASetProperty @object, 'MailServerPassWord' , 'Edp2469851'

EXEC @hr = sp_OASetProperty @object, 'Subject' , @Subject

EXEC @hr = sp_OASetProperty @object, 'HTMLBody' , @Body

IF @ReturnReceipt=1

BEGIN

EXEC @hr = sp_OASetProperty @object, 'ReturnReceipt' ,1 --是否需要回执

DECLARE @backemail VARCHAR(2000)

SET @backemail='AddNativeHeader (Disposition-Notification-To,'+@ReturnEmail+')'

EXEC @hr = sp_OAMethod @object, @backemail,NULL

END

declare @i int

set @i=1

declare @mail varchar(100), @addmail varchar(100),@bccmail varchar(100)

-- 添加发件人

set @mail = ''

set @mail =dbo.my_SplitStr(@ToList, ',', @i)

while not @mail is null

begin

if @mail<>''

begin

set @addmail= 'AddRecipient ("' + @mail + '")'

EXEC @hr = sp_OAMethod @object, @addmail, null

end

set @i=@i+1

set @mail =dbo.my_SplitStr(@ToList, ',', @i)

end

-- 添加抄送

set @mail = ''

set @i =1

set @mail =dbo.my_SplitStr(@ccList, ',', @i)

while not @mail is null

begin

if @mail<>''

begin

set @addmail= 'AddRecipientCC ("' + @mail + '")'

EXEC @hr = sp_OAMethod @object, @addmail, null

end

set @i=@i+1

set @mail =dbo.my_SplitStr(@ccList, ',', @i)

end

--秘密抄送

set @mail = ''

set @i =1

set @mail =dbo.my_SplitStr(@BccList, ',', @i)

while not @mail is null

begin

if @mail<>''

begin

set @bccmail= 'AddRecipientBCC ("' + @mail + '")'

EXEC @hr = sp_OAMethod @object, @bccmail, null

end

set @i=@i+1

set @mail =dbo.my_SplitStr(@BccList, ',', @i)

end

-- 开始发送

EXEC @hr = sp_OAMethod @object, 'Send("192.168.0.3")', null

--判断出错

IF @hr <> 0

BEGIN

EXEC sp_OAGetErrorInfo @object

END

PRINT 'success'

EXEC @hr = sp_OADestroy @object

GO

基于SQL调用Com组件来发送邮件的更多相关文章

基于sparksql调用shell脚本运行SQL
[Author]: kwu 基于sparksql调用shell脚本运行SQL,sparksql提供了类似hive中的 -e , -f ,-i的选项 1.定时调用脚本 #!/bin/sh # uplo ...
基于SQL Server 2008 Service Broker构建企业级消息系统
注:这篇文章是为InfoQ 中文站而写,文章的地址是:http://www.infoq.com/cn/articles/enterprisemessage-sqlserver-servicebroke ...
Atitit 基于sql编程语言的oo面向对象大规模应用解决方案attilax总结
Atitit 基于sql编程语言的oo面向对象大规模应用解决方案attilax总结 1. Sql语言应该得到更大的范围的应用,1 1.1. 在小型系统项目中,很适合存储过程写业务逻辑2 1.2. 大型 ...
VS2010调用Com组件
Com组件开发过程中用的不多,资料也不多,故记录开发Com组件中的部分问题. 在这一篇文章里,讲解了如何使用VS2010创建Com组件.现在基于该文章创建的Com组件接口,创建VC++项目来调用该接口 ...
.NET通过调用Office组件导出Word文档
.NET通过调用Office组件导出Word文档最近做项目需要实现一个客户端下载word表格的功能,该功能是用户点击"下载表格",服务端将该用户的数据查询出来并生成数据到Word ...
iOS开发笔记基于wsdl2objc调用asp.net WebService
1.准备先下载待会要用到的工具 WSDL2ObjC-0.6.zip WSDL2ObjC-0.7-pre1.zip 我用的是WSDL2ObjC-0.6.zip 1.1搭建asp.net WebServ ...
基于Sql Server 2008的分布式数据库的实践（二）
原文基于Sql Server 2008的分布式数据库的实践(二) 从Win7连接Win2003的Sql Server 2008 1.新建链接服务器链接到Win2003的Sql Server 2008 ...
SQL Server如何定位自定义标量函数被那个SQL调用次数最多浅析
前阵子遇到一个很是棘手的问题,监控系统DPA发现某个自定义标量函数被调用的次数非常高,高到一个离谱的程度.然后在Troubleshooting这个问题的时候,确实遇到了一些问题让我很是纠结,下文是解决 ...
EF Core使用SQL调用返回其他类型的查询 ASP.NET Core 2.0 使用NLog实现日志记录 CSS 3D transforms cSharp:use Activator.CreateInstance with an Interface? SqlHelper DBHelper C# Thread.Abort方法真的让线程停止了吗？注意！你的Thread.Abort方法真
EF Core使用SQL调用返回其他类型的查询假设你想要 SQL 本身编写,而不使用 LINQ. 需要运行 SQL 查询中返回实体对象之外的内容. 在 EF Core 中,执行该操作的另一种方法 ...

随机推荐

<关于并发框架>Java原生线程池原理及Guava与之的补充
原创博客,转载请联系博主! 转眼快两个月没有更新自己的博客了. 一来感觉自己要学的东西还是太多,与其花几个小时写下经验分享倒不如多看几点技术书. 二来放眼网上已经有很多成熟的中文文章介绍这些用法,自己 ...
用maven创建web工程
1.打开eclipse,选择File->New->Other菜单,弹出下面的对话框,在Wizards中输入maven,会过滤出和maven相关的菜单,选中Maven Project菜单,然 ...
[CTSC2008]祭祀river
Description 在遥远的东方,有一个神秘的民族,自称Y族.他们世代居住在水面上,奉龙王为神.每逢重大庆典, Y族都会在水面上举办盛大的祭祀活动.我们可以把Y族居住地水系看成一个由岔口和河道组 ...
内核hlist的使用
struct hlist_head { struct hlist_node *first; }; struct hlist_node { struct hlist_node *next, **ppre ...
http 和 soap 关系 - 转载
http soap关系 HTTP http:是一个客户端和服务器端请求和应答的标准(TCP).http协议其目的是为了提供一种发布和接收htttp页面的方法一http协议的客户端与服务器的交互:由H ...
LeetCode第[34]题(Java)：Search for a Range
题目:搜索目标范围难度:Medium 题目内容: Given an array of integers nums sorted in ascending order, find the starti ...
Java NIO框架 Mina、Netty、Grizzly
Mina Mina(Multipurpose Infrastructure for Network Applications) 是 Apache组织一个较新的项目,它为开发高性能和高可用性的网络应用程 ...
web自动化流程总结
一. 了解需求,什么是系统的核心业务二. 编写测试用例:用例名称,前置条件,测试数据,测试步骤,期望结果三. 自动化代码的初步构建:所有的元素定位.元素操作.测试用例都写在一个模块中问题: 1. ...
WSL安装xfce4
参考:https://github.com/Microsoft/WSL/issues/637 安装组件 1. win10 上安装 Xming https://sourceforge.net/proje ...
删除 mac 垃圾桶内清除不掉的文件
命令行内 $ sudo rm -rf ~/.Trash/

基于SQL调用Com组件来发送邮件

基于SQL调用Com组件来发送邮件的更多相关文章

随机推荐

热门专题