SqlServer功课发送邮件附件-MSSQL教程-爱易网页

SqlServer功课发送邮件附件

日期：2014-05-17　浏览次数：20675 次

SqlServer作业发送邮件附件
我写了个过程发送邮件，带附件

单独运行过程，能正常运行，邮件及附件能正常发送

但现在将该过程添加到作业里，邮件能正常发送，但没有附件，不知道为啥

SqlServer版本:2000



if exists(select 1 from sysobjects where name  = 'spSendMail' and type = 'P')

	drop procedure spSendMail

go

create procedure spSendMail

	@from varchar(100),				--send by

	@to varchar(100),				--send to

	@bcc varchar(500),				--bcc(blind carbon copy)/cc(carbon copy)

	@subject varchar(400) = ' ',				--mail subject

	@htmlBody varchar(8000) = ' ',			--mail body content

	@addAttachment varchar(100)			--attachment,such as 'd:/fileName.xls',if there is no attachment,just input ''

as

	declare @object int

	declare @hr int

	declare @source varchar(255)

	declare @description varchar(500)

	declare @output varchar(1000)

	

	declare @smtpServer varchar(50)

	declare @smtpUsername varchar(50)

	declare @smtpPassword varchar(50)

	set @smtpServer = 'mail.qq.com'

	set @smtpUsername = ''

	set @smtpPassword = ''



	--@see http://msdn.microsoft.com/en-us/library/ms526227%28v=exchg.10%29.aspxd

	--http://schemas.microsoft.com/cdo/configuration

	exec @hr = sp_OACreate 'CDO.Message',@object out

	set @htmlBody = '<body><h3><font col=Red>' + @htmlBody + '</font></h3></body>'

	--change line

	--set @htmlBody = replace(@htmlBody,char(10),'<br/>')

	--exec @hr = sp_OASetProperty @object,'HTMLBodyPart.Charset','GBK'



	exec @hr = sp_OASetProperty @object,'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'

	exec @hr = sp_OASetProperty @object,'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value',@smtpServer

	exec @hr = sp_OASetProperty @object,'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value','25'

	exec @hr = sp_OASetProperty @object,'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','1'

	exec @hr = sp_OASetProperty @object,'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value',@smtpUsername

	exec @hr = sp_OASetProperty @object,'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value',@smtpPassword



	exec @hr = sp_OAMethod @object,'Configuration.Fields.Update',null

	exec @hr = sp_OASetProperty @object,'To',@to

	exec @hr = sp_OASetProperty @object,'Bcc',@bcc

	exec @hr = sp_OASetProperty @object,'From',@from

	exec @hr = sp_OASetProperty @object,'Subject',@subject

	exec @hr = sp_OASetProperty @object,'HtmlBody',@htmlBody

	--exec @hr = sp_OASetProperty @object,'TextBody',@htmlBody(String content)

	

	if @addAttachment <> ''

	exec @hr = sp_OAMethod @object,'AddAttachment',null,@addAttachment

	if @hr <> 0

		select @hr

		begin

			exec @hr = sp_OAGetErrorInfo null,@source out,@description out

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

SqlServer功课发送邮件附件

相关资料更多>

推荐阅读更多>