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