Mail aus Excel 97 via Lotus Notes

Sub SendMail()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim strTo As Variant
Dim strPath As String
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim AttachME As Object 'The attachment richtextfile object
'Mail erstellen
Set session = CreateObject("Notes.NotesSession")
Set db = session.CURRENTDATABASE
On Error GoTo Fehler
Set doc = db.CREATEDOCUMENT
doc.Form = "Memo"
doc.SendTo = "Dein Addressat"
doc.CopyTo = "Deine Copies"
doc.Subject = "Betreff"
doc.body = "Dein Text"
doc.SAVEMESSAGEONSEND = True
'Set up the embedded object and attachment and attach it
'Daten zum Auslesen
Set AttachME = doc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", strPath & "\CI Temp.xls") ', "Attachment")
doc.PostedDate = Now()
Call doc.send(False, strTo)
Set db = Nothing
Set doc = Nothing
Set session = Nothing
End Sub