VB.NETからGmail経由でメールを送信について

VB.NETからGmail経由でメールを送信について

いつも大変お世話になっています。
VB.NETからGmail経由でメールを送信についてご教授願います。

Dim mailMessage As New System.Net.Mail.MailMessage _
([送信元アドレス], [送信先アドレス], "題名", "本文")

Dim smtpClient As New System.Net.Mail.SmtpClient _
("smtp.gmail.com")

smtpClient.Credentials = New System.Net.NetworkCredential _
([送信元アドレス], "パスワード") ' << ※１

'smtpClient.EnableSsl = True　’<< ※２

smtpClient.Port = 587

smtpClient.Timeout = 10000

smtpClient.Send(mailMessage)

＜問題＞
「送信できませんでした」とのエラーメッセージが表示。

＜所感＞
※１で[送信元アドレス]を設定しているのが原因？？
※２[True]/[False]を変更しても送信できませんでした。

No.1 ベストアンサー 回答者： devilconan 回答日時： 2010/09/14 13:28

tekesuta_1985さんのソースをみても、悪くなさそうですが、意外とルータやファイアウォールでポート番号587空いていないって落ちはないでしょうか？

あと下のソースで送信してみたら私の環境ではgmailからyahooへ送信できました。(asp.netですが。多分変わんないと思います。)

tekesuta_1985さんのとあまり変わりませんが、一度使ってみてください。
あと作成の参考にしたサイトも載せておきます。


'MailMessageの作成
Dim msg As New System.Net.Mail.MailMessage()
'送信者
msg.From = New System.Net.Mail.MailAddress("[e-mail]", "送信者の名前")
'宛先
msg.To.Add(New System.Net.Mail.MailAddress("[e-mail]", "宛先の名前"))
'件名
msg.Subject = "ここに件名"
'本文
Dim strbText As New StringBuilder
strbText.AppendLine("一行ずつ本文")
strbText.AppendLine("一行ずつ本文")
strbText.AppendLine("一行ずつ本文")

msg.Body = strbText.ToString
Dim sc As New System.Net.Mail.SmtpClient()
'SMTPサーバーを指定する
sc.Host = "smtp.gmail.com" '←SMTPサーバ指定
sc.Credentials = New System.Net.NetworkCredential("[e-mail]", "password") '←SSL認証用ユーザー名（メールアドレス）とパスワードを指定
sc.Port = "587" 'ポートを指定
sc.EnableSsl = True 'SSL認証を使うか指定

'メッセージを送信する
sc.Send(msg)

'後始末
msg.Dispose()

参考URL：http://d.hatena.ne.jp/hsb_kuma/20080221/1203581416

この回答へのお礼

レスありがとうございます！
>意外とルータやファイアウォールでポート番号587空いていないって落ちはないでしょうか？

盲点でした。その可能性が高いかもしれません。
調べてみます。ありがとうございました。ｍ(＿＿)ｍ

また、引き続き質問をするかもしれません。
その時は、お手すきの時で結構ですのでご助言ください。
よろしくお願い致します。

お礼日時：2010/09/14 15:31