Comments on: email macro http://itknowledgeexchange.techtarget.com/itanswers/email-macro/ Tue, 21 May 2013 23:11:32 +0000 hourly 1 By: rulebreaker http://itknowledgeexchange.techtarget.com/itanswers/email-macro/#comment-73817 rulebreaker Mon, 15 Feb 2010 14:48:25 +0000 #comment-73817 good

]]> By: smf http://itknowledgeexchange.techtarget.com/itanswers/email-macro/#comment-64459 smf Mon, 15 Jun 2009 17:16:40 +0000 #comment-64459 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

]]>