如何解决Persits.Mailsender UTF-8 编码在发送电子邮件时不起作用
我正在尝试使用经典 ASP 中的 Persits.Mailsender
对象发送包含 Unicode 字符的电子邮件
unicodeCharacters = ? 请帮助我(或您喜欢的任何字符)
Set Mailer = CreateObject("Persits.MailSender")
Mailer.Host = HOST_STRING
Mailer.FromName = sFromAddress
Mailer.From = sFromAddress
Mailer.ContentTransferEncoding = "Quoted-Printable"
Mailer.CharSet = "UTF-8"
Mailer.AddAddress "email@email.com","email@email.com"
Mailer.Subject = Mailer.EncodeHeader( sSubject,"UTF-8")
Mailer.Body = unicodeCharacters
Mailer.Send
这与我在网上找到的有关使用 persits.mailsender
对象发送 UFT8 编码电子邮件的所有内容相匹配,因此感谢您提供任何帮助
编辑:我在评论中尝试了建议的更改,但它没有修复电子邮件编码,它还破坏了调用此代码的网页上的 UTF-8 编码
解决方法
试试这个:
<%
' change to address of your own SMTP server
strHost = "smtp.myisp.net"
' Enable UTF-8 -> Unicode translation for form items
Session.CodePage = 65001 ' UTF-8 code
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = "info@aspemail.com" ' From address
Mail.FromName = Mail.EncodeHeader(Request("FromName"),"utf-8")
Mail.AddAddress Request("To")
' message subject
Mail.Subject = Mail.EncodeHeader( Request("Subject"),"utf-8")
' message body
Mail.Body = Request("Body")
' UTF-8 parameters
Mail.CharSet = "UTF-8"
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.Send ' send message
Response.Write "Message sent to " & Request("To")
End If
%>
查看官方网站了解更多信息。 http://www.aspemail.com/manual_06.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。