Sub SendFile(Optional Whom As String = "NULL", Optional Path As String = "NULL", Optional Tema As String = "NULL", Optional Note As String = "NULL")
  Dim Sender As String
  Dim Password As String
  Dim Session As Object
  Dim MailDb As Object
  Dim MailDoc As Object
  Dim RichStyle As Object
  Dim NotesRTF As Object
  Sender    = "FF12"
  Password = "GG12"
  If Not IsNull(Whom) Then
    On Error Resume Next
    Set Session = GetObject(, "Notes.NotesSession")
    If Err.Number <> 0 Then
      Set Session = CreateObject("Notes.NotesSession")
      Err.Clear
    End If
    Set MailDb = Session.GETDATABASE("PATH_SERVER", "mail/mylist.nsf")
    Call Session.Initialize(Password) !!! Ошибка !!!
    If MailDb.IsOpen <> True Then MailDb.OPENMAIL
    Set MailDoc = MailDb.CREATEDOCUMENT
    Set RichStyle = Session.CreateRichTextStyle
    Set NotesRTF = MailDoc.CREATERICHTEXTITEM("Body")
    Call NotesRTF.APPENDTEXT(Note)
    Call NotesRTF.ADDNEWLINE(2)
    Call NotesRTF.EMBEDOBJECT(1454, "", Path, "Attachment")
    Call NotesRTF.APPENDTEXT("Sent by Postman, the best report sender")
    MailDoc.Form = "Memo"
    MailDoc.SendTo = Split(Whom, ",")
    MailDoc.Subject = Tema
    MailDoc.Principal = Sender
    MailDoc.From = Sender
    MailDoc.ReplyTo = Split(Whom, ",")
    Call MailDoc.Send(False)
  End If
  Set NotesRTF = Nothing
  Set RichStyle = Nothing
  Set MailDoc = Nothing
  Set MailDb = Nothing
  Set Session = Nothing
End Sub