Hallo,
folgendes Problem: mit meinem Diensteinteilerprogramm synchronisiere ich persönliche Arbeitszeiten mit dem Outlook-Kalender. Manche Kollegen haben mehrere Kalender und ich gebe die Möglichkeit, den richtigen Kalender vorab auszuwählen. Leider zeigt mir mein Code auch Kalender an, welche schon vor langer Zeit gelöscht wurden. Kann man anhand der Eigenschaften der Kalender-Folder auslesen, ob der Kalender 'aktiv' ist?
Anbei mein Code:
Vielen Dank im voraus!!!
Christoph
folgendes Problem: mit meinem Diensteinteilerprogramm synchronisiere ich persönliche Arbeitszeiten mit dem Outlook-Kalender. Manche Kollegen haben mehrere Kalender und ich gebe die Möglichkeit, den richtigen Kalender vorab auszuwählen. Leider zeigt mir mein Code auch Kalender an, welche schon vor langer Zeit gelöscht wurden. Kann man anhand der Eigenschaften der Kalender-Folder auslesen, ob der Kalender 'aktiv' ist?
Anbei mein Code:
VB.NET-Quellcode
- Public Sub LoopFolders_Einlesen(Folders As Outlook.Folders, ByVal Recursive As Boolean)
- Dim Folder As Outlook.MAPIFolder
- For Each Folder In Folders
- DoAnything_Einlesen(Folder)
- If Recursive Then
- LoopFolders_Einlesen(Folder.Folders, Recursive)
- End If
- Next
- End Sub
- Private Sub DoAnything_Einlesen(Folder As Outlook.MAPIFolder)
- 'nur die Kalender anzeigen
- If Folder.DefaultItemType = Outlook.OlItemType.olAppointmentItem Then
- iZ = iZ + 1
- ReDim Preserve strAlleKalender(iZ)
- strAlleKalender(iZ) = Folder.Name
- End If
- End Sub
- Public Sub LoopFolders_Suchen(Folders As Outlook.Folders, ByVal Recursive As Boolean, ByVal strFolderName As String)
- Dim Folder As Outlook.MAPIFolder
- For Each Folder In Folders
- DoAnything_Suchen(Folder, strFolderName)
- If Recursive Then
- LoopFolders_Suchen(Folder.Folders, Recursive, strFolderName)
- End If
- Next
- End Sub
- Private Sub DoAnything_Suchen(Folder As Outlook.MAPIFolder, ByVal strFolderName As String)
- 'nur die Kalender anzeigen
- If Folder.Name = strFolderName Then
- 'Testausgabe
- 'MsgBox("gefunden!!!")
- myKalender = Folder
- End If
- End Sub
Vielen Dank im voraus!!!
Christoph