Hi Folks,
Sensibles Thema, ist mir klar. Ich will auf die Maildatenbank
zugreifen, mit OpenMailDatabase hat man jedoch nur
Zugriff auf die eigene Maildatenbank.
Gibt es eine Möglichkeit das DBDirectory auszulesen
und Aktionen über alle Maildatenbanken auszuführen ?
Ciao
Don Pasquale
Private Sub OpenMail_Click()
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Set dir = s.GetDbDirectory("")
Set db = dir.OpenMailDatabase
MsgBox db.Title & " on " & db.Server, , db.FilePath
End Sub