VBA: Excel Inhalt kopieren & via Lotus Notes

Sub Schaltfläche1_KlickenSieAuf()
Application.DisplayAlerts = False
Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim session As Object
Dim Recipient As String
Dim e As String
Dim f As String
Dim rtitem
AWS = ActiveWorkbook.FullName
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
'On Error Resume Next
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Recipient = "Test@Test.co.at"
MailDoc.sendto = "Test@Test.co.at"
MailDoc.CopyTo = ""
MailDoc.Subject = "Wöchentlicher Bericht"
Set rtitem = MailDoc.CREATERICHTEXTITEM("Body")
With rtitem
.APPENDTEXT ("Hallo.....")
End With
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
Application.DisplayAlerts = True
End Sub