Outlook VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Outlook
  4. Adding an Attachment to a Message
Sub attach()
    Dim myMessage As MailItem
    Set myMessage = Application.CreateItem(ItemType:=olMailItem)
    myMessage.Attachments.Add _
        Source:="C:\g.ppt", _
        Position:=1, DisplayName:="Downsizing Presentation"
End Sub