;-- TIME_STAMP   2020-06-04 12:09:22   v 0.1

Opt('MustDeclareVars', 1)

#include <Array.au3>
#include <OutlookEX.au3>

Global Enum $eSubject, $eBody, $eCreationTime, $eLastModificationTime, $eSize

ConsoleWrite('! ProcessExists("OUTLOOK.EXE") = ' & ProcessExists("OUTLOOK.EXE") & @CRLF)
Global $oOutlook = _OL_Open()
If @error Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

_OL_Check_Outbox()

Func _OL_Check_Outbox()
	ConsoleWrite('! ProcessExists("OUTLOOK.EXE") = ' & ProcessExists("OUTLOOK.EXE") & @CRLF)
	Local $sSubject = 'Telefonnummern Kunden Tour 1 04.06.2020 12:00:29'
;~ 	Local $iIndex, $aItems = _OL_ItemFind($oOutlook, "*\Posteingang", $olMail, "", "", "", "", "", 2) ; EN = *\Inbox
	Local $iIndex, $aItems = _OL_ItemFind($oOutlook, "*\Posteingang", $olMail, "[Subject]='" & $sSubject & "'", "", "", "", "", 2) ; EN = *\Inbox
	If @error Then
		MsgBox(16, "OutlookEX UDF", "Error _OL_ItemFind failed. @error = " & @error & ", @extended = " & @extended)
	Else
		$iIndex = _ArraySearch($aItems, $sSubject, 1, 0, 0, 0, 1, $eSubject)
		If @error Then
;~ 			$aItems = _OL_ItemFind($oOutlook, "*\Postausgang", $olMail, "", "", "", "", "", 2) ; EN = *\Outbox
			$aItems = _OL_ItemFind($oOutlook, "*\Postausgang", $olMail, "[Subject]='" & $sSubject & "'", "", "", "", 2) ; EN = *\Outbox
			If @error Then
				MsgBox(64, 'OutlookEX UDF', 'Die Mail mit dem Subject "' & $sSubject & '" befindet sich nicht im Posteingang und auch nicht im Postausgang!')
			Else
				MsgBox(64, 'OutlookEX UDF', 'Die Mail mit dem Subject "' & $sSubject & '" wurde nicht versandt und befindet sich noch im Postausgang!' & @CRLF & '($iIndex = ' & $iIndex & ')')
			EndIf
		Else
			MsgBox(64, 'OutlookEX UDF', 'Die Mail mit dem Subject "' & $sSubject & '" befindet sich im Posteingang!' & @CRLF & '($iIndex = ' & $iIndex & ')')
			_ArrayDisplay($aItems, '$aItems')
		EndIf
	EndIf
EndFunc   ;==>_OL_Check_Outbox

_OL_Close($oOutlook)
; OK
; Im Postausgang sind  eMails.
;
; Test|Test
;
;
; |20200604005804|20200604012501|4890
; Test2|Dies ist Test Nr. 2
; |20200604012853|20200604012929|4733
