Wpis z mikrobloga

@dokonttupta: A, okłamałem Cię. Jeszcze przez VBA się da :)

Sub NewMessageWithAttachment()
Dim oMsg As Outlook.MailItem
Set oMsg = Application.CreateItem(olMailItem)
With oMsg
.Attachments.Add "C:\Attachment.doc"
.Display
End With
End Sub