OutlookEx - _OL_ItemFind Problem wenn keine Verbindung

Hallo,

Ich habe ein Problem mit der _OL_ItemFind Funktion im OutlookEx.au3.
Outlook ist mit Exchange verbunden. Manchmal kommt es vor dass die Verbindung zwischen beiden kurz verloren geht, und gerade dann wenn mein Skript läuft fliegt dieser komplett raus und wird gestoppt. Das ist über Wochenende natürlich nicht so gut.
Das ganze kann auch getestet werden wenn man in Outlook "Work Offline" einstellt.
Ich habe den übeltäter auch gefunden, leider weis ich nicht genau wie das korrigieren soll.
Und zwar fliegt mein Skript in der OutlookEx.au3 bei Zeile 2780 raus:

Local $iItems = $oItems.Count

mit dieser Fehlermeldung:

"C:\PROGRA~2\AutoIt3\Include\OutlookEX.au3" (2780) : ==> Variable must be of type "Object".:
Local $iItems = $oItems.Count
Local $iItems = $oItems^ ERROR

Ich nehme an dass $oItems keine Daten hat da keine Verbindung und den Skript stoppt
Jetzt ist halt mein Frage was ich da machen kann damit der Skript an der Stelle nicht stoppt.
Wie und was kann ich dort einbauen damit halt getestet wird ob $oItems Werte zur verfügung gat oder nicht?

Würde mich über eine eventuelle Hilfe freuen.

Hallo,

Das ist der Skriptcode den ich aufrufe

[autoit]

$aItems = _OL_ItemFind($oOutlook, $OLincomingfolder, $olMail, "[UnRead]=True", "", "", "EntryID", "", 1)

[/autoit]

Mehr wird nicht gemacht. Das ganze bricht in der OutlookEx.au3 ab.

Hier ist ein Teil meines Codes:

[autoit]

$oOutlook = _OL_Open()

[/autoit][autoit][/autoit][autoit]

; Get all items that are in unread status
$aItems = _OL_ItemFind($oOutlook, $OLincomingfolder, $olMail, "[UnRead]=True", "", "", "EntryID", "", 1)

[/autoit][autoit][/autoit][autoit]

; Check if items found. If yes continue
If IsArray($aItems) Then

[/autoit][autoit][/autoit][autoit]

....

[/autoit][autoit][/autoit][autoit]

EndIf
_OL_Close($oOutlook)

[/autoit]

Wenn nun die OL_ItemFind aufgerufen wird läuft der Code durch die OutlookEx und kommt dann zu diesem Code:

[autoit]

....
If StringStripWS($sRestrict, 3) = "" Then
$oItems = $vFolder.Items
Else
$oItems = $vFolder.Items.Restrict($sRestrict)
EndIf
Local $iItems = $oItems.Count
Local $aItems[$iItems + 1][$iIndex] = [[0, $aReturnProperties[0]]]
If BitAND($iFlags, 4) <> 4 And $sSort <> "" Then
....

[/autoit]

Bei

[autoit]

Local $iItems = $oItems.Count

[/autoit]

bleibt er hängen und fliegt raus mit dieser Fehlermeldung

"C:\PROGRA~2\AutoIt3\Include\OutlookEX.au3" (2780) : ==> Variable must be of type "Object".:
Local $iItems = $oItems.Count
Local $iItems = $oItems^ ERROR

Ich glaube ich habe eine Lösung gefunden.

Ich habe in der OutlookEx bei folgendem Code

[autoit]

If StringStripWS($sRestrict, 3) = "" Then
$oItems = $vFolder.Items
Else
$oItems = $vFolder.Items.Restrict($sRestrict)
EndIf
Local $iItems = $oItems.Count

[/autoit]

ein "If error ...." beigefügt

[autoit]

If StringStripWS($sRestrict, 3) = "" Then
$oItems = $vFolder.Items
If @error <> 0 Then Return SetError(@error, @extended, "")
Else
$oItems = $vFolder.Items.Restrict($sRestrict)
If @error <> 0 Then Return SetError(@error, @extended, "")
EndIf
Local $iItems = $oItems.Count

[/autoit]

Jetzt fliegt das Skript nicht mehr raus und ich kann den Fehler nun auffangen und so damit arbeiten dass das ganze nicht stoppt sondern weiterläuft.

Hallo,

Bei mir hat @error den Wert "1"

Das kommt beim Debug raus

Zitat

@@ DEBUG COM Error encountered in Importer.au3 (1285) :
Number = 0x80020009 (-2147352567)
WinDescription = Exception occurred.
Description = Network problems are preventing connection to Microsoft Exchange.
Source = Microsoft Outlook
HelpFile =
HelpContext = 0
LastDllError = 0
Retcode = 0x00001000

Alles anzeigen

Also bei OL_Open ist kein Problem, dort habe ich ein "If @error..." stehen und mein script bleibt nicht dort stehen.

Dieser bleibt definitf in der OutlookEx in der _OL_ItemFind Funktion hängen.
Wie gesagt, ich habe jetzt mal diese checks in die OutlookEx gesetzt und werde schauen ob das mein Problem definitif löst oder doch noch nicht.

Ich werde hier bescheid geben ob es geklappt hat oder nicht. Könnte aber ein paar Tage dauern bis ich eine Bestätigung gebe.

Nur um hier bescheid zu sagen dass ich das ganze über 2 Wochen laufen gelassen habe ohne dass das Skript gestoppt wurde oder rausgeflogen ist.
Das was ich eingebaut habe scheint also mein Problem soweit gelöst zu haben.