服务器 频道

SQL Server中发送邮件的新方式

  【IT168 服务器学院】在.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对象。

0
相关文章