Include Range in Message Body with VBA

[dgruesso]

Hello all,

I am using Ron de Bruin's VBA to send workbook as attachment.

I want to include a range in the body, however, I cannot get it to work.

I am using the following statement in the body:

.Body = Range(R23:V49).Value

Here's the full Destwb

----------------
With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.To = "email@domain.com"
.CC = ""
.BCC = ""
.Subject = "SSM Dealer Purchase Order - " & Range("L15").Value
.Body = Range(R23:V49).Value
.Attachments.Add Destwb.FullName
.Send
End With
On Error GoTo 0
.Close SaveChanges:=False
End With
----------------

Any suggestions greatly appreciated.


Thanks

 

[*shudder*]

I have had similar issues using Ron's code and had to refer to the sheet to get around this issue:

.Body = Sheets("Sheet1").Range(R23:V49).Value

Is you subject line showing correctly as this also caused me issues unless I referred to the sheet?

HTH

 

[dgruesso]

My subject line is working fine.

When I use your suggestion I get the error message:

"Compile error: Expected: list separator or )"

 

[dgruesso]

Actually I was missing the quotes after "range"


.Body = Sheets("Sheet1").Range("R23:V49").Value</pre>
Even when I reference the sheet, I still get a blank body :/