Outlookの特定のメールをExcelに出力したい

Question

前提・実現したいこと

Outlookの特定の受信フォルダにある、特定の文字列を本文または件名に持ったメールを、Excelに出力したいと思っています。
条件

発生している問題・エラーメッセージ

件名や本文で絞り込む方法が分かりません。

該当のソースコード

Sub GetMail()
Dim objOutlook As Outlook.Application
Dim myNamespace As Outlook.Namespace
Dim myInbox, folderA

Set objOutlook = New Outlook.Application
Set myNamespace = objOutlook.GetNamespace("MAPI")

Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
Set folderA = myInbox.Folders.Item("FolderA")

Dim i As Long

For i = 1 To folderA.Items.Count
    With ThisWorkbook.Worksheets("Sheet1")
        .Cells(i + 1, 1).Value = folderA.Items(i).SentOn
        .Cells(i + 1, 2).Value = folderA.Items(i).Subject
        .Cells(i + 1, 3).Value = folderA.Items(i).Body
    End With
Next i
End Sub

上記では、フォルダAのメールを全てExcelに書き込んでいますが、日時や件名、本文などOutlook内のメール情報をVBAで条件分岐させるには、どのようにしたらよいのでしょうか。
また、ExcelでもOutlookのVBAでもどちらでも構いません。
よろしくお願いいたします。

Answer 1

Dim strSubject As String, strBody As String
strSubject = "xxx"
strBody = "yyy"

If InStr(folderA.Items(i).Subject, strSubject) > 0 And InStr(folderA.Items(i).Body, strBody) > 0 Then
  MsgBox "見つかった"
End If

あと
Subject：件名
To：宛先
receivedTime：受信日時
Body：本文
Attachments：添付ファイル

Answer 2

Dim オブジェクト名 As Outlook.MailItem
が必要みたいです。
メールの件名や本文ものっていますので、こちらを参考にどうぞ。

http://tonari-it.com/excel-vba-outlook-mail-send/

Comments

[退会済みユーザー]

すいません、特定のメールを抽出(Excelに出力)したいのですが、件名や本文(MailItemのプロパティ)に条件をかませるということでしょうか？