Форум программистов CODEBY.NET Хостинг в Беларуси — Active Technologies

Разработка бизнес сайтов

Нужны клиенты? Тогда сюда быстрее...
X   Сообщение сайта
(Сообщение закроется через 2 секунды)

Здравствуйте, гость ( Вход | Регистрация )


 
Ответить Новая тема 
> Удалить Id файлы из АК, Забыли ID файлы в Адресной книге?
Morpheus
Вставить ник
сообщение 27:12:2006, 13:12
Цитата Ответить 


очень злой модератор
Иконка группы

Группа: Lotus team
Сообщений: 3 221
Регистрация: 7:08:2006
Из: Украина, Киев
Пользователь №: 5 807



Репутация:   54  


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

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

Автор
]]>Rennok]]>

Код
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
Подняться вверх 
 
Сообщение #1


Ответить  Новая тема 

 

RSS Текстовая версия Сейчас: 2:12:2008 - 20:46

с нами можно связаться по:
телефону: +375-(29)-632-60-67
e-mail:info@codeby.net