Пытался написать функцию... так и не получилось ничего нормального. Может у кого есть наработки?

 

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
'	Call doc.RemovePermanently(True)
Call doc.Remove(True)
Set uiview = ws.CurrentView
Set view = uiview.View
Call ws.viewrefresh()

 

fedotxxl
правильно не удалять:
1) любое действие на удаление блокируй как в ACL так и срииптом
2) позволяй только менять документ по флагу ложи в Корзину
3) И только из корзины админ или агент может дейтвительно удалить док из базы

как по мне это самый правильный ход