Hallo,
wir haben eine Datenbank welche mit Profildokumenten arbeitet. Wenn dann zum Beispiel ein Mitarbeiter ausscheidet oder die DB nicht mehr nutzt, lösche ich das Profildokument wie folgt:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("Mitarbeiter_Profil", "cn=vorname nachname/ou=x1/o=xy/c=de")
Call doc.Remove( True )
End Sub
Bei "Vorname Nachname" trage ich dann den Mitarbeiternamen ein und führe den Agenten aus. Klappt soweit, aber umständlich.
Ich würde das gerne über einen Button lösen (aus einer Ansicht heraus). Und zwar gibt es noch ein weiteres Mitarbeiterdokument (welches kein Profildokument ist) und in diesem Dokument ist ein Feld welchen den vollständigen Namen enthält.
Feld "user_v" --> cn=max mustermann/ou=x1/o=xy/c=de
Jetzt hätte ich gerne einen Button, den ich anklicke... welcher mir dann das Feld mit dem vollständigen Namen ausliest und das entsprechende Profildokument löscht.
Leider sind meine Script-Kenntnisse nicht sehr gut.
So habe ich es versucht, klappt aber nicht: (Debugger zeigt auch nichts an)
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim pdoc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
user = doc.GetItemValue("user_v")(0)
Set db = session.CurrentDatabase
Set pdoc = db.GetProfileDocument("Mitarbeiter_Profil", user)
Call pdoc.Remove( True )
End Sub
Kann mir jemand sagen, wo der Fehler liegt?
Vielen Dank.