gelöschte Outlook Kalender werden angezeigt

  • Outlook

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    gelöschte Outlook Kalender werden angezeigt

    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:


    VB.NET-Quellcode

    1. Public Sub LoopFolders_Einlesen(Folders As Outlook.Folders, ByVal Recursive As Boolean)
    3. Dim Folder As Outlook.MAPIFolder
    5. For Each Folder In Folders
    7. DoAnything_Einlesen(Folder)
    9. If Recursive Then
    10. LoopFolders_Einlesen(Folder.Folders, Recursive)
    11. End If
    13. Next
    15. End Sub
    17. Private Sub DoAnything_Einlesen(Folder As Outlook.MAPIFolder)
    19. 'nur die Kalender anzeigen
    20. If Folder.DefaultItemType = Outlook.OlItemType.olAppointmentItem Then
    21. iZ = iZ + 1
    22. ReDim Preserve strAlleKalender(iZ)
    23. strAlleKalender(iZ) = Folder.Name
    24. End If
    26. End Sub
    28. Public Sub LoopFolders_Suchen(Folders As Outlook.Folders, ByVal Recursive As Boolean, ByVal strFolderName As String)
    30. Dim Folder As Outlook.MAPIFolder
    32. For Each Folder In Folders
    34. DoAnything_Suchen(Folder, strFolderName)
    36. If Recursive Then
    37. LoopFolders_Suchen(Folder.Folders, Recursive, strFolderName)
    38. End If
    40. Next
    42. End Sub
    44. Private Sub DoAnything_Suchen(Folder As Outlook.MAPIFolder, ByVal strFolderName As String)
    46. 'nur die Kalender anzeigen
    47. If Folder.Name = strFolderName Then
    49. 'Testausgabe
    50. 'MsgBox("gefunden!!!")
    52. myKalender = Folder
    54. End If
    56. End Sub


    Vielen Dank im voraus!!!
    Christoph

    Hallo,

    ich habe das jetzt nicht getestet. Eine Idee: Due gehst ja alle Elemente durch. Evtl. lässt sich dann am Parent erkennen, ob der Ordner als gelöscht markiert ist.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende