Error when sending lotus notes mail from vb5 application (MAPI controls)

Public Sub SendNotesMail(Subject As String, AttachmentG As String, Number As Integer, Recipient As String, BodyText As String, SaveIt As Boolean)
    Dim Maildb As Object ' mail database
    Dim UserName As String 'LN username
    Dim MailDbName As String 'notes mail database name
    Dim MailDoc As Object 'mail document
    Dim AttachME As Object 'attachment object
    Dim Session As Object 'notes session
    Dim EmbedObj As Object 'Attachment
    'Dim Recip(2) As Variant
    'SendTo1 = Trim(TextSendTo1)
    Recipient = SendTo
    'Recip(1) = SendTo1
    Set Session = CreateObject("Notes.NotesSession")
    'Session.Initialize ("passw")
    UserName = Session.UserName
    
    MailDbName = GbazaNSF
    Set Maildb = Session.GETDATABASE("", MailDbName)
     If Maildb.ISOPEN = True Then
          'Notes vec otvoren !!!
     Else
         Maildb.OPENMAIL
     End If
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.SendTo = Recipient
    MailDoc.CopyTo = cc
    MailDoc.BlindCopyTo = bcc
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
    poz = 1
    poz1 = 1
    For i = 1 To Number
        poz2 = InStr(poz1, AttachmentG, ",")
        If poz2 = 0 Then
            poz2 = Len(AttachmentG) + 1
        End If
        Attachment = Mid(AttachmentG, poz1, poz2 - poz1)
        If Attachment <> "" Then
            Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment" & Format(i, "#"))
            Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment" & Format(i, "#"))
            'MailDoc.CREATERICHTEXTITEM ("Attachment")
        End If
        poz1 = poz2 + 1
    Next i
    MailDoc.PostedDate = Now()
    MailDoc.Send 0, Recipient
   
  
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

Select allOpen in new window