Thanks so much worked great
"Ken Slovak - [MVP - Outlook]" wrote:
With olMsg
.Subject = "Hello world"
.Display
.Body = "Hello, here is my email!" & .Body
.Attachments.Add filePath 'filePath is the path and file name of the
attachment
End With
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm
"jason" wrote in message
...
I have a code that generates an email and fills in the subject/body. But
when I try and have it add an attachment, it generates 2 emails. Here is
what I have, how and where do I put the code to add a file as an
attachment
Sub Macro1()
Dim olApp As Outlook.Application
Dim olMsg As Outlook.MailItem
Set olApp = Outlook.Application
Set olMsg = olApp.CreateItem(olMailItem)
With olMsg
.Subject = "Hello world"
.Display
.Body = "Hello, here is my email!" & .Body
End With
Set olMsg = Nothing
Set olApp = Nothing
End Sub