林です。
MVPの方々からいろんな意見を頂戴して恐縮です。
エンコードではまった現象をついでにひとつ。
Exchange2007に変更してから本文が化けているスパムメールが多くなったなぁと思っていたのでMSに調査を依頼しました。(まったく同じスパムメールがExchange2003では化けていなかったので)
送信元が特定できないと調査が難しいということになって行きづまっていたのですが、協力会社から届いたメールも文字化けしていることが判明。
確認してもらうと.Netから送信したとのこと。
確認のためExchange2003のほうへまったく同じメールを送信してもらうとまったく化けません・・・。
MSにサンプルコードと一緒にこの旨を伝え、調査してわかったことは下記のとおりです。
＜＜回答抜粋＞＞
お問い合わせいただきました現象につきまして、送付したメッセージを確認させていただいたところ、本文が Shift_JIS でエンコードされているにも関わらず、charset が iso-2022-jp となっており、本文のエンコードと charset のエンコード指定が異なっているために、Exchange 2007 で受信したメッセージが正しく表示されておりませんでした。そこで、送信元を確認していただいたところ、.net のプログラムからメッセージを送付したときに、GetEncoding を使用して本文を Shift_JIS でエンコードしているにも関わらず、charaset が shift_jis ではなく iso-2022-jp が指定されていることが原因となっていることを確認いただきました。
.Netの不具合だということで決着したのですが、これもExchange2003で文字化けしないので、なんだかなぁ～なんですよ。
スパムメールで文字化けしているのってみんな.Netで送信してるんでしょうね。
大量に送信しなきゃならんってことでプログラム書いてるんでしょうが、変に納得させられちゃいました。(笑)
参考のためサンプルつけときます。
Imports System.Net.Mail
Private Function SendMail() As Boolean
Dim message As New MailMessage
Try
mailBody = mailBody & "得意先名称 御中" & ControlChars.CrLf
' メッセージを作成する。
With message
.Subject = "メールテスト"
.SubjectEncoding = System.Text.Encoding.GetEncoding("shift_jis")
.BodyEncoding = System.Text.Encoding.GetEncoding("shift_jis")
.IsBodyHtml = False
.Priority = Net.Mail.MailPriority.Normal
.Body = mailBody
.From = New MailAddress("aaa@aaa.aaa", ""メールアドレス", System.Text.Encoding.GetEncoding("shift_jis"))
.To.Add(New MailAddress("aaa@aaa.aaa", ""メールアドレス", System.Text.Encoding.GetEncoding("shift_jis")))
End With
' SMTPサーバを指定する。
client = New SmtpClient("xxx.xxx.xxx")
' メールを送信する。
client.Send(message)
MsgBox("送信完了")
Return True
Catch ex As SmtpException
MsgBox(ex)
Return False
Finally
message.Dispose()
End Try
End Function
