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
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