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
Ich bin dankbar für jede Hilfe !!
2 Antworten
- LÖSUNG FlyingFish schreibt am 30.07.2012 um 15:09:49 Uhr
- LÖSUNG pokermaster2007 schreibt am 08.08.2012 um 02:01:56 Uhr
LÖSUNG 30.07.2012 um 15:09 Uhr
LÖSUNG 08.08.2012 um 02:01 Uhr