0 / 0 / 0
Регистрация: 05.10.2007
Сообщений: 154
1

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

03.11.2008, 19:42. Показов 12033. Ответов 5
Метки нет (Все метки)

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

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

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

И можно заходить на uidoc.Print но это тоже не катит
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.11.2008, 19:42
Ответы с готовыми решениями:

Остаток на текущую дату и отчет по клиентам на текущую дату в одном отчете
Добрый день. Нужна помощь. Нужно вывести остаток на текущую дату в запросе ОСТАТКИ как показано...

Получить текущую дату без времени и вычесть другую дату
Ребята нужна помощь знатоков. Беру с сайта дату List<IWebElement> datew =...

В первую ячейку DGV записать текущую дату, в следующую эту же дату, но на месяц позже
Есть датагрид, в первую ячейку нужно записать текущую дату, в следующую эту же дату, но на месяц...

Расчет возраста, имея дату рождения и текущую дату
наверняка у кого-то есть функция? Есть поле дата рождения и текущая дата. Как посчитать возраст? ...

5
1 / 1 / 0
Регистрация: 04.08.2006
Сообщений: 2,950
03.11.2008, 21:27 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 thys method
0
0 / 0 / 0
Регистрация: 05.10.2007
Сообщений: 154
04.11.2008, 17:18 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, Nothyng, 0 )
If collection.Count=0 Then Exit Sub
Set doc=collection.GetFirstDocument

While Not(doc Is Nothyng)
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 он не работает по расписанию

Мне надо печатать все за сегоднешний день.(
0
1 / 1 / 0
Регистрация: 04.08.2006
Сообщений: 2,950
04.11.2008, 17:22 4
nila
штудируем
0
0 / 0 / 0
Регистрация: 05.10.2007
Сообщений: 154
04.11.2008, 17:43 5
Получается печатать можно только на ui.

Call uiview.Print()
Call uidoc.Print

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

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

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


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

Set doc=collection.GetNextDocument(doc)
Wend
Подскажите пожалуйста есть ли лучше решение?
0
0 / 0 / 0
Регистрация: 23.08.2008
Сообщений: 6,252
08.11.2008, 13:28 6
мне кажется, что задачу нужно решать, а не пытаться бороться с технологией...

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

возможно обрабатывать доки и затем выводить на печать, но надо понять в каком формате
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2008, 13:28
Помогаю со студенческими работами здесь

Приложение, сравнивающее текущую дату и дату, введенную пользователем.
Напишите приложение, сравнивающее текущую дату и дату, введенную пользователем. Если введенная дата...

Дата: Получить текущую дату и дату +7 дней...
В общем проблема такая... Через кнопку у меня должно появляться текущее дата и рядом дата +7...

Ввести с клавиатуры дату своего рождения и текущую дату. Необходимо вычислить разницу в днях между этими датам
Ввести с клавиатуры дату своего рождения и текущую дату. Необходимо вычислить разницу в днях между...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru