Domino 9 und frühere Versionen > ND7: Entwicklung

Datenbankvorwahl mit VB6

(1/3) > >>

Mortione:
Hallo zusammen,
in einem VB6 Programm erzeuge ich eine Notes E-Mail. Klappt wunderbar.
Ich möchte jetzt vor dem erzeugen der E-Mail eine Auswahl meiner zwei verfügbaren Datenbänke erstellen. Wie kann ich denn Einfluß auf die angewählten Datenbänke nehmen.
Danke im voraus.
Folgenden Code verwende ich zur Zeit:

    Dim Maildb As Object 'Die Datenbank
    Dim UserName As String 'Der Benutzername
    Dim MailDbName As String 'Der Datenbankname
    Dim MailDoc As Object 'Das Maildokument selbst
    Dim MailUIDoc As Object 'Das Frontend-Maildokument selbst
    Dim AttachME As Object 'Der Anhang (Richtext)
    Dim Session As Object 'Die Notes Session
    Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang)
    Set Session = CreateObject("Notes.NotesSession")

    Set Maildb = Session.GETDATABASE("", MailDbName)

     If Maildb.isOpen = True Then
          'Fertig zum mailen!
     Else
         Maildb.OPENMAIL
     End If
   
    'Ein neues Maildokument erstellen
    Set MailDoc = Maildb.CreateDocument
   
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.Subject = Subject
    MailDoc.body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt

Driri:

--- Zitat ---Set Maildb = Session.GETDATABASE("", MailDbName)

--- Ende Zitat ---

An der Stelle definierst Du die Datenbank. Du müßetst also an der Stelle für eine entsprechende Auswahl sorgen und dann erst mit Set Maildb die jeweilige DB zuweisen.

Mortione:
Hallo Diri,
vielen Dank, aber da liegt mein Problem. Es wird ja meine Standarddatenbank gezogen.
Ich denke es muss so funktionieren:
...
MailDbName = "mail\a\Datenbank_1.nsf"
else
MailDbName = "mail\a\Datenbank_2.nsf"
Das funktioniert aber nicht.

m3:
Definiere "Das funktioniert aber nicht."

Weist er der Variablen den korrekten Wert zu und öffnet trotzdem die falsche DB?
Oder kommt er erst gar nicht in den korrekten "if/else" Zweig hinein?

usw?

"Das funktioniert aber nicht" hilft und nicht wirklich weiter, Dir zu helfen.

ata:
... im Augenblick sehe ich noch keine Verzweigung für die Auswahl einer DB???

Wie soll die Entscheidung zur Datenbank denn gefällt werden? - Frontend - Backend ??

Toni

Navigation

[0] Themen-Index

[#] Nächste Seite