Dim mailsend As New MailMessage() With mailsend .SubjectEncoding = [Encod] .BodyEncoding = [Encod] .From = New MailAddress([送信元アドレス], [システム名], [Encod]) '送信 .To.Add(New MailAddress([送信先アドレス], [送信先名], [Encod])) '宛先 .Subject = [サブジェクト] .Body = [本文] End With ' Dim smtp As New SmtpClient() smtp.Host = [メールサーバ] smtp.Port = [ポート(587)] ' smtp.Send(mailsend) ' mailsend.Dispose()
DOBON.NETプログラミング掲示板過去ログ
分類:[.NET]
次のソースでメール送信を行っています。
Dim mailsend As New MailMessage()
With mailsend
.SubjectEncoding = [Encod]
.BodyEncoding = [Encod]
.From = New MailAddress([送信元アドレス], [システム名], [Encod]) '送信
.To.Add(New MailAddress([送信先アドレス], [送信先名], [Encod])) '宛先
.Subject = [サブジェクト]
.Body = [本文]
End With
'
Dim smtp As New SmtpClient()
smtp.Host = [メールサーバ]
smtp.Port = [ポート(587)]
'
smtp.Send(mailsend)
'
mailsend.Dispose()
※[Encod]：各携帯に合わせたエンコードをセット
環境：VisualStudio 2005 & Framework2.0
送信先が携帯電話の場合は問題ないのですが、
スマートフォン（キャリア問わず)では、本文が文字化けしてしまいます。
サイト検索などで、情報を探しているのですが中々見つからず・・・
（DOBON.NETさんの過去ログ「auスマートフォンにメールした時の本文文字化け」は参照させていただきました）
原因や解決策をご存知でしたら、
ぜひ、ご教授願えませんでしょうか。
宜しくお願いいたします。