Domino 9 und frühere Versionen > ND6: Entwicklung

Auf bestimmte Maildatenbank zugreifen

(1/2) > >>

Don Pasquale:
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

Driri:
Hi,

ich hab mir in dem Fall immer so beholfen, daß ich den Path auslese und wenn die ersten vier Zeichen != "mail" sind, wird die Datenbank nicht verarbeitet.

Glombi:
Du kannst auch auf die Personendokumente im NAB zugreifen und dort den Pfad der Mails auslesen. Das macht insb. dann sind, wenn die nicht alle unter mail\ liegen.

Andreas

Don Pasquale:
@Glombi: Dein 4000. Posting
Gratulation.

Und geholfen hat es mir auch !

Pars pro toto

Ciao
Don Pasquale

Don Pasquale:
Meine Lösung:

hier mal als schmerzfreier Code ( ohne viel federlesens)

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument  
   If session.IsOnServer Then
      Set db = New NotesDatabase( "", "names.nsf" )
   Else
      Set db = New NotesDatabase( "SRVNotes651a", "names.nsf" )
   End If
   Set view = db.GetView( "$Users" )
   Set doc = view.GetDocumentByKey( "Don Pasquale" )

   Messagebox( doc.MailFile( 0 ) )


Hat da jemand noch eine Verbesserung dazu ?

Ciao
Don Pasquale

Navigation

[0] Themen-Index

[#] Nächste Seite