Public Sub SendNotesMail(Email As String, Subject As String, File As String)
 
Dim lnSession As Variant
Dim lnDatabase As Variant
Dim lnDocument As Variant
Dim lnDocument2 As Variant
Dim AttachMe As Variant
Dim workspace As Object
Dim EmbedObj As Object
Dim Attachment As Variant
 
    Shell "notes.exe"                     'Startet Notes noch einmal, damit es 
    ' in den vordergrund kommt!
 
    Set lnSession = CreateObject("Notes.Notessession")          'Öffnet eine 
    ' NotesSession
    Set lnDatabase = lnSession.GetDatabase("", "")              'Verbindet sich 
    ' zum MailServer
        lnDatabase.OPENMAIL
    Set lnDocument = lnDatabase.CreateDocument(lnDatabase)              _
      'Erstellt ein neues Document
 
    With lnDocument
        .Form = "Memo"
        .SendTo = Email
        .Subject = Subject
        .SaveMessageOnSend = True
    End With
 
    Set Attachment = lnDocument.CreateRichTextItem("Body")
        Set EmbedObj = Attachment.EmbedObject(1454, "", File, "Attachment")
        lnDocument.CreateRichTextItem ("Attachment")
 
 
    Set workspace = CreateObject("Notes.NotesUIWorkspace")
        Call workspace.EDITDOCUMENT(True, lnDocument) '.GOTOFIELD("Body")
 
 
    'Aufräumen
    Set lnDatabase = Nothing
    Set lnDocument = Nothing
    Set workspace = Nothing
    Set lnSession = Nothing
    Set AttachMe = Nothing
    Set EmbedObj = Nothing
 
 
End Sub