Microsoft Accessを使用して、別のアカウントのOutlook電子メールから添付ファイルをプルする必要があります

自分のOutlook電子メールアカウントから添付ファイルを抽出するための以下の作業コードがありますが、自動化されたプロセスのデフォルトの返信電子メールボックスとして設定されている別のアカウントに対してそれを行う必要があります。

以下のコードに、自分のメールボックスではなくそのメールボックスをチェックするように指示する方法が完全にはわかりません。Inbox変数の設定のさまざまなバリエーションを試しましたが、これまでのところどれも機能していません。これはAccess2013内で行われます。

Private Sub GetAttachments()

    Dim ns As Namespace
    Dim Inbox As Outlook.MAPIFolder
    Dim Item As Object
    Dim Atmt As Outlook.Attachment
    Dim FileName As String

    Set ns = GetNamespace("MAPI")

    Set Inbox = ns.GetDefaultFolder(olFolderInbox)

    If Inbox.Items.Count = 0 Then
        MsgBox "There are no messages in the Inbox.", vbInformation, _
                "Nothing Found"
        Exit Sub
    End If

    For Each Item In Inbox.Items
        For Each Atmt In Item.Attachments
            If Atmt.Type = 1 And InStr(Atmt, "xlsx") > 0 Then
                FileName = "C:\attachments\" & Atmt.FileName
                Atmt.SaveAsFile FileName
            End If
        Next Atmt
    Next Item

End Sub