Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Adds an addressee, a subject, and body text; applies the HTML format; sets the importance to high; and sends the message

Sub message()     Dim myMessage As MailItem     Set myMessage = Application.CreateItem(ItemType:=olMailItem)     With myMessage         .To = "yourName@yourSite.com"         .Subject = "Preparation "         .Body = "review."         .BodyFormat = olFormatHTML         .Importance = olImportanceHigh         .Send     End With End Sub