Удалить Id файлы из АК

[morpheus]

Вопрос
По какимто причинам в АК сохранялись/остались / были забыты id-файлы пользователей

Ответ
Пишеться агент на их удаление

Автор

Ссылка скрыта от гостей

Код

Sub Initialize 
Dim session As New NotesSession 
Dim database As NotesDatabase 
Dim comView As NotesView 
Dim doc As NotesDocument 
Dim nItem As NotesItem 
Dim object As NotesEmbeddedObject 
Dim i As Integer 

Set database = session.CurrentDatabase 
i = 0 

Set comView = database.GetView("People") 
Set doc = comView.GetFirstDocument 
While Not ( doc Is Nothing ) 
Set nItem = doc.GetFirstItem( "$FILE" ) 
If Not nItem Is Nothing Then 
Set object = doc.GetAttachment( "UserID" ) 
If object Is Nothing Then 
Print "быть того не может!!!" 
Exit Sub 
End If 
Call object.Remove 
Call doc.Save(True, False) 
i = i + 1 
End If 
Set doc = comView.GetNextDocument( doc ) 
Wend 
Print "Все прошло хорошо, удалено " & i & " айдишек" 
End Sub

 

[Lariel]

Здрасте

Да, все тоже самое можно сделать и одной строчкой
без всякого Lotus Script

FIELD $FILE:=@DeleteField;

SELECT @All

и все тоже самое будет