<%  
        Set   jmail   =   Server.CreateObject("JMAIL.Message")     建立发送邮件的对象  
        jmail.silent   =   true                           屏蔽例外错误，返回FALSE跟TRUE两值  
        jmail.logging   =   true                                           启用邮件日志  
        jmail.Charset   =   "GB2312"                                   邮件的文字编码为国标  
        jmail.ContentType   =   "text/html"                     邮件的格式为HTML格式  
        jmail.Add   Recipient   =   "8888@126.com"     邮件收件人的地址  
        jmail.From   =   "8888@126.com"                       发件人的E-MAIL地址  
        jmail.MailServerUserName   =   "8888"           登录邮件服务器所需的用户名  
        jmail.MailServerPassword   =   "123456"             登录邮件服务器所需的密码  
        jmail.Subject   =   "Mail   Subject"                       邮件的标题    
        jmail.Body   =   "Mail   Body"                                   邮件的内容  
        jmail.Prority   =   1                 邮件的紧急程序,1   为最快,5   为最慢,3   为默认值  
       JMail.Execute  
        jmail.Send("smtp.126.com")                 执行邮件发送  
        jmail.Close()                                                         关闭对象  

         示范
        Dim Jmail
        Set Jmail=server.createobject("Jmail.Message")
        Jmail.Silent=true
        Jmail.logging=true
        Jmail.Charset="gb2312"
        Jmail.Priority=3     '优先级
        Jmail.MailServerUserName="123@126.com"
        Jmail.MailServerPassword="123"
        Jmail.From="123@126.com"
        Jmail.FromName="123@126.com"
        Jmail.Subject="邮件主题"
        Jmail.AddRecipient "jhf57101@126.com
        JMail.HTMLBody="这是一封来自jhfcjl空间的问候！"
        Jmail.Send("smtp.126.com")
        JMail.Execute
        send_jmail="ok"
        if err then
          err.clear
          send_jmail="err"
        end if
        Jmail.close()
        Set Jmail=nothing

%>