メール送信について

解決済

質問者：NAGA-P
質問日時：2004/09/03 13:38
回答数：1件

BASPを使用しないコーディングを行いたく、下記サンプルのとおり記述すると送信はうまく行えました。
そこで、追加機能としてSMTPサーバーのタイムアウトの設定を行いたいですが、方法はないでしょうか？
ちなみに、BASPのServerプロパティでは、ポート番号と通信タイムアウト値（秒単位）が指定可能なようです。
よろしくお願いします。

Dim from As String = "from@microsoft.com"
Dim mailto As String = "to@microsoft.com"
Dim subject As String = "UtilMailMessage001"
Dim body As String = "<html><body>UtilMailMessage001 - success</body></html>"
SmtpMail.SmtpServer = "MyMailServer"
SmtpMail.Send(from, mailto, subject, body)

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： todo36
回答日時：2004/09/03 16:19

System.ThreadingThreadクラスを使って、SmtpMail.Sendを別スレッドで実行して

x秒間応答がなければAbortするとか。

private bool ans = false;

public bool SendMail()
{
Thread thread = new Thread(new ThreadStart(this.run));
thread.Start();
thread.Join(TimeSpan.FromSeconds(15));//タイムアウト
if (ans) {
return true;
} else {
thread.Abort();
return false;
}
}

private void run() {
SmtpMail.Send(*);
ans = true;
}