| Вопрос: VBA и Outlook 2003 - не работает Item.Move | Добавлено: 02.04.08 13:24 |
Автор вопроса:  duck7
|
|
Господа-товарищи ГУРУ!!!
Помогите, пожалуйста! Воюю с 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. |
| Ответы | Всего ответов: 0 |
Страница: