Ich hab jetzt folgendes, um mir die Folder einer MailDB erstmal zu ermitteln:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim views As Variant
Set db = session.CurrentDatabase
views = db.Views
Forall v In views
If (v.IsFolder) Then
foldername = v.Name
End If
End Forall
Du musst foldernames einem Feld zuweisen (Feld verborgen, Mehrfachwerte zulassen , …).
Das Feld (der Name) schreibst Du als Auswahlformel in Deine Kombobox.
...Hab ich gemacht.
Hier nun mein Code, um die Ordner der MailDB auszulesen und ins HiddenField "Foldernames" zu speichern:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem
Dim views As Variant
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("MyProfileDoc", session.UserName)
views = db.Views
Forall v In views
If (v.IsFolder) Then
foldername = v.Name
End If
End Forall
Set item = doc.AppendItemValue("Foldernames", foldername)
Forall v In views
If (v.IsFolder) Then
foldername = v.Name
Set item = doc.AppendItemValue("Foldernames", foldername)
End If
End Forall
Mir kommt aber grad ein Zweifler... Ich will in ein Feld (lässt Mehrfachwerte zu) Werte speichern! Item (AppendItemValue) ist doch richtig, oder - bin mir grad irgendwie gar nicht sicher?! ???
Mh, ich lag fast richtig... nur statt AppendItemValue sollte es wohl besser ReplaceItemValue heißen, denke ich.
Forall v In views
If (v.IsFolder) Then
foldername = v.Name
Set item = doc.ReplaceItemValue("Foldernames", foldername)
End If
End Forall
Irgendwas stimmt noch nicht. Ich vermute, es liegt an dem HiddenField "Foldernames" (Typ Text, Bearbeitbar, Mehrfachwerte), in welches ich die Ordnernamen speichere und welches bei der Kombibox in der Auswahlformel drinsteht (Feldname)?!