Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook VBA - Andere Kalender
 19.11.2019 15:41:49 Gast80728
Solved
20.11.2019 11:37:12 Gast69651
Solved

Ansicht des Beitrags:
Von:
Gast80728		 Datum:
19.11.2019 15:41:49		 Views:
1446		 Rating:
     
Antwort:
 Nein
Thema:
Outlook VBA - Andere Kalender

Guten Tag zusammen,

folgender Code

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub KalenderZuPFFavoriten()
   
 'Adds a Public Folder to the List of favorites
   
 Dim objFolder As Outlook.Folder
   
 Set objFolder = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Konferenzräume - Belegungspläne")
   
 'objFolder.AddToPFFavorites
 If objFolder.Folders.Count > 0 Then
    For Each objSubFolder In objFolder.Folders
        'objNavigationGroup.NavigationFolders.Add objSubFolder
        objFolder.AddToPFFavorites
    Next
 End If
 MsgBox "Die Belegungspläne für die Besprechungsräume sollten nun unter ANDERE KALENDER in der Kalenderansicht zu sehen sein.", vbOKOnly, Hinweis
End Sub

fügt korrekt eine Reihe von öffentlichen Kalendern in der PF-Struktur den dortigen Favoriten hinzu.

Das Problem ist, dass im Outlook-Kalendermodul eine Aktualisierung nur erfolgt -die favorisierten PF-Kalender erscheinen nur dann unter "Andere Kalender"- wenn man die öffentlichen Ordner einmal besucht hat nach dem Hinzufügen.

Ich habe im Internet einen Beispielcode gefunden:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Kalender()
Dim objModule As CalendarModule
 Dim objGroup As NavigationGroup
 Dim objFolder As NavigationFolder
 Dim intCounter As Integer
  
 On Error GoTo ErrRoutine
  
 ' Get the NavigationPane object for the
 ' currently displayed Explorer object.
 Set objPane = Application.ActiveExplorer.NavigationPane
  
 ' Get the CalendarModule object, if one exists,
 ' for the current Navigation Pane.
 Set objModule = (olModuleCalendar)
  
 ' Iterate through each NavigationGroup contained
 ' by the CalendarModule.
 For Each objGroup In objModule.NavigationGroups
 ' Iterate through each NavigationFolder contained
 ' by the NavigationGroup.
 MsgBox objGroup.Name
 For Each objFolder In objGroup.NavigationFolders
 ' Check if the folder is selected.
 MsgBox objFolder.DisplayName
 If objFolder.IsSelected Then
 intCounter = intCounter + 1
 End If
 Next
 Next
  
 ' Display the results.
 MsgBox "There are " & intCounter & " selected calendars in the Calendar module."
  
EndRoutine:
 On Error GoTo 0
 Set objFolder = Nothing
 Set objGroup = Nothing
 Set objModule = Nothing
 Set objPane = Nothing
 intCounter = 0
 Exit Sub
  
ErrRoutine:
 MsgBox Err.Number & " - " & Err.Description, _
 vbOKOnly Or vbCritical, _
 "EnumerateActiveCalendarFolders"
End Sub

Ich hoffte, durch den Beispielcode eine Möglichkeit zu finden, wie ich PFFavorites zu "other Calendars" hinzufügen kann, aber ich fand keine brauchbare Methode.

Ich glaube bisher zu wissen, dass die Navigationpane verschiedene Module enthält und jedes Modul mind. eine NavigationGroup die wiederrum verschiedene NavigationFolder enthält. Ich habe allerdings keine Methode erkannt, um die Kalender hinzuzufügen.

Hat jemand von Euch einen brauchbaren Ratschlag?

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook VBA - Andere Kalender
 19.11.2019 15:41:49 Gast80728
Solved
20.11.2019 11:37:12 Gast69651
Solved