Was mache ich beim Versand über Lotus Notes falsch

Sub SendNotesMail()
Dim MailDoc As Object
Dim Maildb As Object
Dim Session As Object
Set Session = CreateObject("Notes.NotesSession")
Dim rtItem As Object
Dim EmbedObj As Object
Dim Empfänger As String
Dim UserName As String
Dim MailDbName As String
Dim Recipient As String
Dim wkbBasis As Workbook
Dim wksBasis As Worksheet
Dim strAnhang As String
' ######### In Notes Verschicken #########
Set Maildb = Session.currentdatabase
Set MailDoc = Maildb.CreateDocument()
MailDoc.Form = "Memo"
MailDoc.SendTo = "frederic.anders@schwan-stabilo.com"
MailDoc.Subject = "test"
'MailDoc.Body =
MailDoc.SAVEMESSAGEONSEND = True
Set rtItem = MailDoc.createrichtextitem("Body")
rtItem.APPENDTEXT ("Ein Test aus Lotus Notes")
rtItem.ADDNEWLINE (1)
? Set EmbedObj = rtItem.embedObject(1454, "RKA.xls", strAnhang) ?
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
MailDoc.Save True, False
Set Maildb = Nothing
Set MailDoc = Nothing
Set rtItem = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub