Sending Emails via Outlook using Excel VBA

[Badriah]

Hi everyone,

I'm trying to send a simple email from Excel using VBA. I'm using the following macro on a Windows system with Outlook installed:

Sub SendSimpleEmail()
    Dim OutApp As Object
    Dim OutMail As Object


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


    With OutMail
        .To = "example@example.com"
        .Subject = "Test Email"
        .Body = "This is a test email from Excel VBA."
        .Display
    End With
End Sub

Here are my questions:

1. What is the purpose of CreateObject("Outlook.Application")?
2. How can I attach the current workbook automatically to this email?
3. Is there any way to make this kind of email macro work on a Mac?

Thanks in advance for your guidance!

 

[Marc L]

Hi, as CreateObject statement is specific to Windows to link the Outlook application it can not work on Mac, like explained in VBA help …​

​

 

[Logit]

Your macro works with the OLD VERSION MS Outlook. If you are using the NEW VERSION of Outlook you are out of luck.
MS changed the new version so it no longer supports sending email via VBA Excel.

 

[Belleke]

MS changed the new version so it no longer supports sending email via VBA Excel.

As I remember it never did in MS outlook (old or new) MS outlook is not office outlook.
I work with office 365 an have about 20 different mail codes (including send workbook as attachment) that still are working.
But Marc L is right it will not work on a Mac.