Проверка при сохранении

 Forall item In Doc.Items
If Ucase(item.Name) = "$FILE" Then
If  Right$( Lcase(item.Values(0) ),4) = ".pdf"  Then
Else
Messagebox "неверный фармат!"
Continue=False
Exit Sub
End If
 
End If
 
End Forall

 Continue=False
Dim doc As NotesDocument
Set doc=Source.Document
 
Dim dname As Variant
dname=Evaluate({@AttachmentNames}, doc)
 
If dname(0)<>"" Then
Forall n In dname
If Right( Lcase(n),4) = ".pdf" Then
Continue=True
Exit Sub
End If
End Forall
End If
Messagebox "неверный фармат!"

%REM
*--------------------------------------------
Function UpdateUIdoc
Description: Comments for Function
%END REM
Function UpdateUIdoc(uidoc As NotesUIDocument, rtName As String) As NotesUIDocument
Dim routineName As String
routineName="UpdateUIdoc"
On Error GoTo ErrH
your code here
Dim wksp As New NotesUIWorkspace
Dim ses As New NotesSession
Dim uidocNew As NotesUIDocument
Dim doc As NotesDocument
Dim rti As NotesRichTextItem
Dim strFieldname As String
 
uidoc.Refresh True  do thys if the rich text field is editable, to get the current contents in case user has modified them.
Set doc = uidoc.Document   get the back-end document for the document open on screen.
strFieldname = uidoc.CurrentField  remember the current field if any
Set rti = doc.GetFirstItem(rtName)
rti.Update
Dim newdoc As NotesDocument, unid As String
unid=doc.Universalid
Set newdoc=ses.Currentdatabase.Createdocument()
Call doc.Copyallitems(newdoc, True)
doc.SaveOptions = "0"  In order to close the document without a "do you want to save" prompt. If thys is a mail-in doc you may need to set MailOptions="0" also to avoid being prompted.
Call uidoc.Close(True)
Delete uidoc
Set doc=GetDocumentByUNIDSilent(ses.Currentdatabase,unid)
ForAll ytm In doc.Items
Dim tmp As NotesItem
Set tmp=ytm
Call tmp.Remove()
End ForAll
Call newdoc.Copyallitems(doc,True)
Set uidocNew = wksp.EditDocument(True, doc, , , , True)
If Len(strFieldname) > 0 Then uidocNew.GotoField(strFieldname)
Set UpdateUIdoc=uidocNew
Quit:
Exit Function
ErrH:
Error Err, RaiseError
Resume Quit
End Function

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Continue=True
Set Source=UpdateUIdoc(Source, {body})
If HasAttachmentName(Source.Document, {*.docx}) Then Msgbox {Attach is not valid}:Continue=False:Exit Sub
Source.Document.Save True, False
End Sub

Function AttachmentsName(objdoc As NotesDocument) As Variant
AttachmentsName=Evaluate("@AttachmentNames(0)", objdoc)
End Function
Function HasAttachmentName(objdoc As NotesDocument, wildcard As String) As Boolean
Dim arr As Variant
arr=AttachmentsName(objdoc)
If Not IsEmpty(arr) Then
If IsArray(arr) Then
ForAll a In arr
If CStr(a) Like wildcard Then
HasAttachmentName=True
Exit Function
End If
End ForAll
Else
If CStr(arr) Like wildcard Then
HasAttachmentName=True
End If
End If
End If
End Function

Function GetDocumentByUNIDSilent(db As NotesDatabase, UNID As String) As NotesDocument
On Error GoTo ErrH
Dim doc As NotesDocument
Set doc = db.GetDocumentByUNID(UNID)
If doc.IsValid And Not doc.IsDeleted Then
проверка - если, например, недоступен по readers
If doc.Size > 0 Then
Set GetDocumentByUNIDSilent = doc
End If
End If
Quit:
Exit Function
ErrH:
RaiseError
Resume Quit
End Function

    Dim isnew As Boolean
isnew=doc.Isnewnote
Delete uidoc
If Not isnew Then
Set doc=GetDocumentByUNIDSilent(ses.Currentdatabase,unid)
ForAll ytm In doc.Items
Dim tmp As NotesItem
Set tmp=ytm
Call tmp.Remove()
End ForAll
Call newdoc.Copyallitems(doc,True)
Else
Set doc=newdoc
End If

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Continue=True
Set Source=UpdateUIdoc(Source, {body})
If HasAttachmentName(Source.Document, {*.docx}) Then Msgbox {Attach is not valid}:Continue=False:Exit Sub
Source.Document.Save True, False
Call PostSave(Source)
End Sub