Mail aus VB mit Dialogfenster generieren

[Don Pasquale]

Hallo liebe LoNo Gemeinde,

ich versuche aus Visual Basic heraus, Lotus anzusprechen um ein Dialogfenster "Neues Memo" zu erhalten.
Das Attachment möchte ich von VB aus direkt mitgeben.


Mit folgendem Code kann ich zwar eine Mail versenden, aber es erscheint KEIN Dialogfenster. Gibt es eine Möglichkeit ein Lotus Dialog fenster dafür aufzurufen ?

Vielen Dank für Eure Hilfe

Ciao

Don Pasquale

Code

Public Sub SendLotusMail(ByVal strFilesWithPath As String, ByVal strFilesWithoutPath As String)
    Dim session As Variant      ' NotesSession
    Dim mailserver As String
    Dim mailfile As String
    Dim db As Variant           ' NotesDatabase
    Dim memo As Variant         ' NotesDocument
    Dim body As Variant
 
    Set session = CreateObject("Notes.NotesSession")
    mailserver = session.GetEnvironmentString("MailServer", True)
    mailfile = session.GetEnvironmentString("MailFile", True)
    
    Set db = session.GetDatabase(mailserver, mailfile)
    Set memo = db.CreateDocument
    memo.Subject = "Betrefftext"
    
    Set body = memo.CreateRichTextItem("Body")
    Call body.AppendText("Text der Mail.")
    Call body.AddNewLine(2)
    Call body.EmbedObject(1454, "", strFilesWithPath, strFilesWithoutPath)
    Call memo.Send(False, "Fred Feuerstein@arbeitsgruppe")
    
    Set body = Nothing
    Set memo = Nothing
    Set db = Nothing
    Set session = Nothing
End Sub
 

[meo]

siehe

http://www.atnotes.de/index.php?board=6;action=display;threadid=8489