' Add reference Microsoft Outlook Object Library
Sub SendEmailMesssage()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = "toname@test.com"
.Subject = "Excel VBA to Outlook Message Example"
.Body = "This is an automated message from Excel."
.Display
'.Send 'Using send will directly send the mail
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts