【Excel VBA】Outlook内の受信メールや送信済みメール一覧を取得し、Excelに出力する

'colはcollectionの略　Itemsのコレクションを指す
Dim colItems As Items
Set colItems = myFolderInbox.Items

Items.Restrict メソッド
Restrict("[プロパティ名]='検索文字列'")

Sub OutlookInbox条件付き取得()

Dim WB As Workbook
Set WB = Workbooks.Open("C:\Users\Public\Outlookメール取得.xlsx")

'Outlookアプリケーションの取得(参照設定あり）
Dim objOutlook As Outlook.Application
Set objOutlook = New Outlook.Application

'GetNameSpaceメソッドによるNameSpaceオブジェクトの取得
Dim myNameSpace As Outlook.Namespace
Set myNameSpace = objOutlook.GetNamespace("MAPI")

'NameSpaceオブジェクト内のフォルダの取得
Dim myFolderInbox As Folder
Set myFolderInbox = myNameSpace.GetDefaultFolder(olFolderInbox)

Dim r As Long
r = 3
’フォルダ内のアイテムコレクションの取得と文書内の検索
Dim colItems As Items
Set colItems = myFolderInbox.Items.Restrict("[To] = '****@outlook.jp'")

Dim objMail As Object
For Each objMail In colItems
  With WB.Worksheets("Sheet1")
    .Cells(r, 2).Value = objMail.ReceivedTime  '受信日時
    .Cells(r, 3).Value = objMail.SenderEmailAddress '送信者アドレス
    .Cells(r, 4).Value = objMail.cc
    .Cells(r, 5).Value = objMail.bcc
    .Cells(r, 6).Value = objMail.Subject
    .Cells(r, 7).Value = objMail.Body
  End With
  r = r + 1
Next
End Sub

Dim r As Long
r = 3

’フォルダ内のアイテムコレクションの取得
Dim colItems As Items
Set colItems = myFolderInbox.Items

Items.Restrict("[To] = '****@outlook.jp'")

Dim objMail As Object
For Each objMail In colItems

 With WB.Worksheets("Sheet1")
    .Cells(r, 2).Value = objMail.ReceivedTime  '受信日時
    .Cells(r, 3).Value = objMail.SenderEmailAddress '送信者アドレス
    .Cells(r, 4).Value = objMail.cc
    .Cells(r, 5).Value = objMail.bcc
    .Cells(r, 6).Value = objMail.Subject
    .Cells(r, 7).Value = objMail.Body
  End With
  r = r + 1
Next
End Sub