OutlookEX Mail automatisch senden

Zitat von Bitnugger

Das Sleep von 10 auf 10000 setzen... erhöht aber die Wahrscheinlichkeit extrem, das Windi vor Erhalt der Mail bereits verstorben ist.

Da Sleep in Millisekunden angegeben wird, wird er die 10 Sekunden sicher überleben

Zitat von Bitnugger

Nötig wären dann aber zwei Timer... denn es ja nicht bekannt, wie lange es dauert, bis Outlook die Mail in den Ordner Postausgang verfrachtet hat... denn wenn zu früh geprüft wird, ob der Ordner leer ist, wird das ein Schuss ins eigene Knie.

Nur SendReceive ist asynchron. Send allein nicht. D.h. wenn Send erfolgreich war, dann liegt die Mail im Ausgangsordner. Eine Schleife n-mal durchlaufen, vor jedem Schleifendurchlauf m Sekunden warten und dann abbrechen würde eine Ewigkeitsschleife verhindern.

Zitat von water

Da Sleep in Millisekunden angegeben wird, wird er die 10 Sekunden sicher überleben

Hehe... oh ja, ich werde alt... ne, ich bin alt, und senil!

Habe nun auch herausgefunden, wie ich den Postausgang überprüfe... schön zu wissen, aber nicht relevant für mich, da ich mit Thunderbird hantiere.

;-- TIME_STAMP   2020-06-04 02:30:55   v 0.1

Opt('MustDeclareVars', 1)

#include <Array.au3>
#include <OutlookEX.au3>

Global Enum $eSubject, $eBody, $eCreationTime, $eLastModificationTime, $eSize

Global $oOutlook = _OL_Open()
If @error Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

_Check_Outbox()

Func _Check_Outbox()
    Local $sSubject = 'Test32'
    Local $aItems = _OL_ItemFind($oOutlook, "*\Postausgang", $olMail, "", "", "", "", "", 2) ; EN = *\Outbox
    If @error Then
        MsgBox(16, "OutlookEX UDF", "Error _OL_ItemFind failed. @error = " & @error & ", @extended = " & @extended)
    Else
        Local $iIndex = _ArraySearch($aItems, $sSubject, 1, 0, 0, 0, 1, $eSubject)
        Local $sMsg = 'Die Mail mit dem Subject "'& $sSubject &'" wurde ' & (@error ? '' : 'nicht') & ' versandt!' & @CRLF & '($iIndex = ' & $iIndex & ')'

        MsgBox(64,"OutlookEX UDF", "Im Postausgang sind " & UBound($aItems) -1 & " eMails." & @CRLF & @CRLF & $sMsg & @CRLF & @CRLF & _ArrayToString($aItems, '|'))
        _ArrayDisplay($aItems, '$aItems')
    EndIf
EndFunc

_OL_Close($oOutlook)

Ich habe noch ein wenig experimentiert, denn es war mir zu grobschlächtig, mehrmals den kompletten Inhalt des Postausgangs/Posteingangs als Array zu holen, um mit _ArraySearch zu überprüfen, ob die gesuchte Mail darin enthalten ist.

So kann man den kompletten Inhalt holen:

$aItems = _OL_ItemFind($oOutlook, "*\Posteingang", $olMail, "", "", "", "", "", 2) ; EN = *\Inbox

$aItems = _OL_ItemFind($oOutlook, "*\Postausgang", $olMail, "", "", "", "", "", 2) ; EN = *\Outbox

So bekommt man jedoch nur die gesuchte Mail geliefert, insofern sie vorhanden ist:

$aItems = _OL_ItemFind($oOutlook, "*\Posteingang", $olMail, "[Subject]='" & $sSubject & "'", "", "", "", "", 2) ; EN = *\Inbox

$aItems = _OL_ItemFind($oOutlook, "*\Postausgang", $olMail, "[Subject]='" & $sSubject & "'", "", "", "", 2) ; EN = *\Outbox

Jetzt bin ich allerdings sehr erstaunt, dass die zweite Variante nur dann funktioniert, wenn die Outlook.exe gestartet wurde, bevor das Objekt $oOutlook mit _OL_Open() erstellt wird!

Hier liefert mir _OL_ItemFind folgende Fehlermeldung: @error = 3, @extended = 4

; @error |3 - Error accessing the specified folder. See @extended for errorcode returned by _OL_FolderAccess

; @extended |4 - Specified folder could not be found. @extended is set to the index of the subfolder in error (1 = root folder)

Die Mail wird aber versandt... ich kann nur nicht via OutlookEX UDF darauf zugreifen.

water , hast du eine Idee bzw. weißt du, warum das so ist?

Das Script dazu (_OL_Mail_senden.au3) findet ihr im Anhang. Hier muss die Variable $sMeineMailadresse gesetzt werden.

Wenn ich allerdings mit _OL_Check_InOutbox.au3 eine bereits vorhandene Nachricht abfrage, funktioniert die zweite Variante auch ohne dass Outlook gestartet wird. Hier muss die Variable $sSubject vor dem Start korrigiert werden.

Ich vermute mal, dass diese Outlook Spezialität hier zuschlägt:

"Outlook (starting with Outlook 2007 SP2) shuts itself down if there is no open window (which is always true when Outlook was not running when _OL_Open is being called) and there is no open reference to an Outlook item (mail, appointment ...)."

Zitat von water

Ich vermute mal, dass diese Outlook Spezialität hier zuschlägt:

Hehe... ja, das wird es wohl sein! Direkt nach _OL_Open wird die Outlook.exe mit ProcessExists gefunden, ist dann aber schnell wieder verschwunden.

Tzzz... nun ja, man muss ergo sicherstellen, das die Outlook.exe bereits gestartet wurde, bevor man mit _OL_* arbeitet.

Es genügt aber auch, dafür zu sorgen, dass der zweite Teil des Satzes nicht zutrifft: " ... there is no open reference to an Outlook item (mail, appointment ...)."

Das heißt, wen z.B. das über _OL_ItemCreate erstellte und zurückgegebene Objekt nicht gelöscht wird.

Ist aus meiner Sicht der elegantere Ansatz.

Solange $oItem referenziert wird, beendet Outlook nicht. Das sollte also auch funktionieren (ungetestet):

_OL_ItemSend($oOutlook, $oItem)  ; sendet ohne nachfrage
_OL_ItemSendReceive($oOutlook, True)
Sleep(3000)
_OL_Close($oOutlook)

Ok - lässt sich bestimmt lösen - wie alle Outlook-Probleme bisher.
Die eigentliche Frage ist: Wie ist Dein Outlook konfiguriert, dass es Mails nicht sofort versendet und warum (schlechte Datenverbindung ...)?

Bei _OL_ItemFind bekomme ich die ersten 1-3 mal den @error 1001... davor wird _OL_ItemSend und _OL_ItemSendReceive ausgeführt, dann wird 1 Sekunde gewartet. 1 Sek. scheint wohl zu wenig zu sein, aber warum passiert das?

> _OL_ItemFind($oOutlook = Object, "*\Postausgang       ", 43, "[Subject]='Telefonnummern Kunden Tour 1 04.06.2020 23:00:42'", "", "", "", "", 2) @error = 1001, @extended =    0 $iOutlook_PID = 17060
- _OL_ItemFind($oOutlook = Object, "*\Gesendete Elemente", 43, "[Subject]='Telefonnummern Kunden Tour 1 04.06.2020 23:00:42'", "", "", "", "", 2) @error =    0, @extended =    0 $iOutlook_PID = 17060
> _OL_ItemFind($oOutlook = Object, "*\Postausgang       ", 43, "[Subject]='Telefonnummern Kunden Tour 1 04.06.2020 23:00:42'", "", "", "", "", 2) @error = 1001, @extended =    0 $iOutlook_PID = 17060
- _OL_ItemFind($oOutlook = Object, "*\Gesendete Elemente", 43, "[Subject]='Telefonnummern Kunden Tour 1 04.06.2020 23:00:42'", "", "", "", "", 2) @error =    0, @extended =    0 $iOutlook_PID = 17060
> _OL_ItemFind($oOutlook = Object, "*\Postausgang       ", 43, "[Subject]='Telefonnummern Kunden Tour 1 04.06.2020 23:00:42'", "", "", "", "", 2) @error =    0, @extended =    0 $iOutlook_PID = 17060
- _OL_ItemFind($oOutlook = Object, "*\Gesendete Elemente", 43, "[Subject]='Telefonnummern Kunden Tour 1 04.06.2020 23:00:42'", "", "", "", "", 2) @error =    0, @extended =    0 $iOutlook_PID = 17060

Genau. Datei -> Optionen -> Erweitert -> Senden und Empfangen -> Button "Senden/Empfangen..." drücken. Hier findest Du dann die entspr. Einstellungen. Hier sollte immer "Diese Gruppe bei der Übermittlung mit einbeziehen (F9)" aktiviert sein.