我正在使用Dave Brooks 的 MAPI 代码。
我正在尝试以编程方式发送生成的 Crystal Report。
当我在没有线程的情况下运行代码时,一切都运行良好。问题是当我使用线程时,我得到返回错误“General MAPI failure [2]”。
我以前从未使用过线程,并且了解其中存在危险。任何人都可以提供有关此问题的任何见解吗?注意:我删除了异常处理以使代码更清晰。
Private Sub RunReport()
SetParameters()
SaveReportFile()
Dim operation As New ThreadStart(AddressOf SendEmail)
Dim theThread As New Thread(operation)
theThread.Start()
End Sub
Public Sub SendEmail()
Dim m As MAPI
m = New MAPI()
Dim email As String
For Each email In emailAddress
m.AddRecipientBCC(email)
Next email
m.AddAttachment(@"c:\temp\report.pdf")
m.SendMailPopup("Requested Report", "")
End Sub