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
'=======清除亂碼結束=====
objMessage.Subject = aSubject '郵件主題
objMessage.From = FromAddress '發信人
objMessage.To = ToAddress '收信人
objMessage.HtmlBody = aBody 'HTML郵件主文
objMessage.Addattachment AttachFile
全站熱搜
留言列表