Domino 9 und frühere Versionen > ND6: Entwicklung
per LScript Anzahl und Dateinamen der Mailboxen herausfinden
DocNotes:
Hallo zusammen,
ich habe eine Anwendung, in der der Benutzer die Auswahl bekommen soll welche Mailboxen auf dem jeweiligen Server vorhanden sind und wie der Dateiname dazu lautet.
Ich habe schon versucht über DbDirectory zu arbeiten, aber dort bekomme ich die Mailboxen nicht ???
Hat jemand eine Idee??
--- Code: ---Sub Click(Source As Button)
On Error Goto ErrHandler
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dbDir As NotesDbDirectory
Dim uidoc As NotesUiDocument
Dim doc As NotesDocument
Dim ServerName As String
Dim FileName As String
Dim count As Integer
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
ServerName = Trim(doc.FdServerName(0))
If ( Ucase ( ServerName )= "LOKAL" ) Or ( Ucase ( ServerName )= "LOCAL" ) Then ServerName = ""
Print "Einlesen der Datenbanken von Server " & ServerName & " ... "
Set dbDir = New NotesDbDirectory ( ServerName )
count = 0
Set db = dbdir.GetFirstDatabase ( 1247 )
While Not ( DB Is Nothing )
FileName = db.FileName
If Instr(1,FileName,".box",5) > 0 Then
'Hier würde ich gerne die Mailboxen als Database Objekte erhalten
Msgbox FileName
End If
count = count + 1
Set db = dbdir.GetNextDatabase
Wend
Print count & " Datenbanken gefunden!"
Exit Sub
ErrHandler:
Messagebox Error$ , 16, "Fehler"
Exit Sub
End Sub
--- Ende Code ---
Semeaphoros:
Zuverlässig nur möglich, indem man das Domino Directory auswertet.
DocNotes:
wie meinst Du dass, über das FileSystem ????
Vielleicht hast Du ein kurzes Beispiel (Ansatz) ???
Semeaphoros:
Domino Directory seit R5 war PubNAB, Public Name and Adressbook in R4, da steht alles im Personendokument drin.
DocNotes:
ich meine nicht die Mailbox des Users, sondern die Mailboxen der Server (mail1.box, mail2.box, usw.)
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln