Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> outlook: как поставить фильтр??? Программная установка фильтра 
:(
    Опции темы
dimon2003
Дата 4.8.2003, 12:06 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Есть необходимость создавать программно фильтр в текущем представлении папки (типа <поле> = <значение>). Использую Office XP (SP 2) и MS Exchange

Для этого меняю свойство xml, соответсвующего View.
вот кусок кода:
// создаем парсер xml
Set objXML = CreateObject("MSXML2.DOMDocument.4.0")
// вытягиваем все view из нужной папки
Set objViews = Application.GetNameSpace("MAPI").Folders("Общие папки").Folders("Все общие папки").Folders("База клиентов").Folders("Курсы").Views
Set objView = objViews.Item("default")
// загружаем xml в парсер
objXML.loadXML(objView.XML)
Set objRoot = objXML.documentElement
Set newNode = objXML.createNode(1, "filter", "")
// ставим фильтр типа "сотрудник=test"
newNode.Text = "(""DAV:isfolder"" = false AND ""DAV:ishidden"" = false) AND (""http://schemas.microsoft.com/mapi/string/{00020329-0000-0000-C000-000000000046}/Сотрудник"" = 'Test')"
Set filterNode = objRoot.insertBefore(newNode, objRoot.childNodes.item(1))
objView.XML = objXML.XML
'Save and apply the new view.
objView.Save
// эпплаим view и показываем отфильтрованный фолдер
objView.Apply
Application.GetNameSpace("MAPI").Folders("Общие папки").Folders("Все общие папки").Folders("База клиентов").Folders("Курсы").Display

================
однако при попытке сохранения фильтра, возникает ошибка "Не удается правильно сохранить представление".
При попытке создать представление вручную из меню outlook (вид/тек. представление/изм. тек. представление/отбор/дополнительно), все работает. Однако, если я пытаюсь через это же меню напрямую применить автоматиечски сгенеренный (outlookom) SQL фильтр, получаю ошибку "Ошибка при анализе текста SQL" (и это текст SQL сгенеренный САМИМ outlook!!!).
Читал, что был такой баг outlook (Здесь), однако он ликвидировался в SP2, поставил обновление, но ошибка повторяется.
Кто-нибудь сталкивался с подобнымconfused.gif?
Буду очень признателен за ответы.
  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0523 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.