程序代码：

    On error resume next
    Dim JMail
    Set JMail = Server.CreateObject("JMail.Message") 
    JMail.Charset = "gb2312"
    JMail.Silent = True

    JMail.From = "123123@ = "123123"
    JMail.Subject = "title"

    ' 身份验证 
    JMail.MailServerUserName = "123123"
    JMail.MailServerPassword = "234234"

    ' 设置优先级，范围从1到5，越大的优先级越高，3为普通 
    JMail.Priority = 3 

    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 

    ' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个 
    JMail.AddRecipient("123123@qzone.)


    ' 邮件主体（HTML(注意信件内链接附件的方式)） 
    JMail.HTMLBody = "123123"

    ' 邮件主体（文本部分） 
    JMail.Body = "123123"

    ' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
    SendBlog=JMail.Send("smtp.) 

    ' 关闭并清除对象 
    JMail.Close() 
    Set JMail = Nothing