Beiträge von wuff100

  • OutlookEX: Terminänderung erkennen

    water, auch so funktioniert es nicht, wenn ich es richtig von dir verstanden habe.

    Spoiler anzeigen

    #include <OutlookEX.au3>

    Global $outlook = _OL_Open()

    Local $oDefaultFolder = $outlook.GetNamespace("MAPI").GetDefaultFolder("Outlook-Datendatei\Kalender")

    Local $oItems = $oDefaultFolder.Items

    $oEvt = ObjEvent($outlook, "oItems_")

    While 1

    Sleep(100)

    WEnd

    Func oItems_PropertyChange($sEntryIDs)

    MsgBox(0, "", "Test")

    Local $iItemCount, $oItem

    Local $aEntryIDs = StringSplit($sEntryIDs, ",", $STR_NOCOUNT) ; multiple EntryIDs are separated by ,

    $iItemCount = UBound($aEntryIDs)

    ConsoleWrite("OutlookEX UDF Example Script - " & ($iItemCount = 1 ? "new item has" : "new items have") & " arrived!" & @CRLF & @CRLF)

    For $i = 0 To $iItemCount - 1

    $oItem = $outlook.Session.GetItemFromID($aEntryIDs[$i], Default) ; Translate the EntryID string to the item object

    ConsoleWrite("Subject: " & $oItem.Subject)

    Next

    EndFunc ;==>oItems_PropertyChange

  • OutlookEX: Terminänderung erkennen

    Spoiler anzeigen

    #include <OutlookEX.au3>

    Global $outlook = _OL_Open()

    $oEvt = ObjEvent($outlook, "oItems_")

    While 1

    Sleep(100)

    WEnd

    Func oItems_PropertyChange($sEntryIDs)

    MsgBox(0,"","Test")

    Local $iItemCount, $oItem

    Local $aEntryIDs = StringSplit($sEntryIDs, ",", $STR_NOCOUNT) ; multiple EntryIDs are separated by ,

    $iItemCount = UBound($aEntryIDs)

    ConsoleWrite("OutlookEX UDF Example Script - " & ($iItemCount = 1 ? "new item has" : "new items have") & " arrived!" & @CRLF & @CRLF)

    For $i = 0 To $iItemCount - 1

    $oItem = $outlook.Session.GetItemFromID($aEntryIDs[$i], Default) ; Translate the EntryID string to the item object

    ConsoleWrite("Subject: " & $oItem.Subject)

    Next

    EndFunc

    water, Ich bekomme es nicht hin. Beim verschieben des Termin's soll das Subject zurück gegeben werden.

  • _OL_FolderAccess / _OL_ItemFind

    Moin,

    water, ich möchte Einträge in drei bestimmten Kalendern finden.

    z.B. "Outlook-Datendatei\Kalender\Name1" und "Outlook-Datendatei\Kalender\Name2" und "Outlook-Datendatei\Kalender\Name3"

    _OL_ItemFind soll mir dann alle drei Einträge anzeigen.

    Wie kann ich diese drei Kalender explizit finden?

    Spoiler anzeigen

    Local $oOL = _OL_Open()

    If @error Then

    MsgBox(0 + 262144 + $MB_SETFOREGROUND + 64, "Error", "_OL_Open returned @error = " & @error & ", @extended = " & @extended, 0, $tsn_ST_Main)

    Return

    EndIf

    Global $aFolder = _OL_FolderAccess($oOL, "Outlook-Datendatei\Kalender\" & Name1 ...Name 2..... Name3 ,$olFolderCalendar)

    Local $aOL_Item = _OL_ItemFind($oOL, $aFolder[1], $olAppointment, "", "Subject", $Betreff_GK, "EntryID,Subject,Location,Body,Start,End", "", 1)


  • _OL_ItemCreate. Termin, ganztägiges Ereignis

    water, sorry, ich habe es gefunden!

    Es ist "Alldayevent=True".

    Spoiler anzeigen

    #include <OutlookEX.au3>

    Global $oItem

    Global $oOL = _OL_Open()

    If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

    $oItem = _OL_ItemCreate($oOL, $olAppointmentItem, "", "", "Subject=TestSubject", "Start=2021/07/19 00:01:00", "End=2021/07/19 00:00:00","Alldayevent=True", _

    "Location=Building A, Room 10", "RequiredAttendees=" & $oOL.GetNameSpace("MAPI" ).CurrentUser.Name)

    If @error <> 0 Then Exit MsgBox(16, "Error", "Error creating an appointment. @error = " & @error & ", @extended = " & @extended)

    _OL_Close($oOL)

    Gruß

  • _OL_ItemCreate. Termin, ganztägiges Ereignis

    Moin,

    water , wie setzte ich mit _OL_ItemCreate, im Kalender den Button "ganztägiges Ereignis"?

    Spoiler anzeigen

    #include <OutlookEX.au3>

    Global $oItem

    Global $oOL = _OL_Open()

    If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

    $oItem = _OL_ItemCreate($oOL, $olAppointmentItem, "", "", "Subject=TestSubject", "Start=2021/07/19 00:00:00", "End=2021/07/19 00:00:00", _

    "Location=Building A, Room 10", "RequiredAttendees=" & $oOL.GetNameSpace("MAPI" ).CurrentUser.Name)

    If @error <> 0 Then Exit MsgBox(16, "Error", "Error creating an appointment. @error = " & @error & ", @extended = " & @extended)

    _OL_Close($oOL)

    Gruß

  • _OL_Example_SentMail_Event

    water, es gib ein Problem mit dem Array.

    $aItems = _OL_ItemFindEX($oOL, $aFolder[1], $olAppointment, "", "Subject", $Betreff_GK, "EntryID,@FolderObject,@ItemObject,Subject,Location", "", 1)

    Wenn ich das "EntryID,Subject,Location,Body,Start,End" einsetze, funktoniert es.

    Gib mir dann natürlich kein @FolderObject,@ItemObject zurück.

  • _OL_Example_SentMail_Event

    Zitat

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

    Vom Item aus.

    Spoiler anzeigen

    Local $oOL = _OL_Open()

    Local $aOL_Item = _OL_ItemFind($oOL, $OutlookKalender, $olAppointment, "", "Subject", $Betreff_GK, "EntryID,Subject,Location,Body,Start,End", "", 1)

    Local $aOL_Properties[1] = ["Subject=" & $Betreff_GK]

    Local $oObject = _OL_ItemModify($oOL, $aOL_Item[1][0], Default, $aOL_Properties)

    Local $oFolder = $oObject.Parent

    Local $Path = $oFolder.FolderPath

    MsgBox(1, "", $Path)

    Mit _OL_ItemModify funtioniert es.

    Übrigens, für Deine UDF und Hilfe möchte ich Dir nochmals sehr danken. :)

  • _OL_Example_SentMail_Event

    Spoiler anzeigen

    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")

    Local $oObject = $aResult[1]

    Local $oFolder = $oObject.Parent

    Local $Path = $oFolder.FolderPath

    water, wenn es so richtig ist, wird der $oFolder, noch der $oFolder.FolderPath nicht ermittelt.

  • _OL_Example_SentMail_Event

    water, aber leider nicht immer.

    Spoiler anzeigen

    $OutlookKalender = "Outlook-Datendatei\"

    Local $aOL_Item = _OL_ItemFind($oOL, $OutlookKalender, $olAppointment, "", "Subject", $Betreff_GK, "EntryID,Subject,Location,Body,Start,End", "", 1)

    _ArrayDisplay($aOL_Item, "_OL_ItemFind")

    So wird mein Item in einem bestimmten Kalender z.B. "Test" gefunden.

    Es muss doch jetzt möglich sein, aufgrund des gefundenen Items, den Kalender auszugeben, in dem sich das Item befindet.

    Der Pfad müsste dann so als Beispiel aussehen: "Outlook-Datendatei\Test"

    Ich komme einfach nicht weiter!

  • _OL_Example_SentMail_Event

    Spoiler anzeigen

    Local $aFolder = _OL_FolderAccess($oOL, $OutlookKalender, $olFolderCalendar)

    If @error Then

    MsgBox($MB_ICONERROR, "Error", "_OL_FolderAccess returned @error = " & @error & ", @extended = " & @extended, 0,"")

    Return

    EndIf

    _ArrayDisplay($aFolder, "$aFolder")

    Global $oStore = $aFolder[1].Store

    Global $oDefaultFolder = $oStore.GetDefaultFolder("")

    Local $aResult = _OL_FolderGet($oOL, $oDefaultFolder)

    _ArrayDisplay($aResult, "$aResult")

    water, vielen Dank!

    So funktioniert es.

  • _OL_Example_SentMail_Event

    water , ich möcht den Kalendername auslesen, z.B. "Katharina" wie im Bild dargestellt.

    Spoiler anzeigen

    Local $aOL_Item = _OL_ItemFind($oOL, $OutlookKalender, $olAppointment, "", "Subject", $Betreff_GK, "EntryID,Subject,Location,Body,Start,End,LastModificationTime", "", 1)

    _ArrayDisplay($aOL_Item, "_OL_ItemFind")

    Kalender Eigenschaft.jpg

    _OL_ItemFind gibt mir ja sonst alles zurück was ich benötige

    Vielleicht fehlt mir nur der Ausdruck der Darstellung.

    Kannst du mir auf die Sprünge helfen?