jmail收发邮件标题乱码问题

admin

2011年12月23日 9:14 本文热度 3137

用jmail4.3收邮件，一般的邮件都没有问题，在收取嵌入html（包括图片，文字等）页面的邮件时，标题会出现乱码，乱码如下所示：
鏂伴椈蹇€?--绗洓鏈燂紝2007骞?鏈?(璇峰悜MSTC鍚屼簨杞彂锛Fw: MSTC鏂伴椈蹇€?--绗洓鏈燂紝2007骞?鏈?(
请问如何解决？

借用csdn里面一个大侠写的，特别好用，肯定不会乱码

VBScript code



Function   Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)   

  '入口参数：   

  '　　　　mailTo     收件人email地址   

  '　　　　mailTopic     邮件主题   

  '　　　　mailBody     邮件正文(内容)   

  '　　　　mailCharset     邮件字符集，例如GB2312或US-ASCII   

  '　　　　mailContentType     邮件正文格式，例如text/plain或text/html   

  '返回值：   

  '　　　　字符串，发送成功后返回OK，不成功返回错误信息   

  '使用方法：   

  '　　　　1)设置好常量，即以Const开头的变量   

  '　　　　2)使用类似如下代码发信   

  'Dim   SendStat   

  'SendStat   =   Jmail("aa@163.com","测试Jmail","这是一封<br/>测试信！","GB2312","text/html")   

  'Response.Write   SendStat   

    

          '***************根据需要设置常量开始*****************   

          Dim   ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword   

    

          ConstFromNameCn   =   "张三"'发信人中文姓名(发中文邮件的时候使用)，例如'张三'   

          ConstFromNameEn   =   "zhangsan"'发信人英文姓名(发英文邮件的时候使用)，例如'zhangsan'   

          ConstFrom   =   ""'发信人邮件地址，例如'zhangsan@163.com'   

          ConstMailDomain   =   ""'smtp服务器地址，例如smtp.163.com   

          ConstMailServerUserName   =   ""'smtp服务器的信箱登陆名，例如'zhangsan'。注意要与发信人邮件地址一致！   

          ConstMailServerPassword   =   ""'smtp服务器的信箱登陆密码   

          '***************根据需要设置常量结束*****************   

          '-----------------------------以下内容无需改动------------------------------   

          On   Error   Resume   Next   

          Dim   myJmail   

          Set   myJmail   =   Server.CreateObject("JMail.Message")   

          myJmail.Logging   =   False'记录日志   

          myJmail.ISOEncodeHeaders   =   False'邮件头不使用ISO-8859-1编码   

          myJmail.ContentTransferEncoding   =   "base64"'邮件编码设为base64   

          myJmail.AddHeader   "Priority","3"'添加邮件头,不要改动！   

          myJmail.AddHeader   "MSMail-Priority","Normal"'添加邮件头,不要改动！   

          myJmail.AddHeader   "Mailer","Microsoft   Outlook   Express   6.00.2800.1437"'添加邮件头,不要改动！   

          myJmail.AddHeader   "MimeOLE","Produced   By   Microsoft   MimeOLE   V6.00.2800.1441"'添加邮件头,不要改动！   

          myJmail.Charset   =   mailCharset   

          myJmail.ContentType   =   mailContentType   

    

          If   UCase(mailCharset)   =   "GB2312"   Then   

                  myJmail.FromName   =   ConstFromNameCn   

          Else   

                  myJmail.FromName   =   ConstFromNameEn   

          End   If   

    

          myJmail.From   =   ConstFrom   

          myJmail.Subject   =   mailTopic   

          myJmail.Body   =   mailBody   

          myJmail.AddRecipient   mailTo   

          myJmail.MailDomain   =   ConstMailDomain   

          myJmail.MailServerUserName   =   ConstMailServerUserName   

          myJmail.MailServerPassword   =   ConstMailServerPassword   

          myJmail.Send   ConstMailDomain   

          myJmail.Close   

          Set   myJmail=nothing     

    

          If   Err   Then     

                  Jmail=Err.Description   

                  Err.Clear   

          Else   

                  Jmail="OK"   

          End   If   

    

          On   Error   Goto   0   

End   Function

如果需要发送，直接调用这个就可以了，非常好用 csdn大侠出品，具体是谁忘记了。。

该文章在 2011/12/23 9:14:14 编辑过

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。