Html 如何使用VBScript发送带有Unicode字符的电子邮件？

我有一些VBScript来发送电子邮件。但当我尝试发送Unicode文本时，结果是无法读取的。我尝试了类似于

.Charset=“UTf-8”

的方法，但没有希望。下面是我的VBScript代码；emailbody.txt文件包含如下内容“hệ điều hánh khởiđộng！”

---

使用Adodb.Stream对象读取电子邮件正文。因为FSO不支持读取utf-8编码文件。
像这样填充BodyText变量：

Dim adoStream
Set adoStream = CreateObject("Adodb.Stream")
adoStream.Open
adoStream.Charset = "UTF-8"
adoStream.LoadFromFile "emailbody.txt"
'********** !! ***************
BodyText = adoStream.ReadText(-1)
'********** !! ***************
adoStream.Close
Set adoStream = Nothing

然后，设定

iMsg.BodyPart.Charset = "utf-8"

的第4个参数允许您读取Unicode文件

iMsg.BodyPart.Charset = "utf-8"