Hallo zusammen,
Für Outlook Client Performance Messungen versuche ich in einem Outlook eine Testmail an das Postfach selber zu senden. Dazu soll die Inbox überwacht werden und beim Eintreffen der Testmail einen Timer ausgegeben werden.
Outlook Clients sind über verschiedene WAN Strecken angebunden, und so sollen Sync Zeiten für verschiedene Standorte ermittelt werden.
Routinen wie eine Mail zu versenden oder Mails mit speziellen Subject in der Inbox abzufragen ist recht einfach, ich bekomme aber keine Loop hin die nach dem Senden bis zum Eintreffen der Mail wartet.
Hat hier jemand eine Idee dazu?
Code
#include <OutlookEx.au3>
Local $begin = TimerInit()
$oOL = _OL_Open()
Global $sCurrentUser = $oOL.GetNameSpace("MAPI").CurrentUser.Name
_OL_Wrapper_SendMail($oOL, $sCurrentUser, "", "", "TestA123", "Hallo, dies ist eine Testmail.", "C:\Temp\Anhang.ppt", $olFormatHTML, $olImportanceHigh)
$aItems = _OL_ItemFind($oOl, "*\Inbox", $olMail, "", "Subject", "TestA123", "Subject,Body", "", 1)
If IsArray($aItems) Then
_ArrayDisplay($aItems, "Outlook Test")
Else
MsgBox(48, "Outlook Test", "Outbox empy. @error = " & @error & ", @extended: " & @extended)
EndIf
Local $dif = TimerDiff($begin)
MsgBox(0, "Time Difference", $dif)
Alles anzeigen