Автор: duck7 2:04:2008, 08:59
Господа-товарищи ГУРУ!!!
Помогите, пожалуйста! Воюю с 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.
Автор: LuckyCat 14:04:2008, 09:17
Похоже проблема в целевой папке.
Перед переносом проверьте ее наличие.
Похоже нет там папки "СМИ".