vb.net - (VB.net/.Net 4.0) 等待所有 SMTP SendAsync()

Question

我有一个带有 VB.net 的线程程序，它在它之后生成报告并以异步方式发送电子邮件。

它由批处理文件执行。

我面临的问题是，当并非所有 smtp 服务器 sendasync 都完成时，.bat 已关闭。但是，当我在 Web 应用程序中运行时，可能会收到电子邮件。

因此，收不到任何电子邮件。如何在流程结束之前等待所有 SMTP SendAsync 任务。

Private Sub Process()
 reportGenerating()
 fileZip()
 emailSend()
End Sub

Private Sub emailSend()
 'looping something and prepare message/attachements
 For xxxxxxx
   AddHandler client.SendCompleted, AddressOf SendMailCompletedCallBack
   client.SendAsync(message, id)
 Next
End Sub