Email Macro works in 2007 and not in 2010

[wes mcallister]

I have a macro that sends an email. This works fine in both 2003 and 2007 when outlook is not running. But in 2010 it does not work. Any thoughts or fixes.

Sub mail_text()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim Req As String
Dim qty1 As String

strbody = "Hi Wes" & vbNewLine & vbNewLine & _
"I have created a new Requisition" & vbNewLine & _
"The Request # is " & Range("L2")

Set OutApp = CreateObject("Outlook.Application")
'Set OutApp = GetObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.Subject = "New Request # " & Range("L2")
.To = ""
'.CC = ""
'Set body format to HTML
.BodyFormat = olFormatHTML
.HTMLBody = strbody
.Display
'.Send


End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing
End Sub

 

[Derek Brown]

Have you tried commenting-out the "On Error Resume Next" and stepping through the code in debug-mode to determine exactly where it is failing?

 

[daverunt]

Hi Wes,

I normally have my Outlook open all day so I don't get this sort of problem.
I am working with 2007 and have tried mailing with Outlook closed.
If I set 'Send Immediately when connected' in Tools>Options>Mail Setup then the mail is sent otherwise it stays in the Outbox until Outlook is opened.

Perhaps 2010 is the same and the box isn't ticked?

Also I have to set the macro to use .display and .send