Smf
40 pts. | Jun 15 2009 5:16PM GMT
If you have Outlook as your email and using Excel for the macro
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject(”Outlook.Application”)
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = strEmail
.Subject = strSubject
.Body = strbody
‘get each file to attach
.Attachments.Add strFile
.Display ‘Or use Send to send without looking at the email first
End With
Set OutMail = Nothing
Set OutApp = Nothing






