ProfilDokumente löschen

[dasRalph]

Hallo!!!

Ich hab die Datenbank etwas umprogrammiert und benötige jetzt nicht mehr alle ProfilDokumente die mit einer bestimmten Maske erstellt wurden. Es handelt sich dabei um ProfilDokumente, wo jeder User eins hat da mit "@Command( [EditProfile] ; Maskenname; @UserName)" befüllt.

So wie gesagt, jetzt brauche ich alle Dokumente die auf eine bestimmte Maske basieren nicht mehr. Wie kann ich diese wieder ganz schnell loswerden um Speicherplatz zu sparen???

Besten Dank!!!
Ralph

[Christoph Arras]

Hier ein Beispielcode zum Umbasteln/Erweitern:

Code

Sub Initialize
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim userName As String 
   Set session = New NotesSession
   Set db = session.currentdatabase
   userName = "Vorname Nachname/Organisation" 
   Set doc = db.getprofiledocument("ProfileName", userName)
   If doc Is Nothing Then
      Msgbox "No ProfileName...Closing the agent"
   Else
      doc.remove(True)
      Msgbox "ProfileName removed"
   End If
End Sub

[dasRalph]

Hallo!!!

Okay das klingt schon mal prima, doch wie finde ich herraus, für welchen User es ein ProfilDokument gibt und für welchen nicht???

Gute Nacht!!! - Ralph

[ata]

... du versuchst das Dokument zu initialisieren... wenn es Nothinh ist, gabs für den User eben keins...

ata

[dasRalph]

Okay, es wäre ja auch nicht das Problem alle UserNamen per Hand durch zu gehen. Ich dachte nur, dass es was gibt, was mir spontan alle löscht, weil ich hab ca. 200 Leute und dat dauert ne weile. Gibts vielleicht auch ne Funktion, die mir die Leute anzeigt, die eins haben???

Grüße!!! - Ralph

[ata]

... da waäre mir als verankerte Funktion nichts bekannt. Doch was spricht gegen ein Script, mit dem du das überprüfst? Es könnte dir einen Bericht ausgeben oder was auch immer...

ata