Помогите, пожалуйста! Воюю с 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
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.