Beiträge von laszia

Also ich greife immer auf den gleichen Exchange Server, momentan ist das so :).
Ich werde das mal so versuchen und schauen was passiert. Falls das dann nicht so funktionnieren sollte wie ich es möchte dann werde ich die Funktion der UDF testen.

Danke.

Hallo,

Gut zu wissen dass es eine integrierte Funktion gibt. Diese kannte ich nicht.
Ich habe es nun folgendermassen stehen

$bStatus = $oOutlook.Session.ExchangeConnectionMode

Das funktionniert so. Aber nun weiss ich dass es eine funktion in der UDF gibt.

Vielen Dank.

Hallo,

Vielen dank euch beiden. Ich habe es hinbekommen mit eurer Hilfe.
Da ich die OutlookEx UDF benutze habe ich es damit gemacht. Der Code sieht so ähnlich aus wie eurer

Func _OL_status_as_Text()
	Local $a_Status2Text[9][2] = [ [800, "olOnline" ], [ 700, "olCachedConnectedFull" ], [ 600, "olCachedConnectedDrizzle" ], [ 500, "olCachedConnectedHeaders" ], [ 400, "olCachedDisconnected" ], [ 300, "olDisconnected" ], [ 200, "olCachedOffline" ], [100, "olOffline"] ]
	$oOutlook = _OL_Open()
	If @error = 0 Then
		$bStatus = $oOutlook.Session.ExchangeConnectionMode
		For $i = 0 To UBound($a_Status2Text, 1) Step 1
			If $a_Status2Text[$i][0] = $bstatus Then
				Return $a_Status2Text[$i][1]
			EndIf
		Next
	Else
		Return -1
	EndIf
	_OL_Close($oOutlook)
EndFunc




MsgBox(64, "Outlook Status", "Status: " & _OL_status_as_Text())

Hallo,

Ich benutze aktuell OutlookEX um Mails aus Outlook auszulesen und Attachements abzuspeichern. Outlook ist mit einem Exchange Server verbunden.
Es kann manchmal vorkommen dass die Verbindung zwischen Outlook und dem Exchange Server gekappt wird.
Das Poblem ist dann folgendes:
- Ich lese die Mails in Outlook
- Danach schaue ich ob diese attachments enthalten die mich interessieren.
- Diese werden abgespeichert.
- Wenn die Verbiendung gekappt wird, bekomme ich die Dateien nicht mehr gespeichert und das Programm schiesst sich ab.

Gibt es hierzu eine möglichkeit zu schauen ob die Verbindung zwischen Outlook und dem Exchange besteht oder ob diese gekappt wurde?
In Outlook gibt es den Status wo steht "Online/Offline" u.s.w. Kann man diesen auslesen?
Mir würde reichen wenn ich den Status "Online" auslesen könnte. Falls dort nicht mehr "Online" steht dann würde ich den Prozess stoppen und abwarten bis wieder "Online" dort steht. So könnte ich vermeiden dass das Programm sich abschiesst.

Falls jemand eine Idee hat.

Danke.

Hallo,

Folgendes:
Ich habe ein Programm erstellt mit dem man Filter erstellen kann. Diese werden in einer INI Datei gespeichert. Die erstellten Filter werden in einer TreeView aufgelistet. Hier kann man dann auf die entsprechenden Filter klicken und rechts neben der TreeView werden die verschiedenen Filtereinträge angezeigt.
Soweit funktionniert das auch, Die Eintragsfelder rechts im Fenster sind fest programmiert.

Jetzt möchte ich aber folgendes machen, und zwar weitere Filtereinträge, die aber nichts mit den obengenannten zu tun haben, und andere Eintragsfelder benutzt werden.

Wie kann man das am besten hinbekommen? Soll ich die einen Felder maskieren und die anderen anzeigen und umgekehrt?

Ich habe auch folgende UDF versucht: https://www.autoitscript.com/forum/topic/14…bs-as-treeview/
Ich habe aber ein Problem beim Aurufen des Fensters, da die Eingabefelder zuerst angezeigt werden, dann aber verschwinden.

Wie könnte man das am besten angehen?

Vielleicht hat ja jemand eine Idee.

Vielen dank.

Ich habe den Kode von Phil-IT natürlich getestet, auch um zu schauen wie und was es eigentlich macht. Und ich lerne immer wieder neue sachen, auch wenn ich diese vielleicht nicht oder nur teilweise in meinen Kode einfüge. Einen kleinen Teil von Phil-IT's Kode habe ich in meinen übernommen

@Phil_IT
Habe mir das mal angeschaut und in einer separaten Scriptdatei ausprobiert. Muss mal schaun ob ich das so in mein script einbaue oder nicht Aber ist eigentlich das was ich machen wollte.

Wie gesagt, habe das mit einer separaten exe erstellt und scheint für mich momentan ok zu sein...

Vielen dank nochmals.

Doch hab ich gesehen
Das problem ist dass der Status nicht geupdated wird, darum habe ich es in einer separaten exe laufen. Ich glaub dass das Skript solange beim move stehen bleibt bis alle Dateien verschiebt wurden und dann wieder weiterläuft.

Hallo,

Die optionen oben waren nicht genau das was ich wollte. Diese zeigen ja nur eine Progressbar dir hin und her läuft. Ich wollte eine Progressbar die mir zeigt wo ich gerade beim Move dran bin, also wieviele Dateien noch gemoved werden müssen.

Mit einer separaten exe kann ich das Verzeichniss solange scannen bis keine Dateien mehr vorhanden sind, und dann halt auch eine Prgressbar anzeigen lassen.

Was bei dieser Methode nicht sehr gut ist ist dass es als separates Fenster angezeigt wird und nicht wie ein Popup.

Ganz am anfang hatte ich folgenden Kode

if IsArray($aFileList) Then
    if $aFileList[0] <> 0 Then
        for $k = 1 to $aFileList[0]
             FileMove($aFileList[$k], $importpath, $FC_OVERWRITE)
        next
    EndIf
EndIf

Dort hätte ich können die Progressbar einfügen. Nur dass dieser Kode langsam ist wenn man sehr viele Dateien verschieden muss.

Wie gesagt, ich gebe micht momentan mit dem was ich gemacht habe zufrieden.

Hallo,

Vielen dank für eure Antworten.
Ich habe es nun so gemacht dass ich eine separate exe erstellt habe die mir eine Progressbar anzeigt. Wollte das zwar verhindern, aber gut, kann damit leben

Vielen dank nochmals.

Hallo,

Warscheinlich stelle ich hier eine Frage die schon beantwortet wurde, leider habe ich nichts über die Suche gefunden.

Eigentlich möchte ich beim FileMove eine Progressbar anzeigen lassen.

Ich benutze folgenden Kode

;Move files if available
Do
         FileMove($Tempfolder & "*.*", $importpath)
Until FileFindFirstFile($Tempfolder & "*.*") = -1

Ist es irgendwie möglich dort eine Progressbar einzufügen?
Ich benutze diese Methode da der Filemove schneller ist als die Methode wo ich in einem Array die Dateien zuerst einlese und dann einzeln verschiebe. Warscheinlich wäre es bei dieser Methode einfacher eine Progressbar einzubauen.
Möchte aber wissen ob es bei meiner aktuell benutzten Methode auch eine Möglichkeit gibt.

Vielen dank.

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.

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

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.

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

Ich glaube ich habe eine Lösung gefunden.

Ich habe in der OutlookEx bei folgendem Code

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

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

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

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.

Hier ist ein Teil meines Codes:

$oOutlook = _OL_Open()

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

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

....

EndIf
_OL_Close($oOutlook)

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

....
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
....

Bei

Local $iItems = $oItems.Count

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

Hallo,

Das ist der Skriptcode den ich aufrufe

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

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

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,

Ich habe mein Skript jetzt ein bisschen laufen lassen und das klappt momentan mit den Änderungen die ich gemacht habe, ob Outlook offen oder halt geschlossen.

Ich habe nur bei folgendem Szenario dass Outlook sich schliesst falls geöffnet:
- Outlook ist geschlossen, ich starte das Programm
- Nach zwei minuten werden die beiden Funktionen durchlaufen.
- Danach öffne ich Outlook.
- Nach zwei minuten werden wieder die Funktionen durchlaufen.
- In diesem Fall wird Outlook geschlossen.
Starte ich nun Outlook nochmals bleibt Outlook geöffnet und wird nicht mehr geschlossen.

Ich werde auch für die nächsten 3 Wochen im Urlaub sein, werde also nicht im Forum aktiv sein.