Ordner aus Outlook Papierkorb löschen

  • Sonstige

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

    Ordner aus Outlook Papierkorb löschen

    Hallo
    ich möchte in einem Otlook 2007 (angebunden an Exchange 2010) einen Ordner (hier:"test1") aus öffentliche Ordner in meinen privaten Kalender kopieren. Eine eventuell schon vorhandene Kopie soll gelöscht werden. Diese eigentlich überschaubare Aufgabe scheitert aber daran das ich den Ordner aus Gelöschte Elemente nicht löschen kann. Um es noch komplizierter zu machen funktionert der Code wenn ich ihn im Debugger per Einzelschritt durchlaufen lasse. Will ich das Makro ausführen erhalte ich immer die Meldung
    Laufzeitfehler -2147352567 (80020009) Dieser Ordner kann nicht gelöscht werden. ... Wenden Sie sich an den Besitzer des Ordners oder den Administrator um ihre Berechtigung zu ändern.
    Und hier der durch Experimente etwas verunstaltete Code

    Visual Basic-Quellcode

    1. Private Function GetFolder(ByVal strFolder As String) As Outlook.Folder
    2. On Error Resume Next
    3. Set GetFolder = Outlook.Session.Folders("Öffentliche Ordner")
    4. Set GetFolder = GetFolder.Folders("Alle Öffentlichen Ordner")
    5. Set GetFolder = GetFolder.Folders(strFolder)
    6. End Function
    8. Private Function GetCoppyFolder(ByVal strFolder As String) As Outlook.Folder
    9. Dim mytmpKalenderFolder As Outlook.Folder
    10. On Error Resume Next
    11. Set GetCoppyFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
    12. Set mytmpKalenderFolder = GetCoppyFolder
    13. Set GetCoppyFolder = GetCoppyFolder.Folders(strFolder)
    14. If mytmpKalenderFolder.Name = GetCoppyFolder.Name Then
    15. Set GetCoppyFolder = Nothing
    16. End If
    17. End Function
    19. Private Function GetdeletedFolder(ByVal strFolder As String) As Outlook.Folder
    20. Dim mytmpKalenderFolder1 As Outlook.Folder
    21. On Error Resume Next
    22. Set GetdeletedFolder = Outlook.Session.GetDefaultFolder(olFolderDeletedItems)
    23. Set mytmpKalenderFolder1 = GetdeletedFolder
    24. Set GetdeletedFolder = GetdeletedFolder.Folders(strFolder)
    25. If mytmpKalenderFolder1.Name = GetdeletedFolder.Name Then
    26. Set GetdeletedFolder = Nothing
    27. End If
    28. End Function
    30. Private Function loeschenFolder(ByVal strFolder As String) As Boolean
    31. Dim geloeschtFolder As Outlook.Folder
    33. Set geloeschtFolder = GetdeletedFolder("test1")
    34. If Not geloeschtFolder Is Nothing Then
    35. geloeschtFolder.Delete
    36. loeschenFolder = True
    37. Else
    38. loeschenFolder = False
    39. End If
    40. End Function
    42. Sub CopyFolder()
    43. Dim myOlApp As New Outlook.Application
    44. Dim myNameSpace As Outlook.NameSpace
    45. Dim myKalenderFolder As Outlook.Folder
    46. Dim myoldKalenderFolder As Outlook.Folder
    47. Dim geloeschtFolder As Outlook.Folder
    48. Dim myPersKalenderFolder As Outlook.Folder
    49. Dim myNewFolder As Outlook.Folder
    50. Dim test As Boolean
    52. 'löschen des Kalenders aus "Kalender"
    53. Set myoldKalenderFolder = GetCoppyFolder("test1")
    54. If Not myoldKalenderFolder Is Nothing Then
    55. myoldKalenderFolder.Delete
    56. End If
    58. 'Kopieren des Kalenders
    59. Set myNameSpace = myOlApp.GetNamespace("MAPI")
    60. Set myKalenderFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
    61. Set myPersKalenderFolder = GetFolder("test1")
    62. Set myNewFolder = myPersKalenderFolder.CopyTo(myKalenderFolder)
    64. test = loeschenFolder("test1")
    66. End Sub

    Outlook benötigt eine Weile, bis der Ordner tatsächlich gelöscht ist und im Papierkorb verfügbar ist.

    Du kannst entweder kurz warten bevor du den Folder aus dem Papierkorb löschst
    oder den Workflow ändern:

    Erst ggf. Papierkorb leeren (der Vorgang müsste schneller gehen und nicht auf Lock-Probleme mit dem Folgebefehl stossen).
    Dann Folder löschen.
    Dann neuen Folder anlegen.

    So bleibt der neue Folder so lange im Papierkorb, bis das nächste Mal ein Folder angelegt werden soll.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende