Set objMessage = CreateObject("CDO.Message")
'========清除亂碼開始======
objMessage.BodyPart.Charset = "utf-8"
objMessage.BodyPart.Fields.Item _
("urn:schemas:mailheader:content-transfer-encoding") = "base64"
objMessage.BodyPart.Fields.Update
- 11月 15 週五 201317:23
VBS 清除中文亂碼
Set objMessage = CreateObject("CDO.Message")
'========清除亂碼開始======
objMessage.BodyPart.Charset = "utf-8"
objMessage.BodyPart.Fields.Item _
("urn:schemas:mailheader:content-transfer-encoding") = "base64"
objMessage.BodyPart.Fields.Update
1
