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??
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