手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Mssql>列表

SQL Server中发送邮件的新方式

来源:互联网 作者:west263.com 时间:2008-04-02
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

  在.NET中,大家知道,能够使用System.Web.Mail来发送邮件。在Framework 1.1下支持验证。private void Page_Load(object sender, System.EventArgs e)

  {

  MailMessage mail = new MailMessage();

  mail.To = "me@mycompany.com";

  mail.From = "you@yourcompany.com";

  mail.Subject = "this is a test email.";

  mail.Body = "Some text goes here";

  mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1"); //basic authentication

  mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "my_username_here"); //set your username here

  mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "super_secret"); //set your password here

  SmtpMail.SmtpServer = "mail.mycompany.com"; //your real server goes here

  SmtpMail.Send( mail );

  }

  以前我曾写过在.NET下发送邮件的方法,详见:

  http://dev.csdn.net/develop/article/17/17189.shtm

  SQL Server中,我们一般使用SQL本身的邮件发送方式,但需要配置Exchage Server、Outlook等,也是个比较繁琐的事情。很多人抱怨说配置不成功。

  其实,我们能够在 SQL Server中创建 OLE 对象实例,调用IIS SMTP自带的发送组件来实现邮件发送。

  我们建立这个存储过程,您需要修改的地方是,SmtpServer的名字

  Create PROCEDURE sys_sendmail @From varchar(100) , @To varchar(100) , @Bcc varchar(500), @Subject varchar(400)=" ", @Body ntext =" "

  AS

  Declare @object int

  Declare @hr int

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

  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', 'smtp.163.com'

  --下面三条语句是smtp验证,假如服务器需要验证,则必须要这三句,您需要修改用户名和密码

  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','lihonggen0'

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

  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, 'TextBody', @Body

  EXEC @hr = sp_OAMethod @object, 'Send', NULL

  --判断出错

  IF @hr <> 0

  BEGIN

  EXEC sp_OAGetErrorInfo @object

  RETURN @object

  END

  PRINT 'success'

  EXEC @hr = sp_OADestroy @object

  GO 注意:必须确保安装Smtp,能够访问CDO对象。


文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!