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

  • Thread starter Thread starter Paul Morgan
  • Start date Start date
P

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.
 
Code:
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
 
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! :)
 
Back
Top