Outlook

tm5

Hallo, ich habe ein etwas spezielles Vorhaben. Wir haben mehrere Synologys im Einsatz die Active Backup eingerichtet haben. Hier sollte immer ein Statusbericht per Mail kommen. Um sicherzustellen, dass die Mail auch wirklich angekommen ist würde ich gerne mit autoit prüfen, ob die Mails heute an die Mailadresse alias@.... angekommen ist (hier würde ich eine txt Datei vll einlesen, mit der Liste der Adressen). Wenn Mails fehlen, dann müsste eine Meldung kommen. Theoretisch kann man das dann noch ausbauen, dass eine html seite den aktuellen Stand der eingetroffenen Mails anzeigt. Wenn 2/2 Mails eingetroffen sind dann wird das Feld grün. Spielerein dann noch.

Ist mein Vorhaben prinzipiell mit Autoit lösbar? Ich würde das jetzt erst einmal allgemein fragen und mich dann damit näher befassen. Oder würdet Ihr mein Vorhaben eher anders lösen? Bin offen für jegliche Anregungen.

**water**

Natürlich lässt sich das lösen.

Du hast 2 Möglichkeiten:

Dein Skript durchsucht den Posteingang nach den Mails eines bestimmten Absenders (Euer Synology System). Die Liste der Mails durchsuchst Du dann nach den Betreff-Zeilen.
Du setzt einen Trigger für Outlook. Der springt immer an, wenn eine neue Mail eingeht. Dann prüfst Du auf Absender und Betreff. Bei Bedarf dann weitere Aktionen.

Dazu empfehle ich meine OutlookEX UDF (siehe Signatur unten).

tm5

Wow deins ist ja echt richtig professionell schon, ich würde es mir jetzt ein wenig schlichter basteln. Bisher hab ich es jetzt mal wie folgt.

Hier ist jetzt nur das Problem, dass die Outlooksuche noch nicht richtig funktioniert. Also das einlesen der Mailadressen passt, das habe ich mit der msgbox sichergestellt. Aber bei der Suche wird die Mail nicht gefunden. Hat jmd eine Idee woran das jetzt liegen könnte? Die Mail befindet sich in meinem eigenen Postfach. Besser wäre aber wenn es auch freigegebene Postfächer mit durchsucht, deswegen die Option, alle Elemente durchsuchen. Falls es nur im eigenen Postfach geht, reicht das aber auch.

Code

; Prüfen, ob Outlook bereits geöffnet ist
If Not ProcessExists("OUTLOOK.EXE") Then
    ; Outlook ist nicht geöffnet, also starten wir es
    ShellExecute("outlook.exe")
    Sleep(5000) ; Warten Sie einige Sekunden, um Outlook Zeit zum Starten zu geben
EndIf

; Pfad zur senders.txt-Datei
Local $sendersFile = @ScriptDir & "\senders.txt"

; Prüfen, ob die senders.txt-Datei vorhanden ist, andernfalls erstellen
If Not FileExists($sendersFile) Then
    Local $fileHandle = FileOpen($sendersFile, 2)
    If $fileHandle = -1 Then
        MsgBox(0, "Fehler", "Fehler beim Erstellen der 'senders.txt'-Datei.")
        Exit ; Das Programm beenden, wenn die Datei nicht erstellt werden konnte
    Else
        FileClose($fileHandle)
        MsgBox(0, "Hinweis", "Die 'senders.txt'-Datei wurde erstellt.")
        Exit ; Das Programm beenden, nachdem die Datei erstellt wurde
    EndIf
EndIf

; Die 'senders.txt'-Datei manuell einlesen und in eine Variable speichern
Local $sendersString = FileRead($sendersFile)

; Prüfen, ob die Datei leer ist
If $sendersString = "" Then
    MsgBox(0, "Hinweis", "Die 'senders.txt'-Datei ist leer.")
Else
    ; Die E-Mail-Adressen aus der Datei ausgeben
    MsgBox(0, "Gelesene E-Mail-Adressen", "Folgende E-Mail-Adressen wurden aus 'senders.txt' gelesen:" & @CRLF & $sendersString)
EndIf

; Outlook-Anwendung erstellen
$oOutlook = ObjCreate("Outlook.Application")

; Überprüfen, ob die Outlook-Anwendung erfolgreich erstellt wurde
If IsObj($oOutlook) Then
    ; Outlook-Namespace abrufen
    $oNamespace = $oOutlook.GetNamespace("MAPI")

    ; Heutiges Datum ermitteln
    $today = StringFormat("{0:dd.MM.yyyy}", @MDAY & "/" & @MON & "/" & @YEAR)

    ; Durchsuche alle Elemente (E-Mails, Kalender usw.) nach E-Mails von den in 'senders.txt' aufgeführten Absendern heute
    $count = 0
    For $oFolder In $oNamespace.Folders
        $oItems = $oFolder.Items
        For $oItem In $oItems
            If $oItem.Class = 43 And _ArraySearch($sendersArray, $oItem.SenderEmailAddress) <> -1 And StringInStr($oItem.ReceivedTime, $today) Then
                $count += 1
            EndIf
        Next
    Next

    ; Anzahl der heute eingegangenen E-Mails von den in 'senders.txt' aufgeführten Absendern ausgeben
    MsgBox(0, "E-Mail-Statistik", "Heute wurden " & $count & " E-Mails von den in 'senders.txt' aufgeführten Absendern empfangen.")

EndIf

Alles anzeigen

mumpel

Freigegebene Postfächer liegen aber außerhalb Deines Rechners. Was man versuchen könnte ist, mit Session.Folders zu arbeiten. Du kannst mal in meinen Outlook-Workshop schauen (https://www.rholtz-office.de/outlook/email_auslesen_teil1), auch wenn der für VBA geschrieben ist, vielleicht kannst Du damit Google füttern und Dir einen passenden Code schreiben.

Oder Du versuchst es mit der Shared-Folder-Methode. https://learn.microsoft.com/de-de/office/v…pensharedfolder

**water**

Du verwendest

Code

$sendersString

nicht in Deiner Abfrage.
Und welchen Inhalt hat

Code

$sendersArray

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Hmmm,

ich würde da ev. ganz anders vorgehen.

Richt dir eine spezielle Adresse bei Deinem Provider ein. z.B. von_synologie@testfirma.de

Dieses Postfach läßt du mit Outlook ---> vollkommen in Ruhe.

Suchst Dir einenn Command line mailer wie z.B. http://www.softsea.com/review/Command-Line-POP-Client.html.

und fertig ist der Teil mit den Mails....

Peter

tm5

Zitat von water
Du verwendest
Code
$sendersString
nicht in Deiner Abfrage.
Und welchen Inhalt hat
Code
$sendersArray

Das stimmt $sendersString kann raus, das ist ein Überbleibsel aus einer vorherigen Version des Codes. Hier habe ich ein wenig umgebaut.

$sendersArray ist ein Array, das aus den E-Mail-Adressen besteht, die aus der senders.txt-Datei eingelesen werden. Jede Zeile in der senders.txt-Datei wird zu einem Element im Array.

Ähnliche Themen