Автоматически сохранять вложения из входящей почты в подпапке на локальный диск

Question

Ежедневно я получаю много писем с вложениями и пытаюсь запустить приведенный ниже скрипт vba в сеансе outlook. Моя цель состоит в том, чтобы, как только я получил электронное письмо от определенного отправителя, которое направляется в определенную папку, скрипт запускается самостоятельно в фоновом режиме и сохраняет вложение в папку на моем рабочем столе.

Я пробовал ниже, но ничего не происходит. Кто-нибудь может мне помочь, пожалуйста?

xxxx будет представлять адрес электронной почты. [filepath] будет представлять выбранный путь к файлу.

Заранее спасибо!

Private Sub Application_NewMail()

    Dim onamespace As Outlook.NameSpace
    Set onamespace = Outlook.GetNamespace("MAPI")    
    Dim ofol As Outlook.Folder
    Set ofol = onamespace.GetDefaultFolder(olFolderInbox).Folders("Test")
    Dim sSaveFolder As String
    FilePath = "[filepath]"
    Dim omail As Outlook.MailItem
    Set omail = Outlook.CreateItem(olMailItem)
    Dim atm As Outlook.Attachment

    For Each omail In ofol.Items

        If omail.SenderEmailAddress = "[filepath]" Then
            For Each atm In omail.Attachments
                atm.SaveAsFile FilePath & atm.FileName
            Next
        Else
        End If

    Next

End Sub