Ja, bin auch schon gerade am lesen/testen 
Beiträge von Autolaser
-
-
Ja das mit der 4 ist mir schon klar, aber ich bekomme da nur 0 zurück obwohl 6 Mails orange gefärbt sind.
[autoit]
[/autoit]
$aItemsfind = _OL_ItemFind($oOutlook, $aFolder, $olMail,"[FlagIcon]=2", "", "", "EntryID,FlagIcon","", 4)
GUICtrlSetData($test_mails_farbig, $aItemsfind ) -
Eine Frage hätte ich noch zu den $iFlags bei _OL_ItemFind
$iFlags (Optional)
Flags to set different processing options. Can be a combination of the following:
1 - Subfolders will be included
2 - Row 1 contains column headings. Therefore the number of rows/columns in the table has to be calculated using UBound
4 - Just return the number of records. You don't get an array, just a single integer denoting the total number of records foundWie kann ich die Anzahl der Treffer ausgeben?
-
Das geht natürlich auch, Danke
-
Genau das war es.
Manchmal sieht man den Wald vor lauter Bäumen nicht
Funktioniert perfekt !
[autoit]
Danke !
[/autoit]
Func wartung_orange()
Global $aFolder = "Postfach - Test\Test"
$aItemsfind = _OL_ItemFind($oOutlook, $aFolder, $olMail,"", "", "", "EntryID,FlagIcon")
For $i = 1 to $aItemsfind[0][0]
If $aItemsfind[$i][1] = 0 Then _OL_ItemModify($oOutlook, $aItemsfind[$i][0], Default, "FlagIcon=" & $olOrangeFlagIcon); markiert alle Mails ohne Farbe auf orange um
Next
EndFunc -
Ja stimmt gerade getestet
[autoit]
[/autoit]
$aItemsfind = _OL_ItemFind($oOutlook, $aFolder, $olMail, "[UnRead]=True", "", "", "EntryID,FlagIcon")
_ArrayDisplay($aItemsfind, "OutlookEX UDF: Unread mails")
OK damit bekomme ich auch die EntryIDs und die korrekten Farben als Array zurückZitatAlles anzeigen[0]|7|2
[1]|0000000078BB1063B6D26144B249813D44696DD224002000|2
[2]|0000000078BB1063B6D26144B249813D44696DD244002000|5
[3]|0000000078BB1063B6D26144B249813D44696DD264002000|0
[4]|0000000078BB1063B6D26144B249813D44696DD284012000|2
[5]|0000000078BB1063B6D26144B249813D44696DD2A4012000|2
[6]|0000000078BB1063B6D26144B249813D44696DD2C4012000|2
[7]|0000000078BB1063B6D26144B249813D44696DD2E4012000|2Jetzt hängt es aber bei mir wieder
Wie greife ich in der Schleife auf den Returnwert für FlagIcon zu um z.B zu prüfen welche EntryIDs FlagIcon = 0 haben ? -
OK
Kannst du mir einen kurzen Anstoss geben welcher Parameter dabei gesucht werden muss? -
Ich danke dir water das funktioniert wunderbar
[autoit]
#include <OutlookEX.au3>
[/autoit]
Global $oOutlook = _OL_Open(True, @ScriptDir&"\_OL_Warnings.exe", 1000, 1000, "", "")
Global Const $olBlueFlagIcon = 5
Global Const $olGreenFlagIcon = 3
Global Const $olNoFlagIcon = 0
Global Const $olOrangeFlagIcon = 2
Global Const $olPurpleFlagIcon = 1
Global Const $olRedFlagIcon = 6
Global Const $olYellowFlagIcon = 4
wartung_orange()
Func wartung_orange()
Global $aFolder = "Postfach - Wartungn"
$aItemsfind = _OL_ItemFind($oOutlook, $aFolder, $olMail, "[UnRead]=True", "", "", "EntryID")
;~ _ArrayDisplay($aItemsfind, "List EntryID of Unread mails")
For $i = 1 to $aItemsfind[0][0]
_OL_ItemModify($oOutlook, $aItemsfind[$i][0], Default, "FlagIcon=" & $olOrangeFlagIcon)
Next
_OL_Close($oOutlook)Achja mit _OL_ItemGet sollte ich ja auch prüfen können welche E-Mails bereits gefärbt sind oder irre ich mich da ?
-
Bis jetzt lasse ich mir die Anzahl der ungelesenen Mails mit deiner OutlookEX UDF und der Funktion _OL_FolderGet und dem Return-Value 7 in meiner GUI anzeigen.
7 - Number of unread items in the folder
Das selektieren der ungelesenen Mails kann ich dann ja mit _OL_ItemFind und "[UnRead]=True" machen
-
Danke für deine Antwort Water.
Ich bräuchte es dann aber in jedem Fall für Outlook 2003
-
Hmm,
und warum steht da folgendes?
Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Anwendungsebene für Outlook 2007 und Outlook 2010
Auch auf Technet gibts den Artikel mit Hinweis auf Microsoft Office-Version
Outlook 2003
Outlook 2007 -
upps vergessen.
Wie gehabt mit Outlook 2003 auf Arbeit.FlagIcon ist laut MS auch für 2007 und 2010
Einfach unter der fetten Überschrift umschalten auf
Visual Studio 2010 Andere Versionen -
Hallo zusammen,
ich mal wieder eine Frage zu Outlook 2003 speziell an water zur OutlookEX UDF
Ist es möglich neue E-Mail farblich zu kennzeichen? (Nachrichtenverfolgung)
Wenn ja mit welcher Funktion aus der OutlookEX UDF ?Bei MS gibt es dazu auch einen VB-Schnipsel
-
1.
ZitatIch suche mir die beiden Inputfelder per _IEGetObjByName heraus
stimmt doch garnicht
Zeile 5 steht bei dir:
[autoit]$oUsername = _IEGetObjById($oIE, "username")
[/autoit] -
Ja sieht so aus, da sollte auch kein Problem sein da man ja den vollen Pfad des jeweiligen Ordners direkt an die Combobox "REComboBox20W1" schicken kann.
Danke erstmal soweit für deine Zeit und Mühe -
Ausgabe von _OL_BarShortcutGet
[0]|2|2
[1]|Outlook Heute|
[2]|Microsoft Office Online|http://r.office.microsoft.com/r/rlidOutlookShortcuttoWeb?&clid=1031Ausgabe von _OL_BarGroupGet
[0]|1|2
[1]|Verknüpfungen|1 -
Das hier funktioniert zumindest manuell mit den Fokus auf den jeweiligen Ordner.
Go to a different folder CTRL+YKeyboard shortcuts Outlook 2003
http://office.microsoft.com/en-us/outlook-…P003084223.aspxAlso sollte es auch eine Methode geben die man ansprechen kann oder ?
-
Ich glaube ich habe was gefunden
http://www.outlookbanter.com/outlook-vba/70…older-list.html
[Edit]
ne schade war auch nur ne Anfrage
Bei der OutlookEx.au3
; Name...........: _OL_FolderSet
; Description ...: Sets a new folder as the current folder.
; Remarks .......: The current folder is the one displayed in the active explorerBezieht sich somit auch nur auf die mittlere Listview in Outlook also die Liste mit den E-Mails in Outlook oder?
Schön wäre natürlich wenn auch die ausgewählte Postfachgruppe in der linken Postfach/Ordnerliste angezeigt wird. -
Nein, wir haben auf Arbeit leider nur Office outlook 2003 Professionel auf dem Remote-Server
-
Danke für deine Antwort water.
Ich such mir auch schon einen WolfZitatDu kannst den Ordner aber auch in einem neuen Explorer öffnen.
Das wäre das gleiche wie mit rechts Klick auf den Ordner und dann "in neuem Fenster öffnen"?
Dann mach er zwar einen neuen Explorer auf aber fokusiert dann die gesamte Ordnerlist automatischauf ganz oben