Outlook VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Outlook
  4. Sending a Message
Sub sendingmess()
    Dim myMessage As MailItem
    Set myMessage = Application.CreateItem(ItemType:=olMailItem)
    myMessage.Send
End Sub