![]() |
|
Модераторы: Akina |
![]()
|
|
| dimon2003 |
|
|||
|
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, поставил обновление, но ошибка повторяется. Кто-нибудь сталкивался с подобным Буду очень признателен за ответы. |
|||
|
||||
![]()
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |