防止后台线程"Timeout expired."错误

Question

我的页面上有点击事件的以下代码部分：

Dim ts As New ThreadStart(AddressOf SendEmails)
Dim t As New Thread(ts)
t.IsBackground = True
t.Start()

这操作了发送1000封时事通讯电子邮件的SendEmails方法。

然而，这似乎是超时了，因为我已经能够记录以下错误：

超时已过期。在操作完成或服务器没有响应之前经过的超时时间

如何增加超时时间以允许发送1000封电子邮件？

Answer 1

在"SendEmails"函数中显示一些代码会有所帮助。超时可能发生在SMTP级别。。。查看错误消息，也可能是服务器关闭了SMTP连接。了解您正在连接的电子邮件服务器也会有所帮助。如果是Exchange服务器，管理员可能对SMTP连接器有一些限制，无法通过一个连接发送大量电子邮件，这可能就是问题所在。你能发送大约10或50封电子邮件吗。。。或者任何电子邮件？

另一个注意事项-尝试使用BackgroundWorker