如何使用多线程在VB.NET中发送电子邮件？

 

因此，我有一个 包含许多电子邮件的 ListView，并希望将某些消息发送到那些电子邮件，但是使用 多线程处理， 因为如果不这样做，应用程序将停止响应。我也想将该消息发送X次到同一封电子邮件，然后再通过多线程传递给另一封电子邮件  。

 

请记住，这 不是 垃圾邮件发送者，因为每个人都在另一个论坛上对我说。我正在今年的上一个学校项目中这样做，因此我选择制作一个批量电子邮件发件人。

 

这就是我的代码：

 

 Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click

    Try

        Dim Smtp_Server As New SmtpClient

        Dim danielmail As New MailMessage()

        Smtp_Server.UseDefaultCredentials = False

        Smtp_Server.Credentials = New Net.NetworkCredential(usertxt.Text, passtxt.Text)

        Smtp_Server.Port = portxt.Text

        Smtp_Server.EnableSsl = True

        Smtp_Server.Host = smtptxt.Text

 

        danielmail = New MailMessage()

        danielmail.From = New MailAddress(fromtxt.Text)

        danielmail.To.Add(totxt.Text)

        danielmail.Subject = "Email Sending"

        danielmail.IsBodyHtml = False

        danielmail.Body = msgtxt.Text

        Smtp_Server.Send(danielmail)

        MsgBox("Dear Daniel, your email has been sent.")

 

    Catch error_t As Exception

        MsgBox(error_t.ToString)

    End Try

End Sub

这是我的照片，显示我在寻找什么：

 

http://i.im/04ZJwml.png

 

我对VB.NET并不是很熟悉，这就是为什么我要某人来帮助我。我不是要完成整个项目，只是想要一个很好的帮助，我就像VB.NET的0技能一样，但是需要完成这项工作，我愿意从您那里得到任何帮助。

 

 

答：您可以使用SmtpClient.SendAsync方法发送电子邮件。由于该方法不会阻止调用线程，因此应用程序将保持响应状态。有关更多详细信息，您可以检查官方链接