VBA Send mail not working with Task Scheduler

[lxondecks]

Hi Guys,

I am trying to use the below code to send an Excel workbook via email.
The code works perfectly fine when manually running the macro, or with task scheduler set to "Run only when user is logged on"

However when change to "Run whether user is logged on or not" or Tick "run with highest privileges"
I get a Runtime Error 429 ActiveX cant create object
Any assistance would be much appreciated.


Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")

Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ""
.Body = "."
.Attachments.Add Application.ActiveWorkbook.FullName
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

 

[Logit]

.
I tried your macro with SEND and with DISPLAY. Both worked fine here.

Option Explicit

Sub sndmail()
Dim OutlookApp As Object
Dim OutlookMail As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)

On Error Resume Next
    
    With OutlookMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = "."
        .Attachments.Add Application.ActiveWorkbook.FullName
        .Send
    End With
    
Set OutlookMail = Nothing
Set OutlookApp = Nothing

End Sub

 

[lxondecks]

Thanks. Yes the macro seems fine when running manually. But when I setup a task scheduler so that the workbook is opened automatically I get a runtime 429 error.

I read somewhere it may be caused by outlook being already open, but I've not managed to find a resolution.