scusa, ma io ho trovato su web questo codice per inviare una mail con allegato:

codice:
Dim o 
Dim m

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 Atta
'     chments
m.Display
'm.Send 'If you want to just send it
te lo posto come l'ho trovato, non l'ho provato......