Thema Datum  Von Nutzer Rating
Antwort
07.09.2023 12:31:39 Peter Braun
*
Solved
07.09.2023 18:39:18 Gast90888
***
NotSolved
08.09.2023 12:42:23 Gast76947
NotSolved
08.09.2023 14:20:57 Gast69471
NotSolved
Rot Wenn du eine Lösung gefunden hast, poste sie bitte hier. :)
 12.09.2023 13:35:26 Gast4110
NotSolved
12.09.2023 15:10:30 Gast90888
NotSolved
13.09.2023 13:29:02 Gast15372
NotSolved

Ansicht des Beitrags:
Von:
Gast4110		 Datum:
12.09.2023 13:35:26		 Views:
235		 Rating:
     
Antwort:
  Ja
Thema:
Wenn du eine Lösung gefunden hast, poste sie bitte hier. :)

leider noch keine (befriedigende) Lösung gefunden. Gast90888 hat mir mit seinen MicrosoftLearn-Links schon ne Menge weiter geholfen! Der Code (s.u.) läuft trotzdem nicht wie er soll. Das Makro läuft durch ... aber nichts passiert

Sub EnumerateFoldersInStores() 
 Dim colStores As Outlook.Stores 
 Dim oStore As Outlook.Store 
 Dim oRoot As Outlook.Folder 
 
 On Error Resume Next 
 Set colStores = Application.Session.Stores 
 For Each oStore In colStores 
 Set oRoot = oStore.GetRootFolder 
 Debug.Print (oRoot.FolderPath) 
 EnumerateFolders oRoot 
 Next 
End Sub 
 
Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder) 
 Dim folders As Outlook.folders 
 Dim Folder As Outlook.Folder 
 Dim foldercount As Integer 
 
 On Error Resume Next 
 Set folders = oFolder.folders 
 foldercount = folders.Count 
 'Check if there are any folders below oFolder 
 If foldercount Then 
 For Each Folder In folders 
 Debug.Print (Folder.FolderPath) 
 EnumerateFolders Folder 
 Next 
 End If 
End Sub

Wenn ich "On Error Resume Next" temp. rausnehme erhalte ich "Objekt unterstützt diese Eigenschaft oder Methode nicht"!?? Muss ich vielleicht noch zusätzliche Verweise, außer der Outlook-Object-Library einbinden ... oder warum wird mir keiner der Kontakte-Ordner angezeigt?

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:



  • 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
07.09.2023 12:31:39 Peter Braun
*
Solved
07.09.2023 18:39:18 Gast90888
***
NotSolved
08.09.2023 12:42:23 Gast76947
NotSolved
08.09.2023 14:20:57 Gast69471
NotSolved
Rot Wenn du eine Lösung gefunden hast, poste sie bitte hier. :)
 12.09.2023 13:35:26 Gast4110
NotSolved
12.09.2023 15:10:30 Gast90888
NotSolved
13.09.2023 13:29:02 Gast15372
NotSolved