Jmail发信函数,保证发送成功

仁武君

&lt;%<BR>Dim SendStat<BR>SendStat = Jmail("madpolice_dong@hotmail.com","Test Jmail","Just a test!","US-ASCII","text/plain")<BR>Response.Write SendStat<BR>%&gt;<BR>&lt;%<BR>'--------------------------------------------------------------------<BR>Function Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)<BR>'--------------------------------------------------------------------<BR>'JMail<BR>'--------------------------------------------------------------------<BR>'入口参数：<BR>'　　　　mailTo  收件人email地址<BR>'　　　　mailTopic  邮件主题<BR>'　　　　mailBody  邮件正文(内容)<BR>'　　　　mailCharset  邮件字符集，例如GB2312或US-ASCII<BR>'　　　　mailContentType  邮件正文格式，例如text/plain或text/html<BR>'返回值：<BR>'　　　　字符串，发送成功后返回OK，不成功返回错误信息<BR>'使用方法：<BR>'　　　　1)设置好常量，即以Const开头的变量<BR>'　　　　2)使用类似如下代码发信<BR>'Dim SendStat<BR>'SendStat = Jmail("aa@163.com","测试Jmail","这是一封&lt;br/&gt;测试信！","GB2312","text/html")<BR>'Response.Write SendStat<BR>'作者：<BR>'　　　　午夜狂龙(Madpolice) madpolice_dong@hotmail.com 2005年6月2日版<BR>'--------------------------------------------------------------------<BR><BR>    '***************根据需要设置常量开始*****************<BR>    Dim ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword<BR><BR>    ConstFromNameCn = ""'发信人中文姓名(发中文邮件的时候使用)，例如‘张三’<BR>    ConstFromNameEn = ""'发信人英文姓名(发英文邮件的时候使用)，例如‘zhangsan’<BR>    ConstFrom = ""'发信人邮件地址，例如‘zhangsan@163.com’<BR>    ConstMailDomain = ""'smtp服务器地址，例如smtp.163.com<BR>    ConstMailServerUserName = ""'smtp服务器的信箱登陆名，例如‘zhangsan’。注意要与发信人邮件地址一致！<BR>    ConstMailServerPassword = ""'smtp服务器的信箱登陆密码<BR>    '***************根据需要设置常量结束*****************<BR><BR>    '-----------------------------以下内容无需改动------------------------------<BR>    On Error Resume Next<BR>    Dim myJmail<BR>    Set myJmail = Server.CreateObject("JMail.Message")<BR>    myJmail.Logging = True'记录日志<BR>    myJmail.ISOEncodeHeaders = False'邮件头不使用ISO-8859-1编码<BR>    myJmail.ContentTransferEncoding = "base64"'邮件编码设为base64<BR>    myJmail.AddHeader "riority","3"'添加邮件头,不要改动！<BR>    myJmail.AddHeader "MSMail-Priority","Normal"'添加邮件头,不要改动！<BR>    myJmail.AddHeader "Mailer","Microsoft Outlook Express 6.00.2800.1437"'添加邮件头,不要改动！<BR>    myJmail.AddHeader "MimeOLE","roduced By Microsoft MimeOLE V6.00.2800.1441"'添加邮件头,不要改动！<BR>    myJmail.Charset = mailCharset<BR>    myJmail.ContentType = mailContentType<BR><BR>    If UCase(mailCharset) = "GB2312" Then<BR>        myJmail.FromName = ConstFromNameCn<BR>    Else<BR>        myJmail.FromName = ConstFromNameEn<BR>    End If<BR><BR>    myJmail.From = ConstFrom<BR>    myJmail.Subject = mailTopic<BR>    myJmail.Body = mailBody<BR>    myJmail.AddRecipient mailTo<BR>    myJmail.MailDomain = ConstMailDomain<BR>    myJmail.MailServerUserName = ConstMailServerUserName<BR>    myJmail.MailServerPassword = ConstMailServerPassword<BR>    myJmail.Send ConstMailDomain<BR>    myJmail.Close<BR>    Set myJmail=nothing <BR><BR>    If Err Then <BR>        Jmail=Err.Description<BR>        Err.Clear<BR>    Else<BR>        Jmail="OK"<BR>    End If<BR><BR>    On Error Goto 0<BR>End Function<BR>'--------------------------------------------------------------------<BR>%&gt;<BR>