Domino 9 und frühere Versionen > ND7: Entwicklung

Datenbankvorwahl mit VB6

<< < (3/3)

MadMetzger:
Ich denke mal, dass das daran liegt, dass die Datenbank noch nicht offen ist und der Code jedesmal in diese Verzweigung zum "OpenMail" kommt:

--- Code: ---If Maildb.isOpen = True Then
          'Fertig zum mailen!
     Else
         Maildb.OPENMAIL
End If

--- Ende Code ---
Und eben dieser Code verursacht das. Designerhilfe sagt zu "OpenMail":

--- Zitat ---Assigns a database to the current user's mail database and opens that database.

--- Ende Zitat ---
Ich würde an deiner Stelle dort mit notesDatabase.open(server,database) arbeiten. Das tut das, was du möchtest.

ata:
... oder mit NotesSession

Dim session As new NotesSession
Dim dbMail As NotesDatabase

Set dbMail = session.GetDatabase( "Servername" , "Pfad" )

If dbMail.IsOpen Then
  ' OK
Else
   dbMail.Open
End If

.. so auf die schnelle

toni

MadMetzger:
Anton, so macht er das ja auch. Ich meinte eigentlich nur, dass er das OpenMail durch das Open ersetzen sollte.

ata:
@MadMetzger

... du hast das absolut richtig erkannt - er öffnet ja explicit seine Standard-Mail-DB. Ich hatte ihm nur noch einen weiteren Weg zur Initialisierung einer DB gegeben...

Toni

Mortione:
Gruß an alle !!!
Vielen Dank - Es funktioniert

Navigation

[0] Themen-Index

[*] Vorherige Sete