Hi,
See the code below - this is a example of how to automate the sending of emails with attachments. If you step through the code you will see which lines to change to suit your needs - you can attach multiple files by repeating the "attachments.add" instruction.
Sub OUTLOOK_test_Email()
'creates link to Outlook
Dim objOL As New Outlook.Application
Dim objMail As MailItem
On Error Resume Next
Set objOL = New Outlook.Application
Set testsemail = objOL.CreateItem(olMailItem)
'sets charactersitics for email
With testsemail
'requests a read confimeration receipt for the email
.ReadReceiptRequested = True
'sets receipent
.To = "Testing, Testing"
'enters subject
.Subject = "Test Email"
'displays email to allow manipulation fro comments
.Display
'enters text for email
.Body = "Testing Email"
attach1 = .Attachments.Add("c:temptest.xls", , 60)
End With
End Sub
Hope this helps,
Dognz