Email Macro-using range for email address,ccc,bcc,subject and body.Office Outlook as email

[Paul Morgan]

Has anyone an Easy Email Macro for Excel?
I want to use ranges as the Email address,cc.bcc.subject and body.

Thanks.

 

[davesexcel]

Sub SendEmail()
Dim OutlookApp As Object
Dim mItem As Object
Dim Cell As Range
Dim Subj As String
Dim EmailAddr As String
Dim Body As String
Dim cc As String
Dim bcc As String

Set OutlookApp = CreateObject("Outlook.Application")

EmailAddr = Range("B1")
cc = Range("B2")
bcc = Range("B3")
Subj = Range("B4")
Body = Range("B6")

Set mItem = OutlookApp.createitem(0)

With mItem
.To = EmailAddr
.Subject = Subj
.Body = Body
.cc = cc
.bcc = bcc
.display
' .send   'use this when you want to send.
End With

ExitPoint:
Set OLMsg = Nothing

End Sub

An example of the workbook can be found here.
http://www.davesexcel.com/emailfromexcel.htm

 

[mfield2574]

Has anyone an Easy Email Macro for Excel? I want to use ranges as the Email address,cc.bcc.subject and body. Thanks.

Is there a way to attach files to this mail item?
Thanks!

 

[mfield2574]

nm....found the answer