Удаление письма из базы

[ruster83]

Нужен скрипт удалаяющий из почтовой базы каждого пользователя одно письмо с определенной темой, если таковое есть в почтовой базе,
базы находятса на сервере в директории mail

 

[Omh]

Вижу примерно так:

1. Агент подписанный сервером (что был доступ к mail базам)
2. NotesDbDirectory (перебор баз)
3. Search или какой-нибудь GetDocumentByKey (для поиска)
4. Собственно удаление

 

[ruster83]

Вижу примерно так:

1. Агент подписанный сервером (что был доступ к mail базам)
2. NotesDbDirectory (перебор баз)
3. Search или какой-нибудь GetDocumentByKey (для поиска)
4. Собственно удаление

Не могли бы подсказать,как реализовать переборку баз с NotesDbDirectory (пункт 2). Это наиболее сложная для меня задача...

 

[Omh]

Dim NotesDir As New NotesDbDirectory(MailServerName)
Dim TmpDb As NotesDatabase
Set TmpDb = NotesDir.GetFirstDatabase(TEMPLATE_CANDIDATE)
While Not TmpDb Is Nothing
'тут делаем проверку путей, поиск и прочее
Set TmpDb = NotesDir.GetNextDatabase
Wend

off: давай на "ты"

 

[ruster83]

Dim NotesDir As New NotesDbDirectory(MailServerName)
Dim TmpDb As NotesDatabase
Set TmpDb = NotesDir.GetFirstDatabase(TEMPLATE_CANDIDATE)
While Not TmpDb Is Nothing
'тут делаем проверку путей, поиск и прочее
Set TmpDb = NotesDir.GetNextDatabase
Wend

off: давай на "ты"

Хорошо буду на "ты". Я не знаю как сделать чтобы проверял только папку mail котрая на сервере. Ведь TEMPLATE_CANDIDATE - любая база, которая может быть шаблоном. Т.е. он все подряд убдет проверять....Как сделать чтобы он только по указанной мною папке пробегался...???

 

[Omh]

if Lcase(Left(TmpDb.Filepath, 4)) = "mail" then
'тра-ля-ля
end if

Ну или что-то в этом роде

 

[Murtas]

вариант №48

бегаем по народу из адресной книжки - у персоны есть поле "Mail file"

 

[ruster83]

Так...а как теперь найти документ если известно только поле....???

 

[Omh]

Murtas, можно и так
ruster83, мат послал?

 

[ruster83]

Нет матов не слал, это у меня самого привычка такая точки ставить в сообщениях. Как теперь поиск осущетсвить в полученных базах нужного документа,а???

 

[Omh]

Я имел в виду мат юзерам послал
А то зачем ещё письма срочно удалять?

Ну найти можно примерно так (этот скрипт внутри цикла, перебирающего базы):

Dim Dc As NotesDocumentCollection
Set Dc = TmpDb.Search({Subject = "матный сабжегд"}, Nothing, 0)
if Dc.Count > 0 then Call Dc.RemoveAll(True)

Вроде, в мейл базах софтделишены по умолчанию включены, поэтому может понадобится перебрать найденную коллекцию и на каждый док наускать

RemovePermanently(True)

 

[ruster83]

пишет вот такую фиговину: Database Ruslan!!mail\abon.nsf has not been opened yet. Что это значит??? Сервер называется Ruslan

 

[Omh]

Я бы делал примерно так (в цикле):

Dim ProcessDb as New NotesDatabase("", "")
Call ProcesDb.Open(TmpDb.Server, TmpDb.Filepath)
if ProcesDb.IsOpen then
'понеслась
end if

Есть пара мест, где оптимизнуть, но лень.

 

[ruster83]

Что то все ранво не работает Теперь пишет Variant does not contain the object

 

[Akupaka]

ruster83, весь код покажи

 

[Omh]

Вот-вот
И вообще, это дело надо запускть под тем юзером/сервером у которого есть права на mail-базы.

 

[Akupaka]

сорь за флуд
вспоминается ролик о техподдержке, когда веб-сервер положили
Босс админу: "Вы что не читали мое письмо, что я Вам утром послал?"
админ, сворачивает шутер, ломится в почтовую базу босса и удаляет исходящее: "Нет, не было письма"
Босс, проверяя исходящие: "хм... нету... я был уверен, что послал"

 

[ruster83]

Sub Click(Source As Button)
Dim directory As NotesDbDirectory
Dim db As NotesDatabase
server$ = "Ruslan"
Set directory = New NotesDbDirectory( server$ )
dbType% = DATABASE'TEMPLATE_CANDIDATE
Set db = directory.GetFirstDatabase( dbType% )
counter% = 0
While Not ( db Is Nothing )
counter% = counter% + 1
Set db = directory.GetNextDatabase
If Cstr(Lcase(Left(db.Filepath, 4))) = "mail" Then
Messagebox db.FilePath,,server$
Dim ProcessDb As New NotesDatabase("", "")
Call ProcessDb.Open(db.Server, db.Filepath)
If ProcesDb.IsOpen Then
Dim collection As NotesDocumentCollection
Set collection = db.Search({Subject = "Test"} , Nothing,0)
If collection.Count > 0 Then
Print "Tete" ' Если все ништяк...
End If
End If
End If
Wend
End Sub

 

[Omh]

Set collection = ProcessDb.Search({Subject = "Test"} , Nothing,0)

Ну и переменную ProcessDb лучше вынести из цикла, а в цикле делать

Set ProcessDb = New NotesDatabase("", "")

 

[Medevic]

А зачем нужна ProcessDb, если есть db?
Заменить

Dim ProcessDb As New NotesDatabase("", "")
Call ProcessDb.Open(db.Server, db.Filepath)
If ProcesDb.IsOpen Then

на

Call db.Open("", "")
If db.IsOpen Then

А можно сразу на:

If db.Open("", "") Then