Quantcast
Channel: Microsoft Access Forum
Viewing all articles
Browse latest Browse all 880

TreeView füllen - Ich begreife es einfach nicht

$
0
0

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 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

Set objOutl = Nothing
Set oNameSpace = Nothing
Set OrdnerListe = Nothing

Könnte mir jemand meine fehler (aus dem Code) aufzeigen


Viewing all articles
Browse latest Browse all 880


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>