COMException neošetrená chyba pri odosielaní e-mailu pomocou programu Outlook pomocou programu VB.Net - vb.net, outlook, comexception

Mám nasledujúci kód na odosielanie e-mailov ľuďom, ktorých podrobnosti sa získavajú z databázy:

Dim oMsg As Outlook._MailItem
Dim objOL As Outlook.Application
objOL = New Outlook.Application()
oMsg = objOL.CreateItem(Outlook.OlItemType.olMailItem)

con = New OleDbConnection("provider=SQLOLEDB;data source=pc;initial catalog=DB1;integrated security=SSPI")
cmd = New OleDbCommand("select column1, column2, column3, column4 from table1 where <condition>", con)
con.Open()
r = cmd.ExecuteReader
While r.Read
oMsg.Subject = "Subject"
oMsg.Body = "Hello " & r.Item(0) & vbLf & vbCr & "How are " & r.Item(1) & " and" & r.Item(2) & vbLf & vbCr & " ? "
oMsg.To = r.Item(3).ToString
oMsg.Send()
End While
con.Close()
oMsg = Nothing
objOL = Nothing

Problém je v tom, že po odoslaní prvého e-mailu mi nedôjde k chybe COMException, v ktorej sa uvádza, že položka bola presunutá alebo odstránená. Čo je tu zle?

odpovede:

Verím, že potrebujete novú správu programu Outlook vždy prostredníctvom slučky:

Dim oMsg As Outlook._MailItem
Dim objOL As Outlook.Application
objOL = New Outlook.Application()

con = New OleDbConnection("provider=SQLOLEDB;data source=pc;initial catalog=DB1;integrated security=SSPI")
cmd = New OleDbCommand("select column1, column2, column3, column4 from table1 where <condition>", con)
con.Open()
r = cmd.ExecuteReader
While r.Read
oMsg = objOL.CreateItem(Outlook.OlItemType.olMailItem)

oMsg.Subject = "Subject"
oMsg.Body = "Hello " & r.Item(0) & vbLf & vbCr & "How are " & r.Item(1) & " and" & r.Item(2) & vbLf & vbCr & " ? "
oMsg.To = r.Item(3).ToString
oMsg.Send()

oMsg = Nothing
End While
con.Close()
objOL = Nothing