Получить конкретный текст из электронной почты - PullRequest
Новая
       11

Получить конкретный текст из электронной почты

1 голос
/ 20 июня 2019

Я хочу прочитать свою входящую почту Outlook для всех электронных писем, полученных сегодня, с темой "Отменить оповещение" в теме.

В теле этих электронных писем есть две строки данных с 6 столбцами. Довольно простое тело письма, как показано ниже 

Record ID    Date        Name   Date 2       Status     Note
R-99864      06-20-2019  Fonsi  06-19-2019   Canceled   Record was out of date range

Я хотел бы извлечь идентификатор записи и поместить его в свой лист Excel.

Я могу определить свою электронную почту, выполнив поиск по теме электронной почты. Однако я не знаю, как извлечь идентификатор записи.

Подскажите, пожалуйста, как использовать Excel VBA для извлечения моего идентификатора записи?

Ниже приведен мой код для определения моих писем по теме письма. 


Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myInbox As Outlook.MAPIFolder
Dim myitems As Outlook.Items
Dim myitem As Object
Dim Found As Boolean

Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myitems = myInbox.Items
Found = False

For Each myitem In myitems
    If myitem.Class = olMail Then
        If InStr(1, myitem.Subject, "Cancel Alert") > 0 Then
            Debug.Print "Found"
            MsgBox (myitem.Subject)
            Found = True
        End If
    End If
Next myitem

'If the subject isn't found:
If Not Found Then
    NoResults.Show
End If


'myOlApp.Quit
Set myOlApp = Nothing

End Sub
...