Sub ExtractTablesFromEmailsToExcelDirectly()
Dim olApp As Object
Dim olNamespace As Object
Dim olSelection As Object
Dim olMail As Object
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlSheet As Object
Dim tableHTML As String
Dim tableContent As Object
Dim i As Long
Dim j As Long
Dim sheetIndex As Long
Dim subjectLast25 As String