Hallo Michael,
ja, es gibt das Ereignis in jeder/m Ansicht/Ordner, es wird ausgeführt beim Verschieben mit Button oder per Drag and Drop:
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'Source ist die aktuelle Ansicht, Target ist der Zielordner und mit Continue kannst Du die Sache abbrechen (für genaueres, Hilfe konsultieren)
If Instr(Target, "JunkMail") > 0 Then 'zum Bsp
'Hier kommt Deine von Dir gewünschte Aktion rein
Dim dc as NotesDocumentCollection
Set dc = Source.Documents 'das sind die angehakten
Call dc.StampAll("FlagFeld", 1) 'Alle Dokumente bekommen dieses Flag
End If
End Sub
Probier mal.
mfg
Kjeld
Ich hab da jetzt für Deine Anforderung nichts fertiges, aber wenn Du mit db.Views arbeitest, kannst Du Dir eine Liste aller Ordner zusammenstellen.
Dim i as integer
Dim folder() As String
Forall v in db.Views
If v.IsFolder Then
Redim Preserve folder(i) As String
folder(i) = v.Name
i = i + 1
End If
End Forall
um die Gruppenmitglieder zu sortieren.
Dann die Liste in eine Promptbox mit Einzel- oder Mehrfachauswahl.
So hast Du Die Namen der Ordner und kannst dann den Rest erledigen.
Vielleicht kann man auch schon eine Ordnerliste irgendwo hinterlegen, die beim Erstellen eine neuen Ordners aktualisiert wird, dann geht das schneller.
mfg
Kjeld
Edit: zu spät ;)