Beiträge von water

water · Dienstag, 16:19

Ein COM Error Handler gibt Dir genauere Informationen über das Problem. Siehe ObjEvent in der Hilfe.

water · 11. Januar 2021

Wie wäre es mit dem Icon Configuration Utility von KaFu?

https://www.autoitscript.com/f…ility-updated-2018-sep-16

water · 6. Januar 2021

Hier im Forum werden immer wieder sehr gute UDFs gepostet.

Leider gibt es über diese UDFs keine Übersichtsseite wie im englischen Wiki. Lt. Forum wurden immer wieder Versuche gestartet, die aber mehr oder weniger bald wieder versandet sind.

Wir wollen nun auch die deutschen UDFs in das engl. Wiki aufnehmen.

Zur Unterscheidung, dass der Link auf das deutsche Forum geht, wird am Ende des Eintrags die deutsche Flagge eingefügt (abhängig vom Browser kann aber auch nur "DE" angezeigt werden).

Beispiel: https://www.autoitscript.com/w…er_Defined_Functions#Misc

Wenn Ihr eine der UDFs aus dem deutschen Forum im engl. Wiki sehen wollt, dann postet hier bitte folgende Daten:

Name der UDF (z.B. FireFox)
Autor (z.B. Stilgar)
Kurzbeschreibung in Englisch (z.B. "A little less support for automation than IE, but still very good.")
Kategorie in die die UDF gehört (z.B. Browser)
Link zur Seite von der die UDF heruntergeladen werden kann

Wir prüfen dann die Posts und erstellen im Wiki die EIntragungen!

water · 30. Dezember 2020

Wir setzten zwar keines davon ein, aber es gibt viele Permission Audit bzw. Permission Reporting tools die sich über Google finden lassen.
Mit einer entsprechend langen Testperiode kann man die Qualität und den Funktionsumfang sicher gut prüfen.

Z.B. https://www.netadmintools.com/…diting-reporting-software

Aber vielleicht genügt auch PowerShell: https://www.lepide.com/how-to/…ort-using-powershell.html

water · 28. Dezember 2020

Gruß ist angekommen

water · 25. Dezember 2020

Erledigt

water · 23. Dezember 2020

Auch von mir schöne Weihnachten (was auch immer Ihr darunter versteht)
Sollte jemand das Geburtstagskind sehen, dann richtet bitte meine Glückwünsche aus!

UEZ Cooler Christbaum!!

water · 20. Dezember 2020

Ein weiterer netter Begriff: geistseicht.

water · 15. Dezember 2020

water · 15. Dezember 2020

AutoIt Forum <> Auto Forum
Hier geht es um eine Programmiersprache - Du suchst einen Reparaturtipp

water · 14. Dezember 2020

Kannst Du bitte die aktuellste Version (1.6.3.0) der OutlookEX UDF herunterladen und OutlookEX.au3 und OutlookEX_Base.au3 in den UDF Verzeichnis kopieren?
Mit der habe ich zuletzt getestet und da funktioniert alles problemlos.

water · 12. Dezember 2020

Definiere "Problem".

Wie sieht der Array aus?
Welche Werte haben @error und @extended?

water · 10. Dezember 2020

So, das war jetzt eine ziemliche Doktorarbeit

_OL_ItemFind erlaubt nur die Rückgabe von direkten Properties eines Items. Das Item Objekt und das Folder Objekt gehören da leider nicht dazu.
Ich habe nun _OL_ItemFind (testweise) so angepasst, dass die folgenden beiden "pseudo properties" (@ItemObject und @FolderObject) das Item Objekt und das Folder Objekt zurückgeben.

Kannst Du das bitte testen und mir dann sagen, ob es Deine Wünsche erfüllt?
Falls es passt, dann erweitere ich die Funktionalität und baue sie in die OutlookEX UDF ein.

Das nachfolgende Testskript baut auf dem _OL_ItemFind.au3 Beispielskript auf:

Code

#include <OutlookEX.au3>

; *****************************************************************************
; Create test environment
; *****************************************************************************
Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
Global $Result = _OL_TestEnvironmentCreate($oOutlook)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF - Manage Test Environment", "Error creating the test environment. @error = " & @error & ", @extended = " & @extended)
Global $aItems

;------------------------------------------------------------------------------------------------------------------------------------------------
; Example 2 - Search for appointments with "Room" as location (partial match)
;------------------------------------------------------------------------------------------------------------------------------------------------
_OL_ErrorNotify(2)
Global $aFolder = _OL_FolderAccess($oOutlook, "*\Outlook-UDF-Test\SourceFolder\Calendar")
$aItems = _OL_ItemFindEX($oOutlook, $aFolder[1], $olAppointment, "", "", "", "EntryID,@FolderObject,@ItemObject,Subject,Location", "", 1)
If @error = 0 Then
    _ArrayDisplay($aItems, "OutlookEX UDF: _OL_ItemFind Example Script - Find appointments by partial search")
Else
    MsgBox(48, "OutlookEX UDF: _OL_ItemFind Example Script", "Error finding an appointment. @error = " & @error & ", @extended: " & @extended)
EndIf
ConsoleWrite("Folder Description: " & $aItems[1][1].Description & @CRLF)
ConsoleWrite("Folder Folderpath : " & $aItems[1][1].FolderPath & @CRLF)
ConsoleWrite("Item Subject      : " & $aItems[1][2].Subject & @CRLF)

_OL_Close($oOutlook)

Func _OL_ItemFindEX($oOL, $vFolder, $iObjectClass = Default, $sRestrict = "", $sSearchName = "", $sSearchValue = "", $sReturnProperties = "", $sSort = "", $iFlags = 0, $sWarningClick = "")
    If $sRestrict = Default Then $sRestrict = ""
    If $sSearchName = Default Then $sSearchName = ""
    If $sSearchValue = Default Then $sSearchValue = ""
    If $sReturnProperties = Default Then $sReturnProperties = ""
    If $sSort = Default Then $sSort = ""
    If $iFlags = Default Then $iFlags = 0
    If $sWarningClick = Default Then $sWarningClick = ""
    Local $bChecked = False, $oItems, $aTemp, $iCounter = 0, $oItem
    If $sWarningClick <> "" Then
        If FileExists($sWarningClick) = 0 Then Return SetError(2, 0, "")
        Run($sWarningClick)
    EndIf
    If $iObjectClass = Default Then $iObjectClass = $olContact ; Set Default ObjectClass
    ; Set default return properties depending on the class of items
    If StringStripWS($sReturnProperties, BitOR($STR_STRIPLEADING, $STR_STRIPTRAILING)) = "" Then
        Switch $iObjectClass
            Case $olContact
                $sReturnProperties = "FirstName,LastName,Email1Address,Email2Address,MobileTelephoneNumber"
            Case $olDistributionList
                $sReturnProperties = "Subject,Body,MemberCount"
            Case $olNote, $olMail
                $sReturnProperties = "Subject,Body,CreationTime,LastModificationTime,Size"
            Case $olAppointment
                $sReturnProperties = "EntryID,Start,End,Subject,IsRecurring" ; Same as returned by _OL_AppointmentGet
            Case Else
                Return SetError(6, 0, "")
        EndSwitch
    EndIf
    If Not IsObj($vFolder) Then
        $aTemp = _OL_FolderAccess($oOL, $vFolder)
        If @error Then Return SetError(3, @error, "")
        $vFolder = $aTemp[1]
    EndIf
    If ($sSearchName <> "" And $sSearchValue = "") Or ($sSearchName = "" And $sSearchValue <> "") Then Return SetError(1, 0, "")
    Local $aReturnProperties = StringSplit(StringStripWS($sReturnProperties, $STR_STRIPALL), ",")
    Local $iIndex = $aReturnProperties[0]
    If $aReturnProperties[0] < 2 Then $iIndex = 2
    If StringStripWS($sRestrict, BitOR($STR_STRIPLEADING, $STR_STRIPTRAILING)) = "" Then
        $oItems = $vFolder.Items
        If @error Then Return SetError(5, @error, "")
    Else
        $oItems = $vFolder.Items.Restrict($sRestrict)
        If @error Then Return SetError(5, @error, "")
    EndIf
    Local $iItems = $oItems.Count
    Local $aItems[$iItems + 1][$iIndex] = [[0, $aReturnProperties[0]]]
    If BitAND($iFlags, 4) <> 4 And $sSort <> "" Then
        $aTemp = StringSplit($sSort, ",")
        If $aTemp[0] = 1 Then
            $oItems.Sort($sSort)
        Else
            $oItems.Sort($aTemp[1], True)
        EndIf
    EndIf
    For $i = 1 To $iItems
        $oItem = $oItems.Item($i)
        If $oItem.Class <> $iObjectClass Then ContinueLoop
        ; Get all properties of first item and check for existance and correct case
        If BitAND($iFlags, 4) <> 4 And Not $bChecked Then
;~            If Not __OL_CheckProperties($oItem, $aReturnProperties, 1) Then Return SetError(@error, @extended, "")  ; <== __OL_CheckProperties erweitern
            $bChecked = True
        EndIf
        If $sSearchName <> "" And StringInStr($oItem.ItemProperties.Item($sSearchName).value, $sSearchValue) = 0 Then ContinueLoop
        ; Fill array with the specified properties
        $iCounter += 1
        If BitAND($iFlags, 4) <> 4 Then
            For $iIndex = 1 To $aReturnProperties[0]
                If StringLeft($aReturnProperties[$iIndex], 1) <> "@" Then
                    $aItems[$iCounter][$iIndex - 1] = $oItem.ItemProperties.Item($aReturnProperties[$iIndex]).value
                    If @error Then Return SetError(4, @error, "")
                Else
                    If $aReturnProperties[$iIndex] = "@ItemObject" Then $aItems[$iCounter][$iIndex - 1] = $oItem
                    If $aReturnProperties[$iIndex] = "@FolderObject" Then $aItems[$iCounter][$iIndex - 1] = $vFolder
                EndIf
                If BitAND($iFlags, 2) = 2 And $iCounter = 1 Then $aItems[0][$iIndex - 1] = $oItem.ItemProperties.Item($aReturnProperties[$iIndex]).Name ; <== Header erweitern
            Next
        EndIf
        If BitAND($iFlags, 4) <> 4 And BitAND($iFlags, 2) <> 2 Then $aItems[0][0] = $iCounter
    Next
    If BitAND($iFlags, 4) = 4 Then
        ; Process subfolders
        If BitAND($iFlags, 1) = 1 Then
            For $vFolder In $vFolder.Folders
                $iCounter += _OL_ItemFind($oOL, $vFolder, $iObjectClass, $sRestrict, $sSearchName, $sSearchValue, $sReturnProperties, $sSort, $iFlags, $sWarningClick)
            Next
        EndIf
        Return $iCounter
    Else
        ReDim $aItems[$iCounter + 1][$aReturnProperties[0]] ; Process subfolders
        If BitAND($iFlags, 1) = 1 Then
            For $vFolder In $vFolder.Folders
                $aTemp = _OL_ItemFind($oOL, $vFolder, $iObjectClass, $sRestrict, $sSearchName, $sSearchValue, $sReturnProperties, $sSort, $iFlags, $sWarningClick)
                __OL_ArrayConcatenate($aItems, $aTemp, $iFlags)
            Next
        EndIf
        Return $aItems
    EndIf
EndFunc   ;==>_OL_ItemFind

Alles anzeigen

water · 10. Dezember 2020

Ich ging vom Ergebnis von _OL_ItemFind von Deinem vorigen Beispiel aus.
D.h. vom Item -> Folder -> Folderpfad -> zerlegen und die gewünschten Infos extrahieren

D.h. wir sollten zuerst klären, ob Du vom Folder oder vom item ausgehen willst/musst?

water · 10. Dezember 2020

Wenn Du mit _OL_ItemGet das Objekt des jeweiligen Items holst, dann kannst Du mit $oFolder = $oObject.Parent den Folder dazu ermitteln. Mit $oFolder.FolderPath solltest Du den vollständigen Pfad erhalten.

water · 10. Dezember 2020

Das ist doppelt gemoppelt. So geht's auch:

Code

Local $aFolder = _OL_FolderAccess($oOL, $OutlookKalender, $olFolderCalendar)
If @error Then Return MsgBox($MB_ICONERROR, "Error", "_OL_FolderAccess returned @error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($aFolder, "$aFolder")

Local $aResult = _OL_FolderGet($oOL, $aFolder[1])
If @error Then Return MsgBox($MB_ICONERROR, "Error", "_OL_FolderGet returned @error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($aResult, "$aResult")

water · 10. Dezember 2020

Du greifst ja mit _OL_FolderAccess auf den jeweiligen Kalender zu.
Mit dem im Array zurückgegebenen Folder-Objekt rufst Du dann _OL_FolderGet auf. Im Feld 5 des Arrays kriegst Du dann den "Displayname" des Folders zurück.

water · 9. Dezember 2020

_OL_ItemFind bzw. _Ol_ItemSearch durchsuchen jeweils nur einen Folder. Willst Du mehrere Kalender durchsuchen, musst Du zuerst mit _OL_FolderAccess darauf zugreifen und jeden Folder dann durchsuchen.

water · 7. Dezember 2020

Ich kenne es so, dass die Berechtigungen auf dem Postfach selbst vergeben werden (d.h. wer darf mit welchen Funktionen auf das Postfach zugreifen).

water · 5. Dezember 2020

Beiträge von water

Seriennummer auslesen

Position von Desktop Icons speichern und wiederherstellen

UDFs vom deutschen Forum in das engl. Wiki aufnehmen

Dateiverzeichnisse: Bestimmte Berechtigungsgruppe auslesen und auflisten.

Fehler: Listview

Fehler in der ENGLISCHEN Hilfe bitte hier melden

Frohes Weihnachtsfest

Frohes Weihnachtsfest

_OL_Example_SentMail_Event

Kratzer an Hintertür, was tun?

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event

_OL_Example_SentMail_Event