Outlook Mail-Retoure auslesen

Espyre

Hallo zusammen,

ich benötige Hilfe beim Auslesen von E-Mails.

Anbei meine bisherige Funktion:

Spoiler anzeigen

AutoIt

Func _m_readMails_getData($oOutlook, $oNamespace, $oItem, $Postfach, $Folder)
	Local $hFile, $aFolder
    Local $aDocuments[1]
	;----------------------------------------------------------------------------------------------/
    ; Body auslesenund als .txt speichern
    ;----------------------------------------------------------------------------------------------/
    $Body = $oItem.Body
    $hFile = FileOpen($Daten('Speicherort') & 'Body.txt', 10)
    FileWrite($hFile, $Body)
    FileClose($hFile)
    $aDocuments[0] = $Daten('Speicherort') & 'Body.txt'
    $Daten('Mailtext', $Body, 'set')
    ;----------------------------------------------------------------------------------------------/
    ; Folder-Object auslesen
    ;----------------------------------------------------------------------------------------------/
    $aFolder = _OL_FolderAccess($oOutlook, $Postfach & '\' & $Folder)
    ;----------------------------------------------------------------------------------------------/
    ; EntryID auslesen
    ;----------------------------------------------------------------------------------------------/
    $Daten('EntryID', $oItem.EntryID, 'set')
    ;----------------------------------------------------------------------------------------------/
    ; Betreff
    ;----------------------------------------------------------------------------------------------/
    $Daten('Betreff', $oItem.Subject, 'set')
    ;----------------------------------------------------------------------------------------------/
    ; Prüfung, ob eine Mailretoure vorliegt
    ;----------------------------------------------------------------------------------------------/
    If StringInStr($Daten('Betreff'), 'Unzustellbar') Then
        ; Empfänger Mail-Adresse auslesen
        ; Eingangsdatum auslesen
    Else
        ;----------------------------------------------------------------------------------------------/
        ; Eingangsdatum
        ;----------------------------------------------------------------------------------------------/
        $Eingangsdatum = StringRegExpReplace($oItem.ReceivedTime, '\A(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})\z', '$1-$2-$3 $4:$5:$6')
        $Daten('Eingangsdatum', $Eingangsdatum, 'set')
        ;----------------------------------------------------------------------------------------------/
        ; Absender
        ;----------------------------------------------------------------------------------------------/
        $Daten('Absender', $oItem.SenderEmailAddress, 'set')
    EndIf
    ;----------------------------------------------------------------------------------------------/
    ; Falls Anhänge vorhanden sind, werden diese gespeichert
    ;----------------------------------------------------------------------------------------------/
    $aAnhaenge = _OL_ItemAttachmentGet($oOutlook, $oItem,$aFolder[1])
    If Not @Error Then 
        For $i = 1 To $aAnhaenge[0][0]
            $resSave = _OL_ItemAttachmentSave($oOutlook,$oItem,$aFolder[1],$i,$Daten('Speicherort'))
            $Dateipfad = $Daten('Speicherort') & StringRegExpReplace($aAnhaenge[$i][2], '[ \/:*?"<>|]', '_') ;Dateinamen werden entsprechend der OutlookEX.au3 abgeändert
            Redim $aDocuments[UBound($aDocuments)+1]
            $aDocuments[$i] = $Dateipfad
        Next
    EndIf
    Return $aDocuments
EndFunc ;<==/m_readMails_getData

Alles anzeigen

Falls eine Mail unzustellbar ist, kann ich diese Rückmeldung nicht korrekt auslesen. (siehe Anhang)

Wie muss ich den Body auslesen, damit ich mir die Empfänger-Adresse und das Eingangsdatum der Mailretoure mit StringRegEx ziehen kann?

Viele Grüße
Espyre

Mail_unzustellbar.jpg
Result _OL_ItemGet.jpg

**Alina**

Ich würde mal vom Kopf her sagen:

Du liest die Rückmeldung an und zeigst sie doch im unteren Bild an. Also ist das doch ein Array.
Dann kannst Du doch bei StringRegEx das jeweilige Array[??] übergeben. Also meine ich, das es gar nicht nötigt ist, die Daten in eine Textdatei zu speichern, wenn ich das richtig sehe.

Espyre

SenderEmailAddress und ReceivedTime ist leer, da ja die Mail nicht direkt vom Empfänger zurückkommt.

Daher würde ich den Body auslesen, da dort alle Informationen enthalten sind. Wie im Array ersichtlich ist, besteht der Body nur aus chinesischen Schriftzeichen. Habe leider noch keine Möglichkeit gefunden, den Body so auszulesen, damit ich ihn weiter verarbeiten kann.

Lg
Espyre

**Alina**

Moin Espyre.

Zeit doch erst einmal das Script, das das Array erstellt. Also so, das wir den Weg bis zum Array mitverfolgen können und da ansetzen können.

**water**

Um festzustellen, dass es sich um ine Retoure handelt, würde ich die MessageClass prüfen. Die steht auf "Report.IPM.Note.NDR" - NDR steht dabei für Non-Delivery-Report.
Zum Thema NDR findest Du hier eine sehr umfassende Beschreibung - auch warum der Text auf Chinesisch dargestellt wird.
Hier eine gute Übersicht, was die Codes bedeuten.

Espyre

Alina: Das Array diente nur zur Veranschaulichung. Habe ich mit _OL_ItemGet($oOutlook, $oItem, Default) erstellt.
$Body = $oItem.Body (Zeile 7) ist der Befehl vom Originalscript.

water: Vielen Dank für den Hinweis mit der MessageClass. Auch deine Links haben mir sehr geholfen.

für Interessierte ein Auszug:

Spoiler anzeigen

NDR und Sprache

Die unzustellbarkeit wird per Default immer in der Sprache installiert, in der der Server installiert ist. Das mag nett sein, wenn Sie selbst intern unzustellbarkeiten erhalten, aber ist im internationalen Gebrauch nur bedingt nutzbar. Besonders problematisch wird dies, wenn Sie z.B. einen japanischen Server installiert haben. Dessen unzustellbarkeitsmeldungen sind für nicht Japaner schwer zu verstehen. Daher gibt es auch einen TechNet Artikel, wie einem japanischen Server eine englische Fehlermeldung abzuringen ist:

**water**