Dim JMail
    Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
   jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
   jmail.Charset = "GB2312" '邮件的文字编码为国标
   jmail.ContentType = "text/html" '邮件的格式为HTML格式
   jmail.AddRecipient Email '邮件收件人的地址
   jmail.From = Fromer '发件人的E-MAIL地址
   jmail.FromName = Sender
     If LoginName <> "" And LoginPass <> "" Then
    JMail.MailServerUserName = LoginName '您的邮件服务器登录名
    JMail.MailServerPassword = LoginPass '登录密码
     End If

   jmail.Subject = Subject '邮件的标题
   JMail.Body = Content
   JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
   jmail.Send(MailAddress) '执行邮件发送（通过邮件服务器地址）
   jmail.Close() '关闭对象
  Set JMail = Nothing
  If Err Then
   SendMail = Err.Description
   Err.Clear
  Else
   SendMail = "OK"
  End If

以下内容只有回复后才可以浏览,请先登录！