Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: mb am 26.02.04 - 14:28:40

Titel: "Wird eine MailDB noch verwendet?"
Beitrag von: mb am 26.02.04 - 14:28:40

Hallo!

Da bei uns tw. auch mal Personen ohne die zugehörige MailDB, weil diese noch eine Zeit lang gebraucht wird, gelöscht wurden und werden, gibt es jetzt sicher einige "Leichen". Die möchte ich nun mit einem Agenten finden.

Mittels "Dir" werde ich das Verzeichnis mail/ nach *.nsf durchsuchen können. Jetzt könnte ich das in ein Array schreiben.

Als Ergebnis möchte ich ein mehrdimensionales Array haben, das etwas so aussieht:

Dateiname, Servername, Besitzer    bzw.
Dateiname, "Nicht verwendet!", ""   , wenn die Datei nicht verwendet wird.

Jetzt kommt mein Problem:
Wie gleiche ich meine Liste am sinnvollsten mit der Names.nsf ab?


Marc

Titel: Re:"Wird eine MailDB noch verwendet?"
Beitrag von: Driri am 26.02.04 - 14:53:57

Hi,

ich habe mir dazu mal eine Funktion geschrieben, die anhand des Dateinamens im Names nach dem User sucht. Dazu habe ich eine zusätzliche Ansicht eingebaut, 1. Spalte Filename, 2. Spalte Username.

Function GetNotesUserName(mailfile As Variant)
   
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim userv As Variant
Dim user, username As String
   
Set db = session.GetDatabase"SRV_MAIL1/HV/RCG/DE","names.nsf")
Set view = db.GetView("MailfileLookup")
Set doc = view.GetDocumentByKey(mailfile)
   
If (doc Is Nothing) Then
GetNotesUserName = "keine Maildatenbank oder Notes-User nicht gefunden"
Else
userv = doc.GetItemValue("FullName")
user = userv(0)
Dim userAbb As New NotesName(user)      
username = userAbb.Abbreviated
GetNotesUserName = username
End If
   
End Function