VBA Send email via Outlook issue

[gldurand]

Hi Guru's

I have the following VBA code that works very well for me, as i use application OUTLOOK 2016 as my email.

Set Mail_Object = CreateObject("Outlook.Application")
With Mail_Object.CreateItem(o)
.Subject = " "
.To = " "
.CC =
.body = " "

.Display ' change the line .Display to .Send, if you don't need to review the E-Mail

End With

The issue is that my colleague calls Outlook 2016 via CHROME and we get an executable error on

With Mail_Object.CreateItem(o)

Does anyone know what the OLE is to create object when calling Outlook via CHROME

Any help would be amazing

thanks

 

[Logit]

So long as you have Excel, this will work no matter the browser :

Option Explicit

Sub Mail_workbook_Outlook()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ""
.Body = ""
.Display
End With

On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

 

[gldurand]

Hi Logit - Thanks so much, i will try this this evening