|
分類:[VB.NET/VB2005 以降]
Outlook Express6.0からメール送信できるのですが、 VB2008で組んだプログラムから送信できません。
ソースは下記のとおりです。 Sendメソッドで『操作がタイムアウトしました。』となってしまします。 どなたかアドバイスを頂けると助かります。よろしくでお願いします。
ちなみに、Outlookのアカウント設定なのですが、 通常の設定のほかに、 [アカウントプロパティ] サーバータブの送信メールサーバー欄の「このサーバーは認証が必要」にチェックを入れ 詳細設定タブのサーバーのポート番号欄の「このサーバーはセキュリティで保護された接続(SSL)が必要」 にチェックを入れると、Outlookからメール送受信できる状態になります。
Dim msg As New System.Net.Mail.MailMessage( _ "XXXXXXXXX@XXXXX.XXXX.ne.jp", "XXXXXXX@hotmail.co.jp", "題名", "本文") Dim sc As New System.Net.Mail.SmtpClient("XXXX.XXXX.ne.jp", XXX)
'ユーザー名とパスワードを設定する sc.Credentials = New System.Net.CredentialCache
sc.Credentials = New System.Net.NetworkCredential("アカウント", "パスワード") sc.EnableSsl = True sc.Timeout = 3000 'メッセージを送信する sc.Send(msg) '後始末 msg.Dispose()
|