【www.gdgbn.com--邮件】

"-----------------------------------------------------------------------
"--- 设置项
"-----------------------------------------------------------------------
"--- smtps教程erver  设置smtp邮件服务器地址
"--- fromemail  设置发件人的e-mail地址
"--- fromname  设置发送人名称
"--- contenttype 设置邮件类型 默认：text/html
"--- charset  设置编码类型 默认：gb2312
"--- sendobject  设置选取组件 1=jmail,2=cdonts
"-----------------------------------------------------------------------
"--- 属性
"-----------------------------------------------------------------------
"--- sendmail email, topic, mailbody 收件人地址，标题，邮件内容
"-----------------------------------------------------------------------
"--- 获取信息
"-----------------------------------------------------------------------
"--- errcode   信息编号 0=正常
"--- description  相应操作信息
"--- count    发送邮件数
"-----------------------------------------------------------------------
class lyout_mail
 public count,errcode,errmsg
 public username,password,fromemail,fromname
 public smtpserver,contenttype,charset
 private obj,cdoconfig,object

 private sub class_initialize()
  object = 0
  count = 0
  errcode = 0
  contenttype = "text/html"
  charset = "gb2312"
 end sub

 private sub class_terminate()
  if isobject(obj) then
   set obj = nothing
  end if
  if isobject(cdoconfig) then
   set cdoconfig = nothing
  end if
 end sub
 "获取错误信息
 public property get description()
  description = errmsg
 end property
 "设置选取组件 sendobject 0=jmail,1=cdonts,2=aspemail
 public property let sendobject(byval value)
  object = value
  on error resume next
  select case object
   case 1
    set obj = server.createobject("jmail.message")
   case 2
    set obj = server.createobject("cdonts.newmail")
   case else
    errnumber = 2
  end select
  if err<>0 then
   errnumber = 3
  end if
 end property

 private property let errnumber(byval value)
  errcode = value
  errmsg = errmsg & msg
 end property
 private function msg()
  dim msgvalue
  select case errcode
  case 1
   msgvalue = "未选取邮件组件或服务器不支持该组件！"
  case 2
   msgvalue = "所选的组件不存在！"
  case 3
   msgvalue = "错误：服务器不支持该组件!"
  case 4
   msgvalue = "发送失败!"
  case else
   msgvalue = "正常。"
  end select
  msg = msgvalue
 end function

 public sub sendmail(byval email,byval topic,byval mailbody)
  if errcode <> 0 then
   exit sub
  end if
  if email="" or isnull(email) then exit sub
  if object>0 then
   select case object
    case 1
     jmail email,topic,mailbody
    case 2
     cdonts email,topic,mailbody
    case else
     errnumber = 2
   end select
  else
   errnumber = 1
  end if
 end sub

 private sub jmail(email,topic,mailbody)
  on error resume next
  obj.silent = true
  obj.logging = true
  obj.charset = charset
  if not(username = "" or password = "") then
   obj.mailserverusername = username "您的邮件服务器登录名
   obj.mailserverpassword = password "登录密码
  end if
  obj.contenttype = contenttype
  obj.priority = 1
  obj.from = fromemail
  obj.fromname = fromname
  obj.addrecipient email
  obj.subject = topic
  obj.body = mailbody
  if err<>0 then
   errmsg = errmsg & "发送失败!原因：" & err.description
   errnumber = 4
  else
   if obj.send (smtpserver) then
    obj.clearrecipients()
    if err<>0 then
     errmsg = errmsg & "发送失败!原因：" & err.description
     errnumber = 4
    else
     count = count + 1
     errmsg = errmsg & "发送成功!"
    end if
   else
    errmsg = errmsg & "发送失败！原因："&obj.log
    errnumber = 4
   end if
  end if
 end sub
  
 private sub cdonts(email,topic,mailbody)
  on error resume next
  obj.from = fromemail
  obj.to = email
  obj.subject = topic
  obj.bodyformat = 0
  obj.mailformat = 0
  obj.body = mailbody
  if err<>0 then
   errmsg = errmsg & "发送失败!原因：" & err.description
   errnumber = 4
  else
   obj.send
   if err<>0 then
    errmsg = errmsg & "发送失败!原因：" & err.description
    errnumber = 4
   else
    count = count + 1
    errmsg = errmsg & "发送成功!"
   end if
  end if
 end sub
end class
%>

本文来源：http://www.gdgbn.com/jsp/27626/