Thema Datum  Von Nutzer Rating
Antwort
20.12.2019 09:12:41 Gast47973
NotSolved
20.12.2019 09:29:33 Mase
NotSolved
Rot Update: Account Kontakte auslesen
20.12.2019 09:46:14 Mase
NotSolved
20.12.2019 11:27:02 Gast45059
Solved
20.12.2019 11:34:43 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase
Datum:
20.12.2019 09:46:14
Views:
508
Rating: Antwort:
  Ja
Thema:
Update: Account Kontakte auslesen

Sorry, glaub Du suchtest das hier:

Kombiniere beides miteinander..

Sub main()

    Dim ns As Outlook.NameSpace
    Dim rootfldr As Outlook.Folder
    '
    Set ns = Application.GetNamespace("MAPI")
    Set rootfldr = ns.Folders(1)
    '
    Call likelyGetFolderMethode(rootfldr)
    '
    Set rootfldr = Nothing
    Set ns = Nothing
End Sub

Sub likelyGetFolderMethode(Parentfolder As Outlook.Folder)

    Dim o As Object
    Dim subFldr As Outlook.Folder
    '
    For Each o In Parentfolder.Items
        Debug.Print TypeName(o)
    Next
    '
    For Each subFldr In Parentfolder.Folders
        likelyGetFolderMethode subFldr
    Next subFldr
    '
    Set o = Nothing
    Set subFldr = Nothing
End Sub

 


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
20.12.2019 09:12:41 Gast47973
NotSolved
20.12.2019 09:29:33 Mase
NotSolved
Rot Update: Account Kontakte auslesen
20.12.2019 09:46:14 Mase
NotSolved
20.12.2019 11:27:02 Gast45059
Solved
20.12.2019 11:34:43 Mase
NotSolved