Email attachemnts

[Jasperuk]

What do i have to do to the following code to get it to attach a file to the email ?

Sub SendMail() ' This routine will work will all incarnations of VBA
Dim myOutlook As Object
Dim myMailItem As Object
Set myOutlook = CreateObject("Outlook.Application")
Set myMailItem = myOutlook.createitem(0)
myMailItem.Recipients.Add "send.to@home"
myMailItem.Recipients.Add "send.to@home"
myMailItem.Subject = "Automated Email Test"
myMailItem.body = "Please do not reply to the test automation email"
myMailItem.send
Set myOutlook = Nothing
End Sub

Cheers

 

[freakazeud]

re:

You're question was answered here!

 

[Jasperuk]

Cheers Much Appreciated