EMail versenden Lotus Notes

Sub E_Mails_versenden()
Sheets("Tabelle3").Activate
Cells(2, 1).Select
Dim i As Integer
For i = 2 To 10
If Cells(i, 1).Value = "x" Then
Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object
Dim Recip As String
Dim Attachment1 As String
Recip = Cells(i, 2).Value
Attachment1 = "‪C:\Users\zieglerj\Desktop\" & "_" & Cells(i, 4).Value & "_KW " &  _
Cells(i, 5).Value & ".pdf "
'Start a session of Lotus 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 provide password of the current ID (to avoid Password prompt)
'Call Session.Initialize("")
'Open the Mail Database of your Lotus Notes
Set Maildb = Session.GETDATABASE("", "names.nsf")
If Not Maildb.IsOpen = True Then Call Maildb.Open
'Create the Mail Document
Set MailDoc = Maildb.createdocument
Call MailDoc.Replaceitemvalue("Form", "Memo")
'Set the Recipient of the mail
Call MailDoc.Replaceitemvalue("SendTo", Recip)
'Set subject of the mail
Call MailDoc.Replaceitemvalue("Subject", "Sales Cockpit")
'Create and set the Body content of the mail
Set Body = MailDoc.CreateRichTextItem("Body")
Call Body.APPENDTEXT("Anbei erhalten Sie ihr persönliches Sales Cockpit für die letzte KW")
'Example to create an attachment (optional)
If Attachment  "" Then
Set AttachME = Attachment1
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment1, "Attachment")
End If
'Send the document
'Gets the mail to appear in the Sent items folder
Call MailDoc.Replaceitemvalue("PostedDate", Now())
Call MailDoc.SEND(False)
'Clean Up the Object variables - Recover memory
Set Maildb = Nothing
Set MailDoc = Nothing
Set Body = Nothing
Set Session = Nothing
Else
MsgBox "The Mail have been sent."
End If
Next
End Sub