我的部落格

 

 

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