RangetoHTML to include table headers

[dshafique]

Hi everyone, I have this program which automatically sends out an email to people who match a criteria in my spradsheet. the email includes a message and their corresponding row. is there a way for me to also include the table header as well?
this is what I have:

 With OutMail        .To = cl.Offset(0, 1).Value
        .CC = cl.Offset(0, 6).Value
        .BCC = ""
        .Subject = "CIO Scorecard - Finding Number " & cl.Offset(0, 3) & " Review For the Month of " & MonthName(Month(Date))
        .HTMLBody = "Hi Folks, " & "<br>" & "<br>" & _
        "Can you please take a look at the following Findings and advise whether it can be closed or extended? Reporting on expired items for the business review meeting on " & _
        Range("U2") & "<br>" & RangetoHTML(Range("A" & cl.Row, "L" & cl.Row)) & "<br>" & "<br>" & "Thanks"
        .Display
    End With

my table's name is IRI, i even tried adding

RangetoHTML(Range("IRI[#Headers]))

but the columns dont line up.

I'm new to using macros with outlook, any and all support would be greatly appreciated, thanks!

 

[Norie]

If you want to get the entire table you can use Sheets("Sheet1").ListObjects("IRI").Range, changing Sheet1 for the appropriate sheet name.

 

[dshafique]

so im not necessarily trying to get the whole table, each person has a row assigned to them, and I only want them to see that row and the header of the tables.