Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Sending a Message

Sub sendingmess()     Dim myMessage As MailItem     Set myMessage = Application.CreateItem(ItemType:=olMailItem)     myMessage.Send End Sub