SQL存储过程----发送邮件

CREATE PROCEDURE usp_SendMail @To varchar(100) ,@Subject varchar(400)=' ', @Body varchar(8000) =' '
3 SQL存储过程----发送邮件

AS
5

Declare @object int
7 SQL存储过程----发送邮件

Declare @hr int
8 SQL存储过程----发送邮件

EXEC @hr = sp_OACreate 'CDO.Message', @object OUT
10 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'
12 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', 'mail.idg-rbi.com.cn'
13 SQL存储过程----发送邮件

--下面三条语句是smtp验证，如果服务器需要验证，则必须要这三句，你需要修改用户名和密码
15 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','1'
16 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value','x@mail.com'
17 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value','pass'
18 SQL存储过程----发送邮件

EXEC @hr = sp_OAMethod @object, 'Configuration.Fields.Update', null
20 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'To', @To
21 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'Bcc', 'xx@yahoo.com.cn'
22 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'From','<x@mail.com>'
23 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'Subject', @Subject
24 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'BodyFormat', 'MailFormat.Text'
25 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'TextBody', @Body
27 SQL存储过程----发送邮件

SET @Body = REPLACE(@Body,CHAR(13),'<br />')
29 SQL存储过程----发送邮件

EXEC @hr = sp_OASetProperty @object, 'HtmlBody',@Body
30 SQL存储过程----发送邮件

EXEC @hr = sp_OAMethod @object, 'Send', NULL
31 SQL存储过程----发送邮件

--判断出错
33

IF @hr <> 0
34 SQL存储过程----发送邮件

BEGIN
35

EXEC sp_OAGetErrorInfo @object
36 SQL存储过程----发送邮件

RETURN @object
37 SQL存储过程----发送邮件

END
38

PRINT 'success'
39 SQL存储过程----发送邮件

EXEC @hr = sp_OADestroy @object
40 SQL存储过程----发送邮件