Hallo,
ich möchte gerne einen utlook-synchronisations-programm schreiben, dazu brauche ich in einer treeview die auflistung aller outlook-ordner.
Dim out = New Outlook.Application
Dim nsp = out.GetNamespace(„MAPI“)
Dim folder As Outlook.Folders = nsp.Folders.GetFirst.Folders
Call LoopFolders(ListBox1, folder, True)
Public Sub LoopFolders(ByRef box As ListBox, ByVal Folders As Outlook.Folders, ByVal Recursive As Boolean, Optional ByVal typ As Outlook.OlItemType = 0, Optional ByVal stufe As Integer = 0)
Dim Folder As Outlook.MAPIFolder
For Each Folder In Folders
'LoopItems(Folder.Items)
If typ = 0 Or Folder.DefaultItemType = OlItemType.olAppointmentItem Then
Dim sp As String = „“
If typ = 0 Then
sp = Space(stufe * 10)
End If
box.Items.Add(sp & Folder.Name & " " & Folder.DefaultItemType)
End If
If Recursive Then
LoopFolders(box, Folder.Folders, Recursive, typ, stufe + 1)
End If
Next
End Sub
das ließt mir alle ordner aus und schreibt sie mir in eine listbox. soweit ok. eine separation das er mir beispielsweise nur „termin-ordner“ ausgibt habe ich auch schon eingebaut. nun meine frage:
wie bekomme ich genau raus was für ein ordner der gerade durchlaufene ist? (will ja beispielsweise nicht den inhalt von „gelöschte objekte“ anzeigen. aber woher weis ich was der „gelöschte objekte“ ordner ist?
vielen dank schonmal