Adding a Sheet to an Email Body

[fben96]

Hey, I am currently using this code that I found online and modified. It works great for emailing a range of data from a sheet, "Completion Summary". I was wondering if there was anyway to add in another sheet to be incorporated into the email. I like this way because it puts the sheet in the email body not a whole new workbook. Here is what I am currently running. As I said, this is no my code I have just made some change to it.

Sub Mail_Sheet_Outlook_Body()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set rng = Nothing
Set rng = Sheets("Completion Summary").UsedRange
'You can also use a sheet name
'Set rng = Sheets("YourSheet").UsedRange
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "This is a test"
.HTMLBody = RangetoHTML(rng)
.Send 'or use .Display
End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[daverunt]

Hi

you can use 2 ranges

Set rng = Range(~~)
Set rng2 = Range(~~)

.HTMLBody = RangetoHTML(rng) & RangetoHTML(rng2)

If you don't like a space between the content in the mail you can join the ranges first

Set rng = Range(~~)
Set rng2 = Range(~~)

Set rng3 = Union(rng, rng2)

.HTMLBody = RangetoHTML(rng3)