How Do I attach a atachment to a VBA created email?

I’ve created an outlook email in a macro using the following code;

'Control Microsoft Outlook and create a new Email
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.To = Worksheets("Sheet1").Cells(2, 17).Value
'Assign a Subject to the Email
myItem.Subject = Worksheets("Sheet1").Cells(1, 1).Value
'Attach File to Mesage
myItem.body = ???????

'Send the Email
myItem.Send

As you can see I can't seam to figure out the Attach file command. Any help
would be greatly appreciated.

Thanks,
Dan

Hello Dan

hope this help

...
myItem.Attachments.Add "C:\Documents and Settings\fichier.txt"
...


regards
michel

Hi Dan,

Visit Ron de Bruin's web site at:

http://www.rondebruin.nl/sendmail.htm


---
Regards,
Norman



"Dan Gardner" <[email protected]> wrote in message
news:[email protected]...
> I've created an outlook email in a macro using the following code;
>
> 'Control Microsoft Outlook and create a new Email
> Set myOlApp = CreateObject("Outlook.Application")
> Set myItem = myOlApp.CreateItem(olMailItem)
> myItem.To = Worksheets("Sheet1").Cells(2, 17).Value
> 'Assign a Subject to the Email
> myItem.Subject = Worksheets("Sheet1").Cells(1, 1).Value
> 'Attach File to Mesage
> myItem.body = ???????
>
> 'Send the Email
> myItem.Send
>
> As you can see I can't seam to figure out the Attach file command. Any
> help
> would be greatly appreciated.
>
> Thanks,
> Dan
>