Verificar anexos do Excel no email recebido no Outlook

Question

O que estou tentando realizar com o código abaixo é criar uma macro que verifique todos os emails não lidos em uma pasta do Outlook com um anexo do Excel. Depois disso, quero que ele execute outra macro que criei no Excel. O problema que tenho é que com o código abaixo eu continuo recebendo erro de tempo de execução

'424': Object required.

Eu apreciaria muito qualquer ajuda com isso.

Sub attach()
Dim myNameSpace As NameSpace
Dim myFolder As Folder
Dim myAttachment As Outlook.Attachment
Dim xlApp As Object
Dim xlWB As Object
Dim xlWB2 As Object
Const File_Path As String = ""

Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Reports")

On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If xlApp Is Nothing Then Set xlApp = CreateObject("Excel.Application")
On Error GoTo 0
xlApp.Visible = True

For Each myAttachment In myItem.Attachments
    If InStr(myAttachment.DisplayName, "Detail") > 0 Then
        myAttachment.SaveAsFile File_Path & myAttachment.FileName
        Set xlWB = xlApp.Workbooks.Open(File_Path & myAttachment.FileName)
    End If
Next myAttachment

xlWB2.Application.Run "ExportToPDF"

End Sub

Recebo a mensagem de erro quando alcanço a seguinte parte:

For Each myAttachment In myItem.Attachments

    

Answer 1

O objeto myItem não existe.

Set myUnreadItems = myFolder.items.Restrict("[UnRead] = True")

If myUnreadItems.count = 0 Then
    MsgBox "No unread mail in: " & myFolder
    Exit Sub
End If

For i = myUnreadItems.count To 1 Step -1     
    Set myItem = myUnreadItems(i)