2008年9月14日 星期日

Email 簡體轉繁體寄送

Dim objMail As New MailMessage

' 用UTF8 編碼

objMail.BodyEncoding = Encoding.UTF8

......

' 轉為繁體
objMail.Subject = StrConv(v_subject, VbStrConv.TraditionalChinese, 1033)
objMail.Body = StrConv(v_body, VbStrConv.TraditionalChinese, 1033)