Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

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