Border/table in Email .Body

[Patriot2879]

Hi good afternoon please can you help me with the code below, i am trying to put a border/table around the body of the listbox that gets added into the email if you can help please? this is the code i have below.

Private Sub CommandButton11_Click()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
     
    .To = "test@gmail.com"
    .subject = "Chaser"
    .Body = Me.ListBox2.Column(1) & ", " & Me.ListBox2.Column(2) & ", " & Me.ListBox2.Column(3) & ", " & Me.ListBox2.Column(4) & ", " & Me.ListBox2.Column(5)
    .Display
  End With
 
  Set OutMail = Nothing
  Set OutApp = Nothing
 
End Sub

 

[Micron]

You need to use .HtmlBody, not Body, and include html code that builds your table and places your referenced values within the table cells. If you don't know how to write html for a table, research that at W3 schools. As for wrapping a border around the email content, I don't know what that means or if it's possible.