Печать в почтовой базе все сообщения за текущую дату

  • Автор темы nila
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

nila

#1
Такая задача.
в Почтовой базе клиента нужно сделать такую опцию.
Печатать все сообщения за сегодняшнюю дату.

я наполняю коллекцию.
как эту коллекцию распечатать чтоб ui не видно было?

есть возомжность печати через uiview.Print но там нельзя дату прописать сегодняшную

И можно заходить на uidoc.Print но это тоже не катит
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
nila
UnprocessedSearch + F1

в хєлпе есть относительно агентов
All unread documents in view Are unread and in the view
Meet the search criteria specified in Agent Properties box
Meet the @function search criteria specified in this method
 
N

nila

#3
Код:
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim query As String

Dim i As Integer

On Error Goto onerr
Set db=session.CurrentDatabase
query = {(Form = "Memo") & @Date(DeliveredDate)=@Date(@Today)}
Set collection = db.Search( query, Nothing, 0 )
If collection.Count=0 Then Exit Sub	
Set doc=collection.GetFirstDocument

While Not(doc Is Nothing) 
Set uidoc=ws.EditDocument(False,Doc)
uidoc.Print(1)
'	Call doc.Save(True,True)
uidoc.Close(True)

Set doc=collection.GetNextDocument(doc)
Wend
Exit Sub
onerr:
Print "Agent" & Error(Err) & "(" & Erl & ")"
Resume rez
rez:
End Sub
Вот такой Агент... но на ui он не работает по расписанию

Мне надо печатать все за сегоднешний день.(
 
N

nila

#5
Получается печатать можно только на ui.

Call uiview.Print()
Call uidoc.Print

Значит, агент по расписанию нельзя сделать что б наппример один раз в день, агент запускался и печатал письма???

Я сделала это при нажатии на кнопку печать.

Но тоже не красиво. так как в этом случае открывается документ на ui

Код:
While Not(doc Is Nothing) 
Set uidoc=ws.EditDocument(False,Doc)
uidoc.Print(1)
uidoc.Close(True)

Set doc=collection.GetNextDocument(doc)
Wend
Подскажите пожалуйста есть ли лучше решение?
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 586
271
#6
мне кажется, что задачу нужно решать, а не пытаться бороться с технологией...

вот мне не понятно -зачем печатать доки "за дату", а ежели там спам, неформатированые месюги, вложения и т.п.
вы представьте себе этот мусор...

возможно обрабатывать доки и затем выводить на печать, но надо понять в каком формате
 
Статус
Закрыто для дальнейших ответов.