I expect that Outlook is open, just not visible. Set a breakpoint after the Set line, run procedure, when it stops on the breakpoint, check Windows Task Manager to see if Outlook is listed under Processes but not Applications. This works for me:
Code:
Public Sub TestEmail()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = "email address"
''.cc = ""
''.bcc = ""
.Subject = "HTML TEST"
.HTMLBody = "<HTML><body>" & _
"<font color='red'>This is a test</font>" & _
"<body><HTML>" & _
Chr(10) & Chr(13) & Now
''.Attachments.Add (strZip)
.DeleteAfterSubmit = True 'to not save in sent bin
.Display
.Send
End With
End Sub