Я не могу видеть, как мой макрос VBA находится в поле "запускать script"

Я скопировал следующий код в моем VUE VUE из одного из сообществ VBA и внесла в него изменения в соответствии с моей потребностью. Я могу запустить его с помощью F5 и F8. Теперь я хотел бы запускать этот макрос всякий раз, когда получаю электронное письмо в папке1. Я попытался настроить правило, но я не вижу макроса, указанного в поле "запустить a script". Я уже проверил, что

• настройка безопасности макроса верна.
• макрос находится в модуле не в классе

Не могли бы вы рассказать мне, что происходит в настройке.

Public Sub SaveAttachments()

    Dim myOlapp As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim yourFolder As Outlook.MAPIFolder

    Dim myItem As Outlook.MailItem
    Dim myAttachment As Outlook.Attachment
    Dim I As Long

    Set myOlapp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlapp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set yourFolder = myNameSpace.GetDefaultFolder(olFolderInbox)

    Set myFolder = myFolder.Folders("folder1")
    Set yourFolder = yourFolder.Folders("folder2")

    For Each myItem In myFolder.Items
        If myItem.Attachments.Count <> 0 Then
            For Each myAttachment In myItem.Attachments
                I = I + 1
                myAttachment.SaveAsFile "C:\arthur\test.csv"

            Next
        End If

        myItem.Move yourFolder

    Next
End Sub