Ordnerstruktur von IMAP Server in Treeiew darstellen VB.NET
ich habe mir die IMAP dll von HelloWebApps heruntergeladen (http://hellowebapps.com/products/imapx/). die funktioniert soweit auch super. nur ich hab ein kleines problemchen mit dem auflisten der ordner auf dem imap server.
Die Ordner auf dem IMAP Server kann ich mit folder.subfolder(index) oder folder.subfolder(name as string) abrufen
sidebar ist der treeview
Das funktioniert soweit auch gut aber ich habe nur die "ersten subfolder". gibt es eine möglichkeit die ordner so auszulesen, dass egal wie viele unterordner ein ordner hat der die ausgibt ? ok die schleife um die schleife mit dem select case hab ich noch nciht drind as ist aber einfach. ich denke auch das da irgendwie gehen müsste, nur da ich noch ein anfänger bin es nicht hin bekomme.
Ich bin dankbar für jede Hilfe !!
Die Ordner auf dem IMAP Server kann ich mit folder.subfolder(index) oder folder.subfolder(name as string) abrufen
sidebar ist der treeview
Public client as New ImapX.Client(imap.domain.tld, 143, False)
Public Sub buildfolders(ByVal client As ImapX.ImapClient)
'Ordnersturktur vom Server auslesen udn in TreeView ausgeben
folders = client.Folders
For Each Folder In folders
foldername = Folder.Name
If foldername = "Entw&APw-rfe" Then
FrmMain.sidebar.Nodes.Add("Entwürfe")
Else
FrmMain.sidebar.Nodes.Add(foldername)
End If
If folders.Item(foldername).SubFolder.Count > 0 Then
Call buildsubfolders(client, foldername)
End If
Next
End Sub
Public Sub buildsubfolders(ByVal Client As ImapX.ImapClient, ByVal foldername As String)
index = 0
Do
Select Case folders.Item(foldername).SubFolder(i).ToString()
Case "Papierkorb"
Case "Entw&APw-rfe"
Case "Postausgang"
Case "Spam"
Case Else
FrmMain.sidebar.Nodes(index).Nodes.Add(folders.Item(foldername).SubFolder(i).ToString())
End Select
i += 1
Loop Until i = folders.Item(foldername).SubFolder.Count
i = 0
End Sub
Das funktioniert soweit auch gut aber ich habe nur die "ersten subfolder". gibt es eine möglichkeit die ordner so auszulesen, dass egal wie viele unterordner ein ordner hat der die ausgibt ? ok die schleife um die schleife mit dem select case hab ich noch nciht drind as ist aber einfach. ich denke auch das da irgendwie gehen müsste, nur da ich noch ein anfänger bin es nicht hin bekomme.
Ich bin dankbar für jede Hilfe !!
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 175480
Url: https://administrator.de/contentid/175480
Ausgedruckt am: 22.11.2024 um 21:11 Uhr
2 Kommentare
Neuester Kommentar