| Вопрос: Перебор сообщений Outlook | Добавлено: 24.02.08 14:24 |
Автор вопроса:  Виктор
|
|
Здравствуйте!
Вывожу список сообщений циклом: Dim oOutlook As New Outlook.Application Dim oNamespace As Outlook.Namespace Dim oFolder As Outlook.MAPIFolder Dim oMessage As Outlook.MailItem Set oNamespace = oOutlook.GetNamespace("MAPI") Set oFolder = oNamespace.GetDefaultFolder(olFolderInbox) Debug.Print oFolder.Name k = 1 For Each oMessage In oFolder.Items Debug.Print Str(k) + ": " + CStr(oMessage.ReceivedTime) + " > " + oMessage.Subject k = k + 1 'Stop Next На сообщениях системного администратора типа "Не удается доставить: Delivery Status Notification (Failure)" и на письмах, где загруженны только заголовки вылетает ошибка "Type mismatch". Как можно обработать такие письма? Спасибо! |
| Ответы | Всего ответов: 0 |
Страница: