Extract data from emails and add to csv

To test with, I created a template in Outlook (stationery) using the html you provided above.  As you might expect Outlook added a bunch of additional markup to the message html though.  Still I believe the procedures do what you ask.  You may need to tweak it a bit.  I'm not including the parts to output to the csv file.  Let me know if you need assistance with that as well.
OM Gang

Public Sub WriteMsgDataToFile()
On Error GoTo Err_WriteMsgDataToFile

    Dim olApp As Outlook.Application
    Dim olMsgItem As Outlook.MAILITEM
    Dim strId As String
    
    Set olApp = Application
    
        'gets currently selected message item in Outlook window
    For Each olMsgItem In olApp.ActiveExplorer.Selection
        strId = ""
            'here you can retrieve the various bits of the email message.  the Sender is the name (not email address) if resolved
        'Debug.Print olMsgItem.Sender
        'Debug.Print olMsgItem.Subject
        'Debug.Print olMsgItem.HTMLBody
        
            'call to function to parse the html message body and return the section you're looking for
        strId = GetStringFromHTMLTableCell(olMsgItem.HTMLBody)
        Debug.Print strId

    Next

Exit_WriteMsgDataToFile:
    Set olMsgItem = Nothing
    Set olApp = Nothing
    Exit Sub
    
Err_WriteMsgDataToFile:
    MsgBox Err.Number & ", " & Err.Description, , "Error in procedure WriteMsgDataToFile"
    Resume Exit_WriteMsgDataToFile
    
End Sub


Public Function GetStringFromHTMLTableCell(strBody As String) As String
On Error GoTo Err_GetStringFromHTMLTableCell

    Dim strSearchString As String, strSearchString2 As String, strReturn As String
    Dim lngPosition As Long, lngPosition2 As Long
    
        'strings we're looking for in message body.  because Outlook added additional markup in my test I'm only looking for the first three characters of the table cell tag
    strSearchString = "<td"
    strSearchString2 = "</td>"
    
        'find the search string in the message body
        'note we're using the In String Reverse function so we begin our search from the end of the string (because we're looking for the last table cell tag in the table)
    lngPosition = InStrRev(strBody, strSearchString)
    lngPosition2 = InStrRev(strBody, strSearchString2)
    
        'now that we have the positions of the opening and closing table cell tags we can get the string part in between
    strReturn = Mid(strBody, lngPosition, lngPosition2 - lngPosition)
    
Exit_GetStringFromHTMLTableCell:
    GetStringFromHTMLTableCell = strReturn
    Exit Function
    
Err_GetStringFromHTMLTableCell:
    MsgBox Err.Number & ", " & Err.Description, , "Error in function GetStringFromHTMLTableCell"
    Resume Exit_GetStringFromHTMLTableCell

End Function

Select allOpen in new window

Thanks OM Gang
The code you have supplied will return the value of the first cell of the table which is the 'employee' value
What about the 'Reason' and the name from the email's to address?

Sorry, missed the part about getting the employee.  The code above does retrieve the Reason though (it retrieves the LAST cell in the table).  In your original Q you asked for the name from the To address.  The Debug.Print olMsgItem.Sender retrieves the senders name if it can resolve it, e.g. in my environment working off of a corporate Exchange server it returns 'Gang, OM'.  If you want the email address instead us olMsgItem.SenderEmailAddress.

I'll add code to retrieve the employee as well.
OM Gang

Thank you very much OM Gang!

I've requested that this question be closed as follows:

Accepted answer: 500 points for omgang's comment #a40738281

for the following reason:

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.

Thanks
Apologies for delay in awarding points!