asp 郵件發送組件jmail 使用執行個體

  Function SendJmail(Email,Topic,MailBody,GB_ip,sys_mailbox)
  Dim JMail
  Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.LazySend          = true
  JMail.silent            = true
  JMail.Charset           = "gb2312"
  JMail.ContentType       = "text/html"
  JMail.Sender            = sys_mailbox '
  JMail.ReplyTo           = sys_mailbox '
  JMail.SenderName        = Cfg.webName
  JMail.Subject           = Topic
  JMail.SimpleLayout      = true
  JMail.Body              = MailBody+"www.111cn.net"
  JMail.Priority          = 1
  JMail.AddRecipient Email
  JMail.AddHeader "Originating-IP",GB_ip
  If JMail.Execute() = false Then
   SendJmail = 0
  Else
   SendJmail = 1
  End If
  JMail.Close
  Set JMail = Nothing
 End Function