'#####################################
'# HTML Daten lesen, mit HTML Tabelle als Einsprungspunkt
Private Function FetchMailData(HTMLTable As MSHTML.HTMLTable, ByRef MailData As MailDataType) As Boolean
   
  On Error GoTo ErrHandler
   
'# Daten oberhalb von HTMLTable lesen
  With CreateObject("VBScript.RegExp")
     
    .Global = True
    .IgnoreCase = True
    .MultiLine = True
     
    Dim str As String
'    "Acceptance date : 06/10/2020"            -> '06/10/2020'
'    "Request approuved for Max Mustermann"    -> "Request approuved for : Max Mustermann" -> 'Max Mustermann'
'    "Request Date : 06/10/2020"               -> '06/10/2020'
    str = HTMLTable.PreviousSibling.innerText
     
'    "Request approuved for Max Mustermann"    -> "Request approuved for : Max Mustermann" -> 'Max Mustermann'
    .Pattern = "\bfor\b"
    str = .Replace(str, "for :")
     
'    "Acceptance date : 06/10/2020"            -> '06/10/2020'
'    "Request approuved for : Max Mustermann"  -> 'Max Mustermann'
'    "Request Date : 06/10/2020"               -> '06/10/2020'
    .Pattern = ":\s*\b(.+)\b\s*$"
    With .Execute(str)
      MailData.AcceptanceDate = DateConv((.Item(0).SubMatches(0)))
      MailData.RequestFor = .Item(1).SubMatches(0)
      MailData.RequestDate = DateConv((.Item(2).SubMatches(0)))
    End With
     
  End With
   
'# Daten aus von HTMLTable lesen
  Dim tableRow  As MSHTML.HTMLTableRow
  Dim tableCell As MSHTML.HTMLTableCell
  Dim i         As Long
  
  '...
   
  FetchMailData = True
   
Exit Function
ErrHandler:
  FetchMailData = False
  MailData = EmptyMailDataType()
End Function

Reguläre Ausdruck muss angepasst werden. (in dem obigen Ausschnitt von hier ist es Zeile 27)

Anschließend sollte er auch bei der Mail etwas ausspucken.