Помощник
 |
|
Разработка бизнес сайтов Нужны клиенты? Тогда сюда быстрее... |
Сообщение сайта
Здравствуйте, гость ( Вход | Регистрация )
 Vba и Outlook 2003 - не работает Item.move Что не так?, Помогите с VBA |
|
|
  2:04:2008, 08:59
 
|
|
Новенький  Группа: Программист Сообщений: 1 Регистрация: 2:04:2008 Пользователь №: 16 321 Репутация:  0 
 |
Господа-товарищи ГУРУ!!!
Помогите, пожалуйста! Воюю с MS Outlook 2003. Есть такой код на VBA: Код Sub ColorFlag(Item As Outlook.MailItem) Item.UnRead = False' установить признак "Прочтенное" Item.FlagStatus = olFlagComplete ' поставить галку Item.Save ' сохранить Set oDefFolder = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("СМИ") ' определяем папку назначения ("СМИ" в папке "Входящие") Item.Move (oDefFolder) ' перемещаем из "Входящие" в "СМИ" End Sub Этот код обрабатывается в ходе выполнения правила в MS Outlook 2003. Проблема в том, что если Item.Move (oDefFolder) стоит в конце кода, то НЕ выполняется перемещение, а если поставить в начало кода, то НЕ выполняется действие - поставить галку и сделать прочтенным (при этом перемещение письма в нужную папку происходит исправно). Подскажите, пожалуйста, что не так делаю??? Уточнение: код написан для ПРАВИЛА Outlook. |
 |
Сообщение
#1
|
 |
|
|
14:04:2008, 09:17
|
|
Новенький Группа: Программист Сообщений: 1 Регистрация: 14:04:2008 Пользователь №: 16 607 Специализация: Abap, Delphi, C/C++, C#, Java, Db developer Репутация: 0
|
Похоже проблема в целевой папке.
Перед переносом проверьте ее наличие. Похоже нет там папки "СМИ". Сообщение отредактировал LuckyCat - 14:04:2008, 09:20 |
|
|
Сообщение
#2
|
|
|
Текстовая версия | Сейчас: 17:05:2008 - 09:12 |
