Wir hatten hier vor noch nicht all zu langer Zeit was in der Richtung (siehe hier).
In dem Makro dort gibt es eine Funktion GetMailData die die erste HTML Tabelle aus dem HTML Body der Mail (objMailItem.HTMLBody) findet.
Was du bei dir nur machen brauchst ist, den HTML Code der Tabelle in die Zwischenablage zu kopieren und dann bei dir im Excel per Makro oder per Hand mit STRG+V einfügen.
Bei der Einfüge-Operation erkennt Excel das es ein HTML Table ist und klatscht den schön formatiert in den Bereich deiner Wahl.
' benötigt Verweis auf:
' * 'Microsoft HTML Object Library'
Dim objHTML As MSHTML.HTMLDocument
Dim objMailItem As Outlook.MailItem
'nur als Beispiel
Set objMailItem = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items(1)
Set objHTML = New MSHTML.HTMLDocument
Call CallByName(objHTML, "writeln", VbMethod, objMailItem.HTMLBody)
With objHTML.DocumentElement
With .getElementsByTagName("TABLE")
If .Length > 0 Then
Call Copy(.Item(0).outerHTML)
End If
End With
End With
|