Hi Group,
I'm attempting to add two Excel ranges to the body of an email. I've figured out how to do one. But I'm now having to modify my script to show two. Here is the code I've written:
With OutMail
.To = emailAdd
.CC = ""
.BCC = ""
.Subject = "Corporate Transient Accept Rate Audit " & auditDate & " / " & propName & " (#" & propID & ")"
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & greeting & "<br><br>" & _
paragraph1 & "<br><br>" & _
paragraph2 & "<br><br>" & _
paragraph3 & "<br><br>" & _
paragraph4 & "<br><br>" & _
"<span style=""background-color: #FFFF00""><b>" & paragraph5 & "</b></span>" & "<br><br>" & _
"<strong><span style=""text-decoration:underline;"">" & "Lanyon Submit Audit Results:" & "</span></strong><br>"
' Here is where the fail starts:
RangetoHTML2 (rng2) & _
"<br><br>" & _
"<strong><span style=""text-decoration:underline;"">" & "Lanyon Accept Audit Results:" & "</span></strong><br>"
' this ends the yellow highlighted area (above). I suspect the area below will error for the same reason.
RangetoHTML1 (rng1) & "<br><br>" & _
Signature & "</BODY>"
.Display
End With
Is there an appropriate way to code this to insert two ranges into the body of the email?
In advance, thanks for your help.
Don
I'm attempting to add two Excel ranges to the body of an email. I've figured out how to do one. But I'm now having to modify my script to show two. Here is the code I've written:
With OutMail
.To = emailAdd
.CC = ""
.BCC = ""
.Subject = "Corporate Transient Accept Rate Audit " & auditDate & " / " & propName & " (#" & propID & ")"
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & greeting & "<br><br>" & _
paragraph1 & "<br><br>" & _
paragraph2 & "<br><br>" & _
paragraph3 & "<br><br>" & _
paragraph4 & "<br><br>" & _
"<span style=""background-color: #FFFF00""><b>" & paragraph5 & "</b></span>" & "<br><br>" & _
"<strong><span style=""text-decoration:underline;"">" & "Lanyon Submit Audit Results:" & "</span></strong><br>"
' Here is where the fail starts:
RangetoHTML2 (rng2) & _
"<br><br>" & _
"<strong><span style=""text-decoration:underline;"">" & "Lanyon Accept Audit Results:" & "</span></strong><br>"
' this ends the yellow highlighted area (above). I suspect the area below will error for the same reason.
RangetoHTML1 (rng1) & "<br><br>" & _
Signature & "</BODY>"
.Display
End With
Is there an appropriate way to code this to insert two ranges into the body of the email?
In advance, thanks for your help.
Don
