Adding an Attachment to a Message : Email Attachment « Outlook « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Outlook
3. Email Attachment

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

 

Related examples in the same category