Ich schreibe gerade ein Script, welche sich Daten aus einer Webseite holt und diese dann in Outlook einträgt.
Das Script läuft 5-10x ohne Probleme, dann wieder Abstutz mit dem Fehler ... ended.rc:-1073741819.
Zum Testen des Scripts verwende ich immer die gleichen Webseiten, so ergeben sich immer die gleichen Einträge, aber das Verhalten ist für mich unberechenbar. Nun habe ich mir an verschiedenen stellen in die Console schreiben lassen wo sich das Script gerade befindet und konnte ermitteln, dass es z.B. im Befehl _OL_ItemCreate oder im Befehl _OL_ItemFind abstürzt.
Func sendAppointment($sSubject,$sStart,$sEnd,$sVenue,$sProdNr,$sRemark,$sLinkToSP)
Local $sBody
Local $oItem
Local $sBody = $sSubject & @CRLF &$sVenue& @CRLF & @CRLF & $sProdNr & @CRLF & $sRemark & @CRLF &"ProNet:"& @CRLF &$sLinkToSP & @CRLF& @CRLF & "Sync (RM):"& $sToDay
ConsoleWrite(" INFO from function SendAppontment: Start (" &$sStart&"-"&$sEnd &" "&$sSubject&") -- " )
$oItem = _OL_ItemCreate($oOutlook, $olAppointmentItem, "*\Kalender\Dienst", "", "Subject="& $sSubject, "Start=" & ConvertsDate($sStart) , "End=" & ConvertsDate($sEnd) , _
"Location= " & $sVenue ,"ReminderSet= false","Body=" &$sBody ,"RequiredAttendees=" & $oOutlook.GetNameSpace("MAPI" ).CurrentUser)
If @error <> 0 Then
addNewGUIInfo("Termin in Outlook eintragen",1,1)
addNewGUIInfo("ist fehlgeschlagen")
addNewGUIInfo("Funktion: createAppointment")
addNewGUIInfo("@error:" & @error & ", @extended = " & @extended)
addNewGUIInfo("Outlook-Server ist nicht erreichbar")
addNewGUIInfo("-----------------------------------------")
;$stopFlag = True
;SetError(1)
Endif
ConsoleWrite(" End "& @CRLF)
EndFunc; sendAppointment
Alles anzeigen
Konsole:
INFO from function SendAppontment: Start (2022/03/29 09:00:00-2022/03/29 16:42:00 Titel.. ganztags) -- #2 End
INFO from function Delete OutlookDay: Start (2022/03/30 00:00:00) #2 (30-03-2022 00:00 -- 31-03-2022 00:00) #3 End
INFO from function Create Appointment: Start
INFO from function SendAppontment: Start (2022/03/30 09:00:00-2022/03/30 16:42:00 Titel.. ganztags) --
!>16:08:47 AutoIt3.exe ended.rc:-1073741819
Ich verwende:
Win 10 mit Outlook 2016
OutlookEX in Version 1.7.00 .
SciTE 32-bit Version 4.2.0
Hat jemand einen Tip was ich noch testen kann oder woran es liegen könnte
Danke Reiner