Export Word Table into Outlook Email Body

[gmayor]

Presumably these cells are in the table being copied? That being the case add a couple of declarations at the top

Dim oCell As Range
Dim strSubject As String

Modify the code as follows

If ActiveDocument.Tables.Count > 0 Then
        Set oCell = ActiveDocument.Tables(1).Cell(2, 2).Range
        oCell.End = oCell.End - 1 'remove the cell end character
        strSubject = oCell.Text
        Set oCell = ActiveDocument.Tables(1).Cell(2, 4).Range
        oCell.End = oCell.End - 1'remove the cell end character
        'Add the cell text to the subject string
        strSubject = strSubject & Chr(32) & oCell.Text

and insert the subject string into the message

.Subject = strSubject