Option Explicit
Public Sub create_mail()
Dim appOut As Outlook.Application
Dim outMail As Outlook.MailItem
Set appOut = CreateObject("Outlook.Application")
Set outMail = appOut.CreateItem(olMailItem)
With outMail
.HTMLBody = "" & _
"<table border=""1"">" & _
"<tr>" & _
"<th>Firstname</th>" & _
"<th>Lastname</th>" & _
"<th>Age</th>" & _
"</tr>" & _
"<tr>" & _
"<td style=""width:50px"">Jill</td>" & _
"<td style=""width:50px"">Smith</td>" & _
"<td style=""width:25px"">50</td>" & _
"</tr>" & _
"<tr>" & _
"<td style=""width:50px"">Eve</td>" & _
"<td style=""width:50px"">Jackson</td>" & _
"<td style=""width:25px"">94</td>" & _
"</tr>" & _
"</table>"
.Display
End With
Set outMail = Nothing
Set appOut = Nothing
End Sub