Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.09.2023 12:31:39 |
Peter Braun |
|
|
|
07.09.2023 18:39:18 |
Gast90888 |
|
|
|
08.09.2023 12:42:23 |
Gast76947 |
|
|
|
08.09.2023 14:20:57 |
Gast69471 |
|
|
Wenn du eine Lösung gefunden hast, poste sie bitte hier. :) |
12.09.2023 13:35:26 |
Gast4110 |
|
|
|
12.09.2023 15:10:30 |
Gast90888 |
|
|
|
13.09.2023 13:29:02 |
Gast15372 |
|
|
Von:
Gast4110 |
Datum:
12.09.2023 13:35:26 |
Views:
234 |
Rating:
|
Antwort:
|
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?
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
07.09.2023 18:39:18 |
Gast90888 |
|
|
|
08.09.2023 12:42:23 |
Gast76947 |
|
|
|
08.09.2023 14:20:57 |
Gast69471 |
|
|
Wenn du eine Lösung gefunden hast, poste sie bitte hier. :) |
12.09.2023 13:35:26 |
Gast4110 |
|
|
|
12.09.2023 15:10:30 |
Gast90888 |
|
|
|
13.09.2023 13:29:02 |
Gast15372 |
|
|