【VBA】Outlookの指定フォルダの昨日のメールを.txtで名前を付け保存したい

Option Explicit

Sub 昨日のOutlook情報をテキストドキュメントにして保存()

    Dim dtStart As Date
    Dim dtEnd As Date
    Dim strStart As String
    Dim strEnd As String
    Dim strFilter As String
    Dim objOL As Object
    Dim objNAMESPC As Object
    Dim myfolders As Object
    Dim colItems As Items
    Dim fldCurrent As Folder
    Dim objItem As MailItem

    ' エクスポート範囲を指定
    dtStart = Date - 1
    dtEnd = Date - 1
    strStart = FormatDateTime(dtStart, vbShortDate)
    strEnd = FormatDateTime(dtEnd, vbShortDate)
    strFilter = "[受信日時] >= '" & strStart & _
                 "' AND [受信日時] <= '" & strEnd & " 23:59'"

    '保存したいメールフォルダを取得
    Set objOL = CreateObject("Outlook.Application")
    Set objNAMESPC = objOL.GetNamespace("MAPI")
    Set myfolders = objNAMESPC.Folders("aaaaaa@gmail.com").Folders("テスト")

    'メールフォルダをフィルタリング
    Set colItems = myfolders.Items.Restrict(strFilter)

End Sub