Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

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