Email versand in Notes

[lokl79]

Hallo Leute, ich verschicke aus Excel heraus mit der unten angefügten Funktion eine Email mit Lotus Notes 6.51.
Das Problem ist, aber daß die Email sofort raus geht. Kann ich es irgendwie machen, daß die Email nur "angelegt" wird und ich in Notes manuell auf senden klicken muß?

Vielen Dank!

Code

Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean) 

Dim Maildb As Object 'The mail database 
Dim UserName As String 'The current users notes name 
Dim MailDbName As String 'THe current users notes mail database name 
Dim MailDoc As Object 'The mail document itself 
Dim AttachME As Object 'The attachment richtextfile object 
Dim Session As Object 'The notes session 
Dim EmbedObj As Object 'The embedded object (Attachment) 

'Start a session to notes 
Set Session = CreateObject("Notes.NotesSession") 

UserName = Session.UserName 
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 

'Open the mail database in notes 
Set Maildb = Session.GETDATABASE("", MailDbName) 
If Maildb.IsOpen = True Then 
'Already open for mail 
Else 
    Maildb.OPENMAIL 
End If 

'Set up the new mail document 
Set MailDoc = Maildb.CREATEDOCUMENT 
MailDoc.Form = "Memo" 
MailDoc.sendto = Recipient 
MailDoc.Subject = Subject 
MailDoc.Body = BodyText 
MailDoc.SAVEMESSAGEONSEND = SaveIt 

''Set up the embedded object and attachment and attach it 
'If Attachment <> "" Then 
'Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") 
'Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") 
'MailDoc.CREATERICHTEXTITEM ("Attachment") 
'End If 

'Send the document 
MailDoc.SEND 0, Recipient 

'Clean Up 
Set Maildb = Nothing 
Set MailDoc = Nothing 
Set AttachME = Nothing 
Set Session = Nothing 
Set EmbedObj = Nothing 
End Sub 

[Driri]

In dem Fall müßtest Du über die Frontend-Klassen gehen (z.B. UIDocument). Ich kann Dir aber nicht sagen, ob und wie das aus Office heraus funktioniert.

Darüber hinaus rate ich bei solchen Aktionen von der Verwendung von Frontend-Klassen ab. Du bekommst z.B. ein Problem, wenn der Notes-Client durch eine Dialogbox gesperrt ist. Da hab ich schon die schönsten Crashes bei erlebt.

Besser wäre es da IMO, wenn man die zusätzlich benötigten Werte in dem VB-Script abfragt und dann im Backend mit übergibt.