Sub SendProblemNotification (memodoc As NotesDocument, db As NotesDatabase, errorcode As String)
    Dim memod As NotesDocument
    Set memod=Db.CreateDocument
    memod.Form="Memo"
    memod.SendTo = "Администратор/Lotus/Domino" 'TODO how to insert address'
    memod.Subject =  "Проблемный документ в Адаптере МЭДО: " & memodoc.Log_Numbers(0) & " (проблема: " & errorcode & ")"
    Call memod.Send(False)
End Sub