J
John
Hi
I am sending a number of emails (around 600) using the vb.net code below.
The problem is that the emails end up in the OL2007 Outbox with a clock icon
and do not go out. If I open one of the email items and click Send then that
item goes out but this technique is too cumbersome for 600 or so emails.
What is the problem and how can I fix it?
Many Thanks
Regards
Dim objOutlook As Object = CreateObject("Outlook.Application")
Dim NS As Object = objOutlook.GetNamespace("MAPI")
Dim objOutlookMsg As Object
Dim BodyText As String
Dim fso, ts
fso = CreateObject("Scripting.FileSystemObject")
ts = fspenTextFile(Me.txtHtml.Text.ToString, 1)
BodyText = ts.ReadAll
NS.Logon()
While ....
' Create the message.
objOutlookMsg = objOutlook.CreateItem(0)
objOutlookMsg.To = "some address"
objOutlookMsg.Subject = "some subject"
objOutlookMsg.HTMLBody = BodyText
objOutlookMsg.send()
objOutlookMsg = Nothing
System.Windows.Forms.Application.DoEvents()
End While
NS.Logoff()
NS = Nothing
objOutlook = Nothing
I am sending a number of emails (around 600) using the vb.net code below.
The problem is that the emails end up in the OL2007 Outbox with a clock icon
and do not go out. If I open one of the email items and click Send then that
item goes out but this technique is too cumbersome for 600 or so emails.
What is the problem and how can I fix it?
Many Thanks
Regards
Dim objOutlook As Object = CreateObject("Outlook.Application")
Dim NS As Object = objOutlook.GetNamespace("MAPI")
Dim objOutlookMsg As Object
Dim BodyText As String
Dim fso, ts
fso = CreateObject("Scripting.FileSystemObject")
ts = fspenTextFile(Me.txtHtml.Text.ToString, 1)
BodyText = ts.ReadAll
NS.Logon()
While ....
' Create the message.
objOutlookMsg = objOutlook.CreateItem(0)
objOutlookMsg.To = "some address"
objOutlookMsg.Subject = "some subject"
objOutlookMsg.HTMLBody = BodyText
objOutlookMsg.send()
objOutlookMsg = Nothing
System.Windows.Forms.Application.DoEvents()
End While
NS.Logoff()
NS = Nothing
objOutlook = Nothing