1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

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

    nila Гость

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

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

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

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

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

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    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 Гость

    Репутация:
    0
    Код:
    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 скриптописец

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

    nila Гость

    Репутация:
    0
    Получается печатать можно только на 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
    Подскажите пожалуйста есть ли лучше решение?
     
  6. lmike

    lmike нет, пердело совершенство
    Lotus team

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

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

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

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