SQL Server发送邮件的存储过程

发表于   |   分类于   |     |   阅读次数 0

对于DB中的资料变更，有时会有寄Mail通知相关人员的需求。下面是实现这一功能的一种方法
1.建立发Mail的存储过程

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
GO
/****** Object:  StoredProcedure [dbo].[sp_SendMail]    Script Date: 05/13/2014 15:17:52 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[sp_SendMail] 
  @From varchar(100)='abc@qq.com', 
  @To varchar(2000), 
  @Subject varchar(2000)='Test', 
  @Body varchar(4000) ='',
  @BCC varchar(4000) ='',
  @SMTPServer varchar(50)='127.0.0.1',
  @SMTPServerport varchar(10)='25'

/******************************************
This stored procedure takes the parameters and sends an e-mail. All the mail configurations are hard-coded in the stored procedure. Comments are added to the stored procedure where necessary. References to the CDOSYS objects are at the following MSDN Web site: http://msdn.microsoft.com/library/default.asp?url=/ library/en-us/cdosys/html/_cdosys_messaging.asp
 *******************************************/
 
AS Declare @iMsg int 
   Declare @hr int 
   Declare @source varchar(255) 
   Declare @description varchar(500) 
   Declare @output varchar(2000)

--***** Create the CDO.Message Object *****
EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT

--*****Configuring the Message Object *****
-- http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_schema_configuration_sendusing.asp
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', @SMTPServer

EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields ("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value',@SMTPServerport
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','1'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields ("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value','0'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields ("http://schemas.microsoft.com/cdo/configuration/smtpaccountname").Value',@From
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields ("http://schemas.microsoft.com/cdo/configuration/sendusername").Value',@From
--EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields ("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value','admin123'

EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null

-- Set the e-mail parameters.
EXEC @hr = sp_OASetProperty @iMsg, 'To', @To
EXEC @hr = sp_OASetProperty @iMsg, 'From', @From
EXEC @hr = sp_OASetProperty @iMsg, 'Subject', @Subject
EXEC @hr = sp_OASetProperty @iMsg, 'Bcc', @Bcc

-- If you are using HTML e-mail, use 'HTMLBody' instead of 'TextBody'.
--EXEC @hr = sp_OASetProperty @iMsg, 'HTMLbody', @Body
EXEC @hr = sp_OASetProperty @iMsg, 'TextBody', @Body
EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL

-- Sample error handling.

IF @hr <>0
  select @hr
  BEGIN
    EXEC @hr = sp_OAGetErrorInfo NULL, @source OUT, @description OUT
    IF @hr = 0
      BEGIN
        SELECT @output = ' Source: ' + @source
        PRINT @output
        SELECT @output = ' Description: ' + @description
        PRINT @output
      END
    ELSE
      BEGIN
        PRINT ' sp_OAGetErrorInfo failed.'
        RETURN
    END
  END

-- Do some error handling after each step if you have to.
-- Clean up the objects created.
EXEC @hr = sp_OADestroy @iMsg

--exec sp_SendMail @To='dli@quadranglesystems.com',@Body='test send email'

2.调用存储过程

对于数据变更，可再Trigger中调用这一存储过程。也可以在SQL Server Agent中建立作业来调用，只需要传入相应参数即可。
exec sp_send_mail ‘发件者Email(采用存储过程中写入的那个Email)’,’收件者列表，各Email用分号隔开’,’主题’,’内容’

注：以上存储过程有个缺陷，即@Body定义为varchar类型，而SQL Server中varchar类型长度最大是8000。也就是说一次最多只能发送8000个字符的内容。

Note

可能需要设置数据库属性 参考文章 2,3

1
2
3
4
1）http://wenku.baidu.com/link?url=vWN_L_LszsP86So3Cldgy3VhhoJAQc50NAMcK21IZ7WNnrQAi0ezbcN5eZTHIUOsZ3L5j-Hhv0cH3hRdTLlMMx-vzbSojkL2lFYPfuaRXIm
2）http://sqlsolace.blogspot.com/2009/09/sql-server-blocked-access-to-procedure.html
3）http://www.mssqltips.com/sqlservertip/2875/how-to-allow-ad-hoc-updates-in-sql-server-system-catalogs/
4）http://support.microsoft.com/kb/555287