Send out email : Email Send « Outlook « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Outlook
3. Email Send

Send out email

 
Sub Send_Msg()
    Dim objOL As New Outlook.Application
    Dim objMail As MailItem
   
    Set objOL = New Outlook.Application
    Set objMail = objOL.CreateItem(olMailItem)
   
    With objMail
        .To = "name@domain.com"
        .Subject = "Automated Mail Response"
        .Body = "This is an automated message from Excel. " & _
            Format(Range("A1").Value, "$ #,###.#0") & "."
        .Display
    End With
   
    Set objMail = Nothing
    Set objOL = Nothing
End Sub

 

Related examples in the same category