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

arrow
arrow
    全站熱搜

    司馬庫斯 發表在 痞客邦 留言(0) 人氣()