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