Also ich versuche ein Treeview zu füllen - aber bekomme es so einfach nicht hin
Einlesen der Ordnerstruktur von Outlook (latebinding)
das durchlaufen der Ordner ... funktioniert nur das füllen des treeviews nicht
Dim objNode As MSComctlLib.Node
Dim objOutl As Object
Dim oNameSpace As Object
Dim AuflistungOrdnerEins As Object
Dim AuflistungOrdnerZwei As Object
Dim Ordner As Object
Dim OrdnerListe As Object
Set objOutl = GetObject(, "Outlook.Application")
Set oNameSpace = objOutl.GetNamespace("MAPI")
Set oNameSpace = objOutl.GetNamespace("MAPI")
Set OrdnerListe = oNameSpace.Folders
For Each AuflistungOrdnerEins In OrdnerListe
Set objNode = objTreeview.Nodes.Add(, , AuflistungOrdnerEins.Name, AuflistungOrdnerEins.Name)
For Each AuflistungOrdnerZwei In AuflistungOrdnerEins.Folders
Set objNode = objTreeview.Nodes.Add(AuflistungOrdnerEins.Name, tvwChild, AuflistungOrdnerZwei.Name)
Next AuflistungOrdnerZwei
Next AuflistungOrdnerEins
For Each AuflistungOrdnerEins In OrdnerListe
Set objNode = objTreeview.Nodes.Add(, , AuflistungOrdnerEins.Name, AuflistungOrdnerEins.Name)
For Each AuflistungOrdnerZwei In AuflistungOrdnerEins.Folders
Set objNode = objTreeview.Nodes.Add(AuflistungOrdnerEins.Name, tvwChild, AuflistungOrdnerZwei.Name)
Next AuflistungOrdnerZwei
Next AuflistungOrdnerEins
Set objOutl = Nothing
Set oNameSpace = Nothing
Set OrdnerListe = Nothing
Könnte mir jemand meine fehler (aus dem Code) aufzeigen