なぜこのコードが機能しないのか、誰か教えてもらえますか? メールは送信されますが、文字がごちゃごちゃしています。
「日本語」は「日本語」になります。
「テスト日本語 äöü」は「テスト 日本語 ã¤ã¶Ã¼」になります。
<%
Session.CodePage = 65001 ' UTF-8 code
%>
<!DOCTYPE html>
<html>
<head>
<title>MAIL TESTER</title>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body>
<%
strSubject = "日本語"
strBody = "テスト 日本語 äöü"
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Host = "..."
objEmail.From = "..."
objEmail.FromName = "..."
objEmail.AddAddress "..."
objEmail.Username = "..."
objEmail.Password = "..."
objEmail.CharSet = "UTF-8"
objEmail.ContentTransferEncoding = "Quoted-Printable"
objEmail.IsHTML = True
objEmail.Subject = objEmail.EncodeHeader(strSubject, "UTF-8")
objEmail.Body = strBody
objEmail.Send
Set objEmail = Nothing
%>
MAIL SENT.
</body>
</html>