Antananarivu
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Установлен Outlook 2007, который по протоколу IMAP скачивает письма в папку "Входящие". Мне нужно, чтобы письма автоматически попадали не в папку "Входящие", а в папки поставщиков.
Создаю правило в "Мастере правил". Для любого входящего сообщения выполнять процедуру ("run to script").
Процедура такая:
Код:
Sub CustomMailMessageRule(Item As Outlook.MailItem)
On Error GoTo err
Dim oOutlook As New Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Set oNameSpace = oOutlook.GetNamespace("MAPI")
Set oFolder = oNameSpace.Folders("basis")
Set oFolder = oFolder.Folders("Aoiayuea")
Set oFolder = oFolder.Folders("123")
If TypeName(Item) <> "Nothing" Then
Item.Move oFolder
End If
Set oFolder = Nothing
Set oNameSpace = Nothing
Set oOutlook = Nothing
Exit Sub
err:
End Sub
|
Однако при перемещении то и дело возникают ошибки "Невозможно обновить заголовки" или "Объект не найдет" При этом некоторые письма нормально копируются, другие копируются, но не помечаются на удаление в исходной папке. Иногда программа просто зависает.
В чем может быть дело? Может кто нибудь подскажет как корректно поступить в данной ситуации? Может быть есть другие способы решить задачу сортировки IMAP почты по папкам.
Очень нужно! Заранее всем благодарен! |
