Office: (Office 2016) E-Mail Report-Daten aus Outlook einlesen

Hi, ich möchte Report Daten die ich per EMail (Outlook) zugeschickt bekomme, in Access einlesen.

Bei den Daten handelt es sich um Nutzereingaben wie
Name: ..
Vorname: ..
Anschrift: ..
.
.
.

Ich habe eine Verknüpfung mit dem Outlook Ordner erstellt, nur packt der mir alles (vom Body der E-Mail) in eine Spalte als Memo.
Die Daten möchte ich gerne aber in meiner Tabelle als neuen Datensatz haben.

Habt ihr da Ideen?

:)

 

Mit Instr() & Mid() die Daten extrahieren?

Code:

?getsubstring("Name: Catboy Jones" & vbcrlf & "Anschrift: Zu Hause" & vbcrlf, "Name:")
Catboy Jones

 

Danke CatboyJones,

kannst du mir den Code etwas erklären?

was übergeb ich dort der Funktion und wie kann ich damit einen neuen Datensatz in einer Tabelle erstellen?

 

Hi!

Ausgehend von der Annahme, der Mail-Body hat immer denselben Aufbau
bezüglich der Daten die Du einlesen willst. Bestehend aus einem Bezeichner
und dem darauf folgenden Wert, der mit einem Zeilenabschluss (vbcrlf) endet.
Dann kannst Du die DS einer Tabelle mit den Mail-Bodys durchlaufen,
den Body in die einzelnen Werte splitten, und diese in eine Zieltabelle speichern.

Code:

Im Body wird der Bezeichner gefunden und damit die Startposition des folgenden Wertes.
Die Endposition ist das erste vbCrLf das nach der Startposition auftritt.
Mit diesen Positionen wird der Wert ausgeschnitten.

Sollte z.B. die Anschrift mehrzeilig sein, musst Du schauen ob das auch lösbar ist.
Angenommen es folgt noch die Telefon-Nr. dann könntest du so vorgehen:

Code:

Na ja, das ist halt programmieren. Du musst ggf. die einzelnen Befehle
recherchieren (Google / Online-Hilfe) und mit Fantasie ein bisschen testen.

Gruss
Jones

 

Habe das mal kurz bei mir getestet.

Wenn ein Kunde den Lizenzkey erneuert, dann wird dabei das OK dafür von
meiner Website eingeholt, und die schickt mir dann ein EMail mit Infos zu
diesem Vorgang. Die Mail hat immer denselben Aufbau, und das kann
ich wie folgt einlesen. Ich setzte einen Filter auf [Erhalten] damit
nicht die bereits übernommenen Daten behandelt werden.
Außerdem werden die Mails ohne "Lizenznehmer"
ausgelassen.

Code:

 

vielen Dank CatboyJones,

ich werde mich jetzt dran setzen um den Code erstmal zu verstehen

 

Hi, ich habe den Code nun versucht umzubauen, da ich die Daten aktualisieren möchte und nicht neue Datensätze erstellen will. Leider läuft das noch nicht. Wisst ihr was ich falschgemacht habe?

Ziel ist es, z.B. wenn ich eine report e-Mail erhalte, dass der geänderte Status in der Datenbank aktualisiert wird, um den Status dem Datensatz in der Tabelle reportTbl eindeutig zuzuweisen, kann ich die PersonalNr nehmen.

Code:

 

Hi!

Du änderst das Feld im DS eines Recordsets direkt und verwendest keine
SQL-Anweisung dafür. Mit FindFirst suchst Du den DS mit der PersonalNr.
Anschließend zeigt dir .NoMatch ob der DS gefunden wurde. Ist der Wert
false, dann ist der aktuelle DS der gefundene. In diesem kannst Du dann
das Feld ändern:

Code:

 

Danke CatboyJones,

das hat super funktioniert!

 

Hi, nachdem ich jetzt soweit alles fertig habe, bin ich auf ein großes Problem gestoßen. Wenn ich das HTML Formular zurückgeschickt bekomme, speichert er die HTML Tabelle als Text im verknüpften Outlook Ordner je nach EMail Programm des Versenders anders.

Da ich zuerst nicht wusste, dass je nach EMail Programm der "Text" anders ausschaut, habe ich die Suchfunktion für die Web-Mail gemacht die auch wunderbar funktioniert, aber das bringt nichts wenn alle anderen nicht gehen.

Habt ihr Ideen was man da machen kann? Vielleicht etwas am HTML Code ändern dass er sicht nicht so auseinander nehmen lässt?

Tabelle ist so aufgebaut;

Code:

Antworten aus Outlook 2010:
Code:

Antworten aus Thunderbird:
Code:

Antworten aus Web-EMail:
Code:

 

Wenn der Aufbau der Daten verschieden ist, musst den Code für jedes "Format" entsprechend gestalten. Du weißt also nie, wann du die nächste Anpassung vornehmen musst. Ein Krampf.

 

Code:

So müsste es für die ersten beiden Werte funktionieren.
Für den letzten Wert sollte die alte Methode langen.

Gruss
Jones

 

Hi danke für die Antworten,
leider weiß ich nicht wie die anderen E-Mai Provider die Daten senden,
ich habe mir überlegt wenn ich das Formular ändere, sodass die Antworten immer unter den "Fragen" stehen, dann müsste ich nur dieses Zeichen "

 

Upsi, habe nicht erkannt, dass das '>' nicht von Dir fürs posten kam.

Entfernen immer mit Replace(sText, "suche", "ersetze")
Dann also:

Code:

Lass den Aufbau lieber mehrspaltig, aber füge noch ein abschließende
Zeile ein mit einem erkennbaren Text, damit du den letzten Wert
auch noch auf diese Weise erfassen kannst:

Code:

Gruss
Jones

 

Hi, danke für deine ständige Hilfe CatboyJones,

ich bin leider immernoch nicht weitergekommen, ich habe jetzt mal Message Boxes auspucken lassen wo das Problem liegt.

Die Personalnummer in der E-Mail soll ja mit der in der Datenbank verglichen werden, bei manchen E-Mails funktioniert das und bei manchen nicht.

Ich habe mal Screenshots reingestellt bei dem ich geschaut habe was er einliest.
Manchmal so scheint es, ersetzt er nicht alle Leerzeichen, ich habe dann nochmal folgendes nach dem einlesen hinzugefügt um die Leerzeichen anzuzeigen:
Code:

Bei dem Fehler Screenshot ersetzt er nur 3 Leerzeichen mit a, die anderen sind unbekannt. Ich habe auch nochmal versucht Zeilenumbrüche zu ersetzen (b), leider war es das auch nicht.
Die Länge der Nummer darf hier eigentlich nur 6 Zeichen sein, bei dem Fehler sind es 12.

Hast du/ ihr Ideen was die restlichen Zeichen sein können?