asp教程

ASP调用Jmail组件发送邮件

位置:首页 > asp教程 > asp技巧,2015-08-04
ASP调用Jmail组件发送邮件
Function sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody)  
  Set vibo_mail = Server.CreateObject("JMAIL.Message")    ’建立发送邮件的对象  
  vibo_mail.silent = true                                 ’屏蔽例外错误,返回FALSE跟TRUE两值j  
  vibo_mail.logging = true                                ’启用邮件日志  
  vibo_mail.Charset = "gb2312"                            ’邮件的文字编码为国标  

  ’vibo_mail.ContentType = "text/html"                     ’邮件的格式为HTML格式  
  ’vibo_mail.Prority = 1                                   ’邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值  

  vibo_mail.AddRecipient to_Email                         ’邮件收件人的地址  
  vibo_mail.From = from_Email                             ’发件人的E-MAIL地址  
  vibo_mail.FromName = from_Name                          ’发件人姓名  
  vibo_mail.MailServerUserName = "system@aaa.com"       ’登录邮件服务器所需的用户名  
  vibo_mail.MailServerPassword = "asdasd"     ’登录邮件服务器所需的密码  
  vibo_mail.Subject = mail_Subject                        ’邮件的标题   
  vibo_mail.Body = mail_Body                              ’正文  
  vibo_mail.HTMLBody = mail_htmlBody                      ’HTML正文  
  vibo_mail.ReturnReceipt = True  
  vibo_mail.Send("smtp.263xmail.com")                     ’执行邮件发送(通过邮件服务器地址)  
  vibo_mail.Close()  
  set vibo_mail=nothing  
End Function 

TAGS:ASP发送邮件

猜你喜欢

NewHot