Тема: VBS, Outlook: Копирование сообщений — как убить алерт?
Outlook 2010. Простенький VBS скрипт копирует прошлогодние сообщения из одной папки (расположенной в ящике на сервере Exchange) в другую (расположенную в локальном pst-шнике).
Эпизодически, ни с того ни с сего, в Outlook всплывает сообщение:
Невозможно открыть пользовательскую форму. Вместо нее будет использована форма Outlook. Объект не поддерживает требуемое действие. [OK]
и, пока его не ткнешь, скрипт висит на строке с копированием.
Что за бред? Какая нах "пользовательская форма"?
И, собственно, главный вопрос: Как предотвратить появление этого долбанного сообщения?
Set oOApp = CreateObject("Outlook.Application")
Set oSrcFolder = oOApp.GetNamespace("MAPI").Folders.Item(folder0)
Set oDestFolder = oOApp.GetNamespace("MAPI").Folders.Item(folder1)
On Error Resume Next
For Each Item In oSrcFolder.Items
If Year(Item.CreationTime) < 2016 Then
WScript.Echo Item.CreationTime
Item.Copy.Move oDestFolder
End If
Next
P.S. Хотя код VBS, запостил в треде VBA, т.к. полагаю что тематически это более верно. Да и в VBA можно использовать почти без изменений.