Обработка входящей почты. Нужен совет

@lexa_2000 · Регистрация: 07.10.2016

Author24 — интернет-сервис помощи студентам

Привет всем!!!

Возникла следующая задача.

Во входящей почте определить письма по
1. адресу отправителя;
2. по ключевым словам в Теме письма.

Далее необходимо:
1. перенести в указанную папку;
2. пометить, как прочитанное;
3. вытащить необходимые цифры из Темы письма;
4. записать эти цифры в существующий файл.

В принципе вроде все ясно. Сначала делаем правило, потом запускаем макрос, который
выцепляем нужную инфу и пишем в файл.

Засада в том, что попадающих под условие писем несколько за раз. И обработка макросом обязательно
просматривает одно из писем. Все обрабатывает, а одно не замечает. ((
Обрабатывается, когда следующая пачка приходит, но опять одно из новых не обрабатывается.

Visual Basic

Sub NewMail(Item As Outlook.MailItem)
 
Dim myFolder As Outlook.MAPIFolder
Dim mi As MailItem
Dim strSubj As String
 
Set myFolder = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Нужная папка")
 
For Each mi In myFolder.Items.Restrict("[Unread]=TRUE")
 
   If InStr(1, mi.Subject, "Нужное условие", 1) > 0 Then
    strSubj = mi.Subject
    mi.UnRead = False
    'ТУТ strSubj ЗАПИСЫВАЕМ В ФАЙЛ
   End If
 
Next mi
 
End Sub

Может существует другой способ? Кто что думает?

lexa.

	07.10.2016, 16:39