Lotus Notes für automatisches Senden einer Datei animieren

Set Session = CreateObject("Lotus.NotesSession")  

' this code is published from IBM --> http://www-01.ibm.com/support/docview.wss?uid=swg21178583  

Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object
'Start a session to notes  
Set Session = CreateObject("Lotus.NotesSession")  
'This line prompts for password of current ID noted in Notes.INI  
Call Session.Initialize
'or use below to supply password of the current ID  
'Call Session.Initialize("<password>")  
'Open the mail database in notes  
Set Maildb = Session.GETDATABASE("", "c:\notes\data\mail\mymail.nsf")  
If Not Maildb.IsOpen = True Then
Call Maildb.Open
End If
'Create the mail document  
Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.ReplaceItemValue("Form", "Memo")  
'Set the recipient  
Call MailDoc.ReplaceItemValue("SendTo", "John Doe")  
'Set subject  
Call MailDoc.ReplaceItemValue("Subject", "Subject Text")  
'Create and set the Body content  
Set Body = MailDoc.CREATERICHTEXTITEM("Body")  
Call Body.APPENDTEXT("Body text here")  
'Example to create an attachment (optional)  
Call Body.ADDNEWLINE(2)
Call Body.EMBEDOBJECT(1454, "", "C:\filename", "Attachment")  
'Example to save the message (optional)  
MailDoc.SAVEMESSAGEONSEND = True
'Send the document  
'Gets the mail to appear in the Sent items folder  
Call MailDoc.ReplaceItemValue("PostedDate", Now())  
Call MailDoc.SEND(False)
'Clean Up  
Set Maildb = Nothing
Set MailDoc = Nothing
Set Body = Nothing
Set Session = Nothing