Hallo,
Ich bin mit diesem VBA nur noch am verzweifeln. Leider muss ich darin was machen, sonst würde ich es einfach lassen. Ich hoffe hier kann mir nun jemand weiter helfen. Ich bekomme ständig neue Fehlermeldungen und finde nicht einen Fehler. -.-*
Hier mal mein Code:
01 Private Sub UserForm_Initialize()
02
03 Dim olFolder As folder
04 Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail)
05 FillTree(TreeView1, olFolder, 1)
06
07 End Sub
08
09 Public Function FillTree(treeView As treeView, folder As folder, index As Integer)
10
11 treeView.Nodes.Add index, , , folder.Name
12 If folder.Folders.Count > 0 Then
13 For Each Element In folder.Folders
14 FillTree(treeView, Element, index + 1)
15 Next [Element]
16 End If
17
18 End Function
Ich habe eine UserForm mit einer TreeView. Die TreeView soll beim Starten der UserForm mit den Ordnern unter "Gesendete Objekte" in Outlook befüllt werden. Um die Ordnerstruktur richtig dar zu stellen, wollte ich mit einer rekursiven Funktion arbeiten.
Zeile 05 wird mir rot markiert mit der Fehlermeldung: "Fehler beim Kompilieren: Erwartet: =". Nehme ich die Klammern weg, dann geht's.
Zeile 14 wird mir ebenfalls markiert und die gleiche Meldung angezeigt. Hier könnte ich auch die Klammern weg nehmen und boolschen Ausdruck vorher in eine Variable schreiben, dann meckert er zumindest nicht mehr. Aber dann bekomme ich beim Starten immer folgende Meldung: "Fehler beim Kompilieren: Es fehlt ein Objekt".
Ich weiß leider echt was an dem Code falsch ist. Ich programmiere sonst in C#.NET mit Visual Studio, da gibt es deutlich mehr Informationen zu Fehlern und Objekten, als hier. Bin echt sehr gefrustet. Ich hoffe mir kann jemand helfen.
Mfg
Momo
|