Hallo!
Ich richte mich mit diesem Post eigentlich direkt an Water, bin aber über jede Hilfe dankbar.
Ich möchte per Script einen öffentlichen Kalender den Favoriten hinzufügen, damit der Kalender direkt im Outlook unter Kalender aufscheint.
Dazu habe ich das Web durchsucht und bin auf einen Forumseintrag von Water im englischen Forum gestoßen.
Spoiler anzeigen
Dort hat er geschrieben
There will be a _OL_NavigationFolderSet in the - hopefully - near future
water
- ?
- [Blockierte Grafik: https://www.autoitscript.com/forum/uploads/monthly_2018_12/5c1f96ccbb10a_Adi_Bachinger_Eiswrfel.thumb.jpg.1196e2eeb95aa8e87ba2201da7b75dcc.jpg]
- MVPs
- [Blockierte Grafik: https://www.autoitscript.com/forum/uploads/monthly_2015_07/team_mvp.png.06ed2c34c6eb9c9c23af5b7693950853.png]
- 1,996
- 23,957 posts
Leider ist diese Funktion (_OL_NavigationFolderSet) noch nicht in der OutlookEX integriert.
Water hat dem Suchenden im englischen Forum diesen Code gegeben:
#include "..\OutlookEX.au3"
$oNamespace = $oOL.Application.GetNamespace("MAPI")
$oPane = $oOL.Application.ActiveExplorer.NavigationPane
$oModule = $oPane.Modules.GetNavigationModule(0)
$oGroup = $oModule.NavigationGroups.GetDefaultNavigationGroup(4)
$aFolder = _OL_FolderAccess($oOL, "*\Outlook-UDF-Test")
$oNavFolder = $oGroup.NavigationFolders()
$oNavFolder.Add($aFolder[1])
Je nachdem was ich bei GetNavigationModule und GetDefaultNavigationGroup eintrage erhalte ich entweder @error 1 oder -2147352567
Hier noch mein Testcode:
Spoiler anzeigen
#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)
; *****************************************************************************
; Example 1
; Get a list of all groups in the mail navigation module
; *****************************************************************************
Global $aModules = _OL_NavigationFolderGet($oOutlook, $olModuleCalendar)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_NavigationFolderGet Example Script", "Error getting groups of the mail navigation module. @error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($aModules, "OutlookEX UDF: _OL_NavigationFolderGet Example Script", "", 0, "|", "Navigation group|Folder name|Folder path|IsSelected?|IsRemovable?|IsSideBySide?|Position")
_OL_Close($oOutlook)
_OL_ErrorNotify(3)
;#include "..\OutlookEX.au3"
Global $oOL = _OL_Open()
$oNamespace = $oOL.Application.GetNamespace("MAPI")
$oPane = $oOL.Application.ActiveExplorer.NavigationPane
$oModule = $oPane.Modules.GetNavigationModule(1)
$oGroup = $oModule.NavigationGroups.GetDefaultNavigationGroup(2)
$aFolder = _OL_FolderAccess($oOL, "Öffentliche Ordner - Max.Mustermann@Musterland.com\Alle Öffentlichen Ordner\Mein Kalender")
_ArrayDisplay($aFolder)
$oNavFolder = $oGroup.NavigationFolders()
$oNavFolder.Add($aFolder[1])
If @error Then ConsoleWrite(@error & @CR)
_OL_Close($oOL)
Alles anzeigen
Danke für eure Hilfe.