Set doc = db.GetDocumentByID(NoteId)
Forall adr In doc.GetItemValue("oldOwner")
mailfile = Evaluate({@NameLookup([Exhaustive]; "} + adr + {";"MailFile")})
If mailfile(0) <> "" Then
Set mailDB = s.GetDatabase(db.Server, mailfile(0),True)
Set maildocs = mailDB.Search({(DocUNID="} & doc.UniversalId & {")}, Nothing, 0)
Set maildoc = maildocs.GetFirstDocument
Do Until maildoc Is Nothing
Call maildoc.ReplaceItemValue("DisplayStatus", "Завершенная")
Call maildoc.ReplaceItemValue("DueState", 9)
Call maildoc.ReplaceItemValue("CompletedDateTime", doc.DateClosed)
Call maildoc.save(True,True)
Set maildoc = maildocs.GetNextDocument(maildoc)
Loop
End If