Columns auto fit on outlook mail body

[gmayor]

The table is defined at

With oTable
    For i = 1 To oColl.Count
        vCell = Split(oColl(i), "|")
        For j = 0 To UBound(vCell)
            oTable.Rows(i).Cells(j + 1).Range.Text = vCell(j)
        Next j
    Next i
    .Style = "Table Grid"
End With

add the following before End With

.Rows(1).Range.ParagraphFormat.Alignment = 1
.Rows(1).Range.Font.Bold = True
.AutoFitBehavior 1