Chinaunix首页 | 论坛 | 博客
  • 博客访问: 334880
  • 博文数量: 1051
  • 博客积分: 53280
  • 博客等级: 大将
  • 技术积分: 6670
  • 用 户 组: 普通用户
  • 注册时间: 2008-09-09 13:21
文章分类

全部博文(1051)

文章存档

2011年(1)

2008年(1050)

我的朋友

分类:

2008-09-09 15:44:08


  说是新方式,其实也是早就用到的技术了,所以放上来!
  
  在.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("", "1"); //basic authentication
  mail.Fields.Add("", "my_username_here"); //set your username here
  mail.Fields.Add("", "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("").Value','2'
  EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("").Value', 'smtp.163.com'
  
  --下面三条语句是smtp验证,如果需要验证,则必须要这三句,你需要修改用户名和密码
  EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("").Value','1'
  EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("").Value','lihonggen0'
  EXEC @hr = sp_OASetProperty @object, 'Configuration.fields("").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对象
  
【责编:admin】

--------------------next---------------------

阅读(164) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~