VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Daten aus Outlook in Excel schreiben	27.10.2020 08:25:08	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 09:38:04	Mase
Daten aus Outlook in Excel schreiben	27.10.2020 09:47:02	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 10:13:52	Mase
Daten aus Outlook in Excel schreiben	27.10.2020 11:35:37	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 11:42:11	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 11:48:27	Mase
Daten aus Outlook in Excel schreiben	27.10.2020 11:46:45	Mase
Daten aus Outlook in Excel schreiben	27.10.2020 12:07:30	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 12:26:31	Mase
Export HTMLBody	27.10.2020 13:28:03	Mase
Export HTMLBody	27.10.2020 13:49:08	Michael
Export HTMLBody	27.10.2020 13:51:02	Mase
Export HTMLBody	27.10.2020 14:10:33	Michael
Export HTMLBody	27.10.2020 15:41:19	Mase
Export HTMLBody	28.10.2020 08:33:15	Michael
Check mal:	28.10.2020 23:07:17	Mase
Frage	28.10.2020 23:14:49	Mase
Frage	03.11.2020 09:37:34	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 13:22:50	Gast31122
Daten aus Outlook in Excel schreiben	27.10.2020 13:24:30	Gast31122

Ansicht des Beitrags:

Von:
Gast31122

Datum:
27.10.2020 13:22:50

Views:
725

Rating:

Antwort:

Thema:
Daten aus Outlook in Excel schreiben

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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Daten aus Outlook in Excel schreiben	27.10.2020 08:25:08	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 09:38:04	Mase
Daten aus Outlook in Excel schreiben	27.10.2020 09:47:02	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 10:13:52	Mase
Daten aus Outlook in Excel schreiben	27.10.2020 11:35:37	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 11:42:11	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 11:48:27	Mase
Daten aus Outlook in Excel schreiben	27.10.2020 11:46:45	Mase
Daten aus Outlook in Excel schreiben	27.10.2020 12:07:30	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 12:26:31	Mase
Export HTMLBody	27.10.2020 13:28:03	Mase
Export HTMLBody	27.10.2020 13:49:08	Michael
Export HTMLBody	27.10.2020 13:51:02	Mase
Export HTMLBody	27.10.2020 14:10:33	Michael
Export HTMLBody	27.10.2020 15:41:19	Mase
Export HTMLBody	28.10.2020 08:33:15	Michael
Check mal:	28.10.2020 23:07:17	Mase
Frage	28.10.2020 23:14:49	Mase
Frage	03.11.2020 09:37:34	Michael
Daten aus Outlook in Excel schreiben	27.10.2020 13:22:50	Gast31122
Daten aus Outlook in Excel schreiben	27.10.2020 13:24:30	Gast31122