正确配置和使用SQL mail

使用SQL Mail收发和自动处理邮件中的扩展存储过程简介

SQL SERVER提供了通过EXCHANGE或OUTLOOK收发邮件的扩展存储过程，下面将这几个过程简单的介绍一下。

一、启动SQL Mail

xp_startmail @user,@password

@user和@password都是可选的

也可打开Enterprise Manager中的Support Services，在SQL Mail上单击右键打开右键菜单，然后按Start来启动

二、停止SQL Mail

xp_stopmail

也可用上述方法中的菜单里的Stop来停止

三、发送邮件

xp_sendmail {[@recipients =] 'recipients [;...n]'}
[,[@message =] 'message>
[,[@query =] 'query>
[,[@attachments =] attachments]
[,[@copy_recipients =] 'copy_recipients [;...n]'
[,[@blind_copy_recipients =] 'blind_copy_recipients [;...n]'
[,[@subject =] 'subject>
[,[@type =] 'type>
[,[@attach_results =] 'attach_value>
[,[@no_output =] 'output_value>
[,[@no_header =] 'header_value>
[,[@width =] width]
[,[@separator =] 'separator>
[,[@echo_error =] 'echo_value>
[,[@set_user =] 'user>
[,[@dbuse =] 'database>

其中@recipients是必需的

参数说明：

参数 说明
@recipients 收件人，中间用逗号分开
@message 要发送的信息
@query 确定执行并依附邮件的有效查询，除触发器中的插入表及删除表外，此查询能引用任何对象
@attachments 附件
@copy_recipients 抄送
@blind_copy_recipients 密送
@subject 标题
@attach_results 指定查询结果做为附件发送
@no_header 不发送查询结果的列名
@set_user 查询联接的用户名，默认为Guset
@dbuse 查询所用的数据库，默认为缺省数据库

四、阅读邮件收件箱中的邮件

xp_readmail [[@msg_id =] 'message_number> [, [@type =] 'type' [OUTPUT]]
[,[@peek =] 'peek>
[,[@suppress_attach =] 'suppress_attach>
[,[@originator =] 'sender' OUTPUT]
[,[@subject =] 'subject' OUTPUT]
[,[@message =] 'message' OUTPUT]
[,[@recipients =] 'recipients [;...n]' OUTPUT]
[,[@cc_list =] 'copy_recipients [;...n]' OUTPUT]
[,[@bcc_list =] 'blind_copy_recipients [;...n]' OUTPUT]
[,[@date_received =] 'date' OUTPUT]
[,[@unread =] 'unread_value' OUTPUT]
[,[@attachments =] 'attachments [;...n]' OUTPUT])
[,[@skip_bytes =] bytes_to_skip OUTPUT]
[,[@msg_length =] length_in_bytes OUTPUT]
[,[@originator_address =] 'sender_address' OUTPUT]]

参数说明：

参数 说明
@originator 发件人
@subject 主题
@message 信息
@recipients 收件人
@skip_tytes 读取邮件信息时跳过的字节数，用于顺序获取邮件信息段。
@msg_length 确定所有信息的长度，通常与@skip_bytes一起处理长信息

五、顺序处理下一个邮件

xp_findnextmsg [[@msg_id =] 'message_number' [OUTPUT]]
[,[@type =] type]
[,[@unread_only =] 'unread_value> )

六、删除邮件

xp_deletemail {'message_number'}

如果不指定邮件编号则删除收件箱中的所有邮件

七、自动处理邮件

sp_processmail [[@subject =] 'subject>
[,[@filetype =] 'filetype>
[,[@separator =] 'separator>
[,[@set_user =] 'user>
[,[@dbuse =] 'dbname>

>用户在网上注册后,系统将随机产生的密码发送到用户登记的Email
>用户在论坛的帖子有回复时将内容发送到用户的Email
因为上述过程都是在存储过程中完成的，所以避免了前台程序对参数的传输处理，也不需要再用第三方的组件完成，感觉比较方便。

1.为了使用SQL mail,首先你的服务器上得有SMTP服务，我没有安装win2000 server自带的SMTP，而是用imail6.04的SMTP,感觉比较稳定，功能也比较强。
2.安装一个邮件系统,我安装了outLook 2000，我发现在配置邮件profile时，如果
不安装outLook而是用别的第三方程序，win2k中文server版在控制面板中就找不到“邮件”一项.
3.安装完outlook后再刷新控制面板,就会找到“邮件”一项，双击进行邮件的配置，为配置文件起一个名字(假设为myProfile)，以便以后SQL mail使用，在该配置文件中设置各项属性。
4.启动outlook(设置为用myProfile作为默认的配置文件),测试进行收发邮件，确认outlook工作正常。
5.用当前的域帐户启动SQL server,在企业管理器的支持服务中，点击SQL mail的属性，可以看到在配置文件选择中，出现了刚才定义的myProfile配置文件(你也可以定义多个profile)，选择这个配置文件进行测试，SQL将返回成功开始和结束一个MAPI会话的信息，如果出现错误或是没有找到邮件配置文件，那一定是你启动SQL server用的帐号有问题
6.现在你就可以在查询分析器中用XP_sendmail这个扩展存储过程发送SQL mail了，格式如下：
xp_sendmail {[@recipients =] 'recipients [;...n]'}
[,][@message =] 'message>
[,][@query =] 'query>
[,][@attachments =] attachments]
[,][@copy_recipients =] 'copy_recipients [;...n]'
[,][@blind_copy_recipients =] 'blind_copy_recipients [;...n]'
[,][@subject =] 'subject>
[,[@type =] 'type>
[,][@attach_results =] 'attach_value>
[,][@no_output =] 'output_value>
[,][@no_header =] 'header_value>
[,][@width =] width]
[,][@separator =] 'separator>
[,][@echo_error =] 'echo_value>
[,][@set_user =] 'user>
[,][@dbuse =] 'database>

其中@recipients是必需的

参数说明：

参数 说明
@recipients 收件人，中间用逗号分开
@message 要发送的信息
@query 确定执行并依附邮件的有效查询，除触发器中的插入表及删除表外，此查询能引用任何对象
@attachments 附件
@copy_recipients 抄送
@blind_copy_recipients 密送
@subject 标题
@attach_results 指定查询结果做为附件发送
@no_header 不发送查询结果的列名
@set_user 查询联接的用户名，默认为Guset
@dbuse 查询所用的数据库，默认为缺省数据库

7.不过，如果是在web应用中使用SQL mail,还有一些问题要解决:首先，就是应用程序中连接数据库的帐号，我在网站程序中的数据库连接是使用UDL文件，帐号为DbGuest,这是一个普通帐户，所以还必须在master库的扩展存储过程找到XP_sendmail，并在其属性中增加DbGuest这个用户，并选择EXEC权限。
好了，现在设置完毕，运行网站程序，测试用户注册，几乎没有什么延迟，我测试用的邮箱中就收到了这封SQL mail发出的Email:
"谢谢你的注册,建议你首次登录后修改密码"

Sql Mail技术给每一位数据库开发人员和DBA（数据库管理员）带来了极大的方便，利用该技术，Sql Server数据库代理程序可以在系统出现异常的时候自动发送Email通知管理员，开发人可以利用它让数据库自动定期的修改用户密码，然后发送Email通知用户……等等这些应用，都不同程度上把我们从繁杂的工作中解放出来。但是，Sql Mail的配置是比较复杂的，相信90％以上的人在配置Sql Mail的时候都遇到过各种各样的麻烦，至少有70%的人放弃了Sql Mail而选择其他方案来解决这个问题。笔者是一名Web开发人员，亲身经历了这一切，并找到了一个更好的替代方法。不敢独享，写出来以飨读者。
Sql Mail配置有几种方式，按照支持软件可划分为基于Exchange、Outlook2000（以上）和第三方软件的配置方案，三种方式各有利弊，主要表现在以下几个方面：

    使用Outlook客户端配合Sql Server实现Sql Mail
    此方案软件要求较低，只需要在Sql Server所在服务器上安装Outlook2000以上版本客户端即可。它要求在Sql Mail使用期间，OutLook客户端必须打开，否则，只能到下次打开时，邮件才能发送出去。另外，如果服务器为远程服务器，用微软官方的远程桌面无法完成配置，可替代的方案是DBA亲自去机房直接操作，或者安装PcAnywhere10替代远程桌面进行操作。

    使用Exchange要求较高
    Microsoft推荐使用Exchange作为Sql Mail的最佳拍档，MSDN的资料提出：“由于 POP3/SMTP 协议存在的局限性和登录问题，Microsoft 建议您使用 Exchange Server 来实现可靠性”。但是Exchange并不是专门做这个来使用的，可以说是屈才了，而且Exchange要求服务器配置域管理器，相信这个东东对大多数数据库服务器来说用处不大，只不过是浪费资源罢了。如果我们要在多台服务器上配置Sql Mail那么就需要在每一台服务器上配置域管理器，或者所有的服务器都配置到一个域内，但是对于服务器比较分散的系统来说这样是不现实的。

    使用第三方系统支持
    微软MSDN称：“如果您使用的是第三方邮件服务器，则必须将邮件服务器配置为 POP3 服务器。如果这些邮件服务器使用的本地邮件服务可能是由第三方邮件客户端安装的，Microsoft 将不支持连接到这些服务器”。这就意味着你还要使用Windows平台的邮件服务，使用ASP编写网站的朋友一定都知道，Cdonts.dll组件实在是……。
面对这些问题，笔者就变成了我刚才说的那70％了，虽然爬网无数，读文字数万把Sql Mail配置好了，但是我仍然绝对放弃，因为我不想在做第2台、第3台……的时候重蹈覆辙。替代的方案就是Jmail组件＋OLE自动化对象，以上的问题迎刃而解。

    预备知识
    1．OLE自动化函数
    OLE自动化使应用程序能够对另一个应用程序中实现的对象进行操作，或者将对象公开以便可以对其进行操作。自动化客户端是可对属于另一个应用程序的公开对象进行操作的应用程序，本文值得是Sql Server。公开对象的应用程序称为自动化服务器，又成为自动化组件，本文中即Jmail组件咯。客户端通过访问应用程序对象的属性和函数对这些对象进行操作。
    在Sql Server使用Ole组件的途径是几个系统扩展存储过程sp_OACreate、sp_OADestroy、sp_OAGetErrorInfo、sp_OAMethod、sp_OASetProperty和sp_OAGetProperty，再次简单地介绍一下使用方法，详细资料参考Sql Server联机丛书。
    OLE自动化对象的使用方法：
    （1）调用 sp_OACreate 创建对象。
    格式：sp_OACreate clsid,objecttoken OUTPUT [ , context ]
    参数：clsid——是要创建的 OLE 对象的程序标识符 (ProgID)。此字符串描述该 OLE 对象的类，其形式，如 'OLEComponent.Object'，OLEComponent 是 OLE 自动化服务器的组件名称，Object 是 OLE 对象名，本文中使用的“JMail.Message”;
Objecttoken——是返回的对象标志，并且必须是数据类型为 int 的局部变量。用于标识所创建的 OLE 对象，并将在调用其它 OLE 自动化存储过程时使用。本文中就是通过它来调用JMail.Message组件的属性和方法的。
    Context——指定新创建的 OLE 对象要在其中运行的执行上下文。本文不使用该参数，故不赘述。以下与此一致，所有方法属性的其他用法请参阅Sql Server联机文档。
    （2）使用该对象。
    （a）调用 sp_OAGetProperty 获取属性值。
    格式：_OAGetProperty objecttoken,propertyname [, propertyvalue OUTPUT]
    参数：（前面出现过的参数，以下均省略。）
    Propertyname——对象的属性名称；
    Propertyvalue——返回的对象的属性值，该参数带OUTPUT属性，执行该操作后，你就可以从propertyvalue中得到属性的值了。
    （b）调用 sp_OASetProperty 将属性设为新值。
    格式：sp_OASetProperty objecttoken, propertyname, propertyvalue
    （c）调用 sp_OAMethod 以调用某个方法。
    格式：sp_OAMethod objecttoken, methodname [, returnvalue OUTPUT] [ , [ parametername = ] parametervalue  [...n]]
    参数：Returnvalue——调用方法的返回值，如果没有返回值，此参数设置为NULL；
    Parametername——方法定义中的参数名称，也就是形参；
    Parametervalue——参数值；
    ……n——表示，可以带很多参数，个数由方法定义限制；
    （d）调用 sp_OAGetErrorInfo 获取最新的错误信息。
    格式：sp_OAGetErrorInfo [objecttoken ] [, source OUTPUT] [, description OUTPUT]
    参数：Source——错误源；
    Description——错误描述；
    （3）调用 sp_OADestroy 释放对象。
    格式：sp_OADestroy objecttoken

    2．xp_cmdshell扩展存储过程
    该扩展存储过程在master数据库中，它的全路径是master..xp_cmdshell（注意，中间是2个点），它的功能是：以操作系统命令行解释器的方式执行给定的命令字符串，并以文本行方式返回任何输出。
    格式：xp_cmdshell {'command_string'} [, no_output]
    参数：'command_string'——是在操作系统命令行解释器上执行的命令字符串。
    no_output——是可选参数，表示执行给定的 command_string，但不向客户端返回任何输出。本文应用中不使用该参数。

    操作方法
    （1）软件准备
    请先到http://www.dimac.net/或者国内提供组件下载的网站下载最新版的JMail组件，如果你得到的是安装版，执行weJMailx.exe即可，系统的配置安装程序会自动完成。如果只有一个JMail.dll文件，请按照下面的步骤安装：
    （a）新建文本文件，输入如下命令：
    regsvr32 JMail.dll
    net start w3svc
    另存为Install.Bat（注意，千万不要保存成Install.Bat.Txt啊）
    （b）此文件连同Jmail.dll一起拷贝到Sql Server数据库服务器的System32目录下，并执行双击Install.Bat即可。
    （2）准备好了吗？跟我来吧
    （a）运行Sql Server查询分析器，并以sa身份登录到Sql Server数据库；
    （b）如果你的存储过程要添加到YourDefaultCatalog数据库，请在空白Sql窗口输入如下指令，否则请相应修改数据库名。
    Use YourDefaultCatalog
    按F5或者运行按钮运行该指令；
    (c)创建基本发送存储过程
    复制如下代码到Sql Server命令窗口，并运行。下面的代码中有相应的注释，文中不多做解释，如有疑问请查看前面的“预备知识”或者查询Sql Server帮助文件，当然也可以和作者联系。

Create Procedure dbo.sp_jmail_send
@sender varchar(100),
@sendername varchar(100)='',
@serveraddress varchar(255)='SMTP服务器地址',
@MailServerUserName varchar(255)=null,
@MailServerPassword varchar(255)=null,
@recipient varchar(255),
@recipientBCC varchar(200)=null,
@recipientBCCName varchar(200)=null,
@recipientCC varchar(200)=null,
@recipientCCName varchar(100)=null,
@attachment varchar(100) =null,
@subject varchar(255),
@mailbody text
As
/*
该存储过程使用办公自动化脚本调用Dimac w3 JMail AxtiveX组件来代替Sql Mail发送邮件
该方法支持“服务器端身份验证”
*/
--声明w3 JMail使用的常规变量及错误信息变量
Declare @object int,@hr int,@rc int,@output varchar(400),@description varchar (400),@source varchar(400)

--创建JMail.Message对象

Exec @hr = sp_OACreate 'jmail.message', @object OUTPUT

--设置邮件编码
Exec @hr = sp_OASetProperty @object, 'Charset', 'gb2312'

--身份验证
If Not @MailServerUserName is null
Exec @hr = sp_OASetProperty @object, 'MailServerUserName',@MailServerUserName
If Not @MailServerPassword is null
Exec @hr = sp_OASetProperty @object, 'MailServerPassword',@MailServerPassword

--设置邮件基本参数
Exec @hr = sp_OASetProperty @object, 'From', @sender
Exec @hr = sp_OAMethod @object, 'AddRecipient', NULL , @recipient
Exec @hr = sp_OASetProperty @object, 'Subject', @subject
Exec @hr = sp_OASetProperty @object, 'Body', @mailbody

--设置其它参数
if not @attachment is null
exec @hr = sp_OAMethod @object, 'Addattachment', NULL , @attachment,'false'
print @attachment
If (Not @recipientBCC is null) And (Not @recipientBCCName is null)
Exec @hr = sp_OAMethod @object, 'AddRecipientBCC', NULL , @recipientBCC,@recipientBCCName
Else If Not @recipientBCC is null
Exec @hr = sp_OAMethod @object, 'AddRecipientBCC', NULL , @recipientBCC

If (Not @recipientCC is null) And (Not @recipientCCName is null)
Exec @hr = sp_OAMethod @object, 'AddRecipientCC', NULL , @recipientCC,@recipientCCName
Else If Not @recipientCC is null
Exec @hr = sp_OAMethod @object, 'AddRecipientCC', NULL , @recipientCC

If Not @sendername is null
Exec @hr = sp_OASetProperty @object, 'FromName', @sendername

--调用Send方法发送邮件
Exec @hr = sp_OAMethod @object, 'Send', null,@serveraddress

--捕获JMail.Message异常
Exec @hr = sp_OAGetErrorInfo @object, @source OUTPUT, @description OUTPUT

if (@hr = 0)
Begin
Set @output='错误源: '+@source
Print @output
Select @output = '错误描述: ' + @description
Print @output
End
Else
Begin
Print '获取错误信息失败！'
Return
End

--释放JMail.Message对象
Exec @hr = sp_OADestroy @object

    （d）简化存储过程操作，以适合我们平时的使用习惯
    上面的存储过程基本可以完成邮件发送操作，但是非常冗长，而且不符合我们的习惯，比如它不支持多个发送给接收者、不支持将Sql指令运行结果以附件形式发送（这是Sql Mail的功能，我们也可以做到）等，所以我们要再写一个存储过程来调用它，以简化操作，并扩展功能。

Create Procedure SendMail
@Sender varChar(50)=null,
@strRecipients varChar(200),
@strSubject varChar(200),
@strMessage varChar(2000),
@sql varChar(50)=null)
As

Declare @SplitStr varchar(1) --定义邮件地址分割符变量
Declare @strTemp varchar(200) --定义多个收件人字符串临时变量
Declare @email varchar(50) --用分割符分割后的单个收件人字符串变量

Declare @SenderAddress varChar(50)
Declare @Attach varChar(200)

Declare @DefaultSender varChar(50)
Declare @MailServer varChar(50)
Declare @User varChar(50)
Declare @Pass varChar(50)
Declare @SenderName varChar(50)
Declare @AttachDir varChar(100)

--初始化缺省变量
Set @DefaultSender='缺省发送地址'
Set @MailServer='邮件服务器地址'
Set @User='SMTP服务器验证用户地址'
Set @Pass='SMTP服务器验证地址'
Set @SenderName='缺省发件人名称'
Set @AttachDir='E:\LOG\WebData\Jmail\'+Replace(Replace(Replace(Convert(varChar(19),GetDate(),120),'-',''),' ',''),':','')+'.txt'

--将Email地址分割符统一为分号
set @SplitStr=';'
Set @strTemp=@strRecipients+@SplitStr+'end'
Set @strTemp=Replace(@strTemp,',',';')

--判断是否有sql语句
If (@Sql is Null) Or (len(@Sql)=0)
Set @AttachDir=Null
Else
Begin
Declare @CmdStr varChar(200)
Set @CmdStr='bcp "'+@Sql+'" queryout '+@AttachDir+' -c'
EXEC master..xp_cmdshell @CmdStr
End

while CharIndex(@SplitStr,@strTemp,1)<>0
Begin
Set @email=left(@strTemp,CharIndex(@SplitStr,@strTemp,1)-1)
Set @strTemp=right(@strTemp,len(@strTemp)-len(@email)-1)
If (@Sender Is Null) Or (Len(@Sender)=0)
Set @SenderAddress=@DefaultSender
Else
Set @SenderAddress=@Sender
Print @email
--调用sp_jmail_send发送邮件
EXEC sp_jmail_send @sender=@SenderAddress,@sendername=@SenderName,
@serveraddress=@MailServer,@MailServerUserName=@User,@MailServerPassword=@Pass,
@recipient=@email,@subject=@strSubject,@mailbody=@strMessage,@attachment=@AttachDir
End
    此存储过程只扩展了Sql查询结果附件发送，如果你要发送标准附件，请直接使用sp_jmail_send存储过程或者自行扩展功能。