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

Тема в разделе "Oбщий функционал", создана пользователем morpheus, 27 дек 2006.

  1. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Вопрос
    По какимто причинам в АК сохранялись/остались / были забыты id-файлы пользователей

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

    Автор
    Rennok

    Код
    Код (Text):
    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
     
  2. Lariel

    Lariel Active Member

    Регистрация:
    11 сен 2009
    Сообщения:
    41
    Симпатии:
    4
    Здрасте

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

    FIELD $FILE:=@DeleteField;

    SELECT @All

    и все тоже самое будет
     
Загрузка...

Поделиться этой страницей