OutLookSM

Dim o As Object
Dim m As Object
Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)
m.To = "xxxx@yyyy.com"
m.Subject = "This is the Subject"
m.Body = "Hey, this is cool!"
m.Attachments.Add "C:\Temp\FileToAttach.txt"
'Repeat this line if there are more Attachments

m.Display
'm.Send 'If you want to just send it