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 !!
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 !!
Please also mark the comments that contributed to the solution of the article
Content-Key: 175480
Url: https://administrator.de/contentid/175480
Printed on: April 23, 2024 at 07:04 o'clock
2 Comments
Latest comment