Sub Click(Source As Button)
    On Error Goto ErrH
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    
    Dim rtltem As NotesRichTextItem
    
    Set db = session.CurrentDatabase
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document
    
    If doc.HasItem( "attach" ) Then 'есть ли поле в документе  -  ЕСТЬ
'        Set rtltem = doc.GetFirstltem ("attach" )
        Msgbox "ЕСТЬ attach"
    End If
    doc.Form = "outgoing"
    Call doc.ComputeWithForm( False, False)
    Call doc.RemoveItem ("attach")
    Set rtltem = doc.CreateRichTextItem( "attach" )
    
    Call doc.Save( True, False )
    Call uidoc.RefreshHideFormulas ()
    Call uidoc.Refresh ()
    Call uidoc.Close( True )
    
    
    
    Exit Sub
ErrH:
    Print Error(Err) & " в строке " & Erl
End Sub