使用 ASP 和 CDOSYS 发送不同语言的邮件

Question

我想发送一封使用阿拉伯语文本作为主题行的电子邮件。

该代码段将消息正文的特殊字符正确转换为阿拉伯文本，但未能将消息主题转换为阿拉伯文本。

我想知道我缺少什么？

      Set objCDOSYS = Server.CreateObject("CDO.Message")
      Set objCDOConf = CreateObject("CDO.Configuration")
      Set objCDOFields = objCDOConf.Fields

      objCDOFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      objCDOFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
      objCDOFields.Update

      Set objCDOSYS.Configuration = objCDOConf
      objCDOSYS.MimeFormatted=True 
      objCDOSYS.BodyPart.Charset = "Windows-1256"

      objCDOSYS.From = Trim(Request.Form("frmSender"))
      objCDOSYS.To = Trim(Request.Form("frmRecipient"))

      objCDOSYS.Subject =Request.Form("frmSubject")
      objCDOSYS.HTMLBody = Trim(Request.Form("frmMessage")) 

      objCDOSYS.HTMLBodyPart.charset = "Windows-1256"
      objCDOSYS.Fields.update

      objCDOSYS.Send
      Set objCDOFields = Nothing
      Set objCDOConf = Nothing
      Set objCDOSYS = Nothing

Answer 1

更改为 UTF-8 字符集值得一试：-

objCDOSYS.HTMLBodyPart.charset = "UTF-8"

我认为这将导致 Jirapong 尝试的编码类型，但 CDOSYS 会为您做到这一点。不幸的是，我知道它不适用于电子邮件地址中的显示名称。

Answer 2

您可能需要使用“=？UTF-8？B？”位于主题和阿拉伯语 Base64 编码字符串前面。

objCDOSYS.Subject = "=?UTF-8?B?" + Base64Encode(Request.Form("frmSubject"))

Base64Encode 函数可以在 - http://nolovelust.com/post/ 找到classic-asp-base64-encoder-decoder.aspx

注意：我自己也尝试过。所以不是100%确定。

Answer 3

对我来说，这 4 项的组合有效：

session.codepage=65001
Response.Charset = "utf-8" 
objMessage.HTMLBodyPart.Charset = "utf-8"
objMessage.BodyPart.Charset = "utf-8"