Datenübertragung aus Outlook nach Excel

flyfisher · 2024-05-08T06:42:46+00:00

Hallo, ich habe mich heute neu im Forum angemeldet. Nachdem ich schon viele tolle Lösungen aus dem Archiv für mich umbauen konnte, scheitere ich aber an diesem Problem. ich habe ein Funktionspostfach in Outlook mit 3000 standatisierten emails (Schnell ansteigend)mit folgenden Inhalt: Folgende Information oder Nachricht wurde über das Online-Formular 'Anmeldung Versammlung' am 05.05.2024 17:48:01 an Sie geschickt Geschlecht: männlich Name: Test Name Vorname: Test Vorname Telefon: +49 221 2222222 E-Mail: XXXXX@gmail.com Straße / Hausnummer: Rue de France Postleitzahl: 50935 Ort: Köln Einwilligung zur Verarbeitung meiner Daten: Ich bin mit der Verarbeitung meiner personenbezogenen Daten zu dem in den Datenschutzhinweisen genannten Zweck einverstanden. Gesendet über: https://www.stadt-koeln.de/service/onlinedienste/anmeldung-hitzetelefon/index.html Ich habe schon versucht einige Codes aus dem Forum umzuwandeln, bin aber gescheitert. Ich würde gerne aus den 3000 Mails das Geschlecht, Name,Vorname, Telefon, E-Mail,Straße / Hausnummer, Postleitzahl und Ort in einer Exceldatei abspeichern um die Daten weiter zu verarbeiten. Ich hoffe ich habe mein Problem verständlich beschrieben. Bei Fragen oder wenn eine Beispielmail benötigt wird bitte melden. Herzlichen Dank Flyfisher

Hi Matthias,

"...in der Zeile 4: FLD As Folder, ist blau hinterlegt. Fehlermeldung: Fehler beim Kompilieren Benutzerdefinierter Typ nicht definiert..."

Verstehe ich nicht. Hast du denn auch die Datei von Fennek runtergeladen UND ausprobiert?

Hab die Datei runtergeladen, und so sehen die Einstellungen im VBE aus:
Userbild

Und wenn nun ich den Code starte, kommt nicht "deine Fehlermeldung", sondern ein Hinweis, dass in Zeile...



Set FLD = GetNamespace("MAPI").Folders(iName).Folders("Posteingang").Folders("Hitze")

...etwas nicht gefunden werden kann - was aber auch klar ist!

Denn der 1. Eintrag in .Folders = iName, ist natürlich noch falsch, da iName im Code von Fennek erst mal "nur" eine Variable darstellt.

Ok, und was gehört da nun rein??

Wenn du im Unterbrechungsmodus diesen Codeteil...



GetNamespace("MAPI")

...im VBE überwachst, und den Baum "Folders" aufklappst, dann erhältst du erst mal diese Ansicht:

Userbild

Und du ahnst es vielleicht: Öffne den Baum "Item1", es erscheint diese Ansicht:

Userbild

Überall dort, wo durchgestrichen oder übermalt ist, steht das Gleiche; für uns ist aber eigtl nur der Eintrag in "Name" interessent = deswegen hier in gelb übermalt.

Also:
anstelle von gelb steht dort meine echte, private Mailadresse UND der Zusatz " - Meins", also

meineMail@irgdwo.de - Meins

demzufolge muss ich diese Zeile...



Set FLD = GetNamespace("MAPI").Folders(iName).Folders("Posteingang").Folders("Hitze")

...umändern in...



Set FLD = GetNamespace("MAPI").Folders("meineMail@irgdwo.de - Meins").Folders("Posteingang").Folders("Hitze")

Ach so, und ich muss natürlich in Outlook im Ordner "Posteingang" einen neuen Ordner namens "Hitze" erstellen = Code läuft fehlerfrei durch!

Es reicht also vielleicht nicht, wenn du anstelle von "iName" nur deine Mailadresse einträgst, sondern du musst! anstelle von "iName" genau den selben Text eintragen, wie deine PST-Datei in Outlook heißt, in dem sich Posteingang und Hitze befinden.

Hilfts?
Muss es ja eigtl, denn bei mir läufts ja auch.

Ciao
Thorsten

Hallo,

das dürfte, wenn man weiß in welchem Verzeichnis in Outlook die Mails liegen, kein großes Ding sein den Body der Mails, darum dreht sich deine Frage, auszulesen.
Vor einiger Zeit hatte ich hier schon mal was auf zu diesem Thema hinterlassen.
Es wird entsprechend der Anzahl der Mails ein Array dimensioniert, wo in einer 2. Schleife der Body der Mails in ein Array eingelesen wird.
Da stehen dann erst mal die Rohdaten zur Verfügung, welche noch nachbearbeitet/gefiltert werden müssen.
Diese Prozedur ist Early Binding angelegt um die IntelliSense von VBA für die Programmierung zu nutzen.
Du musst dazu die Bibliothek "Microsoft Outlook 16.0 Object Library" in Extras aktivieren.

In diesem Beispiel wird im "Persönliche Ordner" das Verzeichnis "Test" ausgelesen.



Option Explicit



Sub BodyAusGeloeschtenEmailsLesen()

    Dim appOut As Outlook.Application

    Dim OutMail As Outlook.MailItem

    Dim ONS As Outlook.Namespace

    Dim MyFolder As Outlook.Folder

    Dim tmpMail, arr(), i&, iZeilen&, iItems&

    

    Set appOut = New Outlook.Application

    Set OutMail = appOut.CreateItem(olMailItem)

    Set ONS = appOut.GetNamespace("MAPI")

    Set MyFolder = ONS.Folders.Item("Persönliche Ordner").Folders("Test")  ' setzten des auszulesenden Ordners



    For Each OutMail In MyFolder.Items  ' Schleife zum lesen der maximalen Dimensionierung des Arrays

        tmpMail = Split(OutMail.Body, vbCrLf)

        iItems = iItems + 1

        If UBound(tmpMail) > iZeilen Then iZeilen = UBound(tmpMail)

    Next OutMail

    ReDim arr(1 To iItems + 1, 1 To iZeilen)    ' Dimensionierung des Arrays

    iItems = 0

    For Each OutMail In MyFolder.Items               ' Schleife zum füllen des Arrays

        tmpMail = Split(OutMail.Body, vbCrLf)

        iItems = iItems + 1

        For i = 1 To UBound(tmpMail)

            arr(iItems, i) = tmpMail(i - 1)

        Next i

    Next OutMail

    Tabelle1.Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr   ' Ausgabe des Inhalts des Arrays ins Tabellenblatt

End Sub

Gruß Uwe

Datenübertragung aus Outlook nach Excel

Forumthread: Datenübertragung aus Outlook nach Excel

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Datenübertragung aus Outlook nach Excel

Forumthread: Datenübertragung aus Outlook nach Excel

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread