Domino 9 und frühere Versionen > ND7: Entwicklung

Datenbankvorwahl mit VB6

<< < (2/3) > >>

Mortione:
Stimmt schwache Aussage:

Also das ist der Code :
Public Sub SendNotesMail(Subject As String, Recipient, BodyText As String, SaveIt As Boolean)
    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)
   
    'Vorwahl der Datenbank

         'MailDbName = "mail\a\standard.nsf"
     'oder
    MailDbName = "mail\a\automsv.nsf"
   
       
    'Die Session starten
    Set Session = CreateObject("Notes.NotesSession")
       
    'Datenbank öffnen
     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
   
    Dim Workspace As Object
    Set Workspace = CreateObject("Notes.NotesUIWorkspace")
   
    Call Workspace.EditDocument(True, MailDoc).GotoField("Body")


Tschuldigung aber mein Wissen über Notes hält sich stark in Grenzen.
Vielen Dank schon einmal

ata:
... ich sehe immer noch keine Verzweigung, und ob du die Entscheidung im Frontend oder Backend haben willst? Gib mal genauer bekannt, wie du den Ablauf haben willst...

Toni

Mortione:
Also das ganze befindet sich in meinem VB6 Programm im Frontend.
Der User arbeitet zeitgleich mit meinem VB6 Programm und hat Notes 7 geöffnet. Innerhalb des VB6-Programms wird die Routine gestartet und in Notes wird dann die entsprechende Mail generiert.

ata:
.. du musst vor dem initialisieren der  MailDB den User zu einer Entscheidung füheren, welche der beiden Datenbanken verwendet werden soll...

Dazu kannst du entweder den Dialog mit Ja/Nein-MsgBox verwenden oder über eine separate Dialogmaske arbeiten, die du in VB6 dazu benützt...

Toni

Mortione:
Hallo ata,

ja das verstehe ich mit der Entscheidung (fehlt noch), aber wie wird den die entsprechende Datenbank angesprochen ?
Egal was ich hier reinschreibe oder kompl. weglasse, es wird immer die
Standard-Datenbank geöffnet
...
MailDbName = "mail\a\automsv.nsf
...

Ist  MailDbName = überhaupt richtig ?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete