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

Тема в разделе "Lotus - Программирование", создана пользователем nila, 4 ноя 2008.

Статус темы:
Закрыта.
  1. nila

    nila Гость

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

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

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

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

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

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    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
     
  3. nila

    nila Гость

    Код (Text):
    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 он не работает по расписанию

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

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

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
  5. nila

    nila Гость

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

    Call uiview.Print()
    Call uidoc.Print

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

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

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

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

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

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.079
    Симпатии:
    300
    мне кажется, что задачу нужно решать, а не пытаться бороться с технологией...

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

    возможно обрабатывать доки и затем выводить на печать, но надо понять в каком формате
     
Загрузка...
Похожие Темы - Печать почтовой базе
  1. zamanov
    Ответов:
    0
    Просмотров:
    576
  2. Pingvin1
    Ответов:
    7
    Просмотров:
    1.441
  3. GORDON13
    Ответов:
    2
    Просмотров:
    1.540
  4. Antigo
    Ответов:
    3
    Просмотров:
    1.000
  5. Bob84
    Ответов:
    12
    Просмотров:
    2.127
Статус темы:
Закрыта.

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