Outlook VBA规则附件下载

我实现了一个VBA脚本，作为从Outlook电子邮件下载带有特定主题行的附件的规则。我的问题是Outlook首先对附件进行安全扫描，这大约需要一分钟。扫描运行时，它将附件显示为0kb的“ATP扫描进行中”文件，完成后，将显示实际的文件附件。由于这个原因，我无法在收到文件后立即下载该文件，因此我进行了等待，但它没有识别更新后的文件名，仍然将其保存为“正在进行的ATP扫描”

---

如何将脚本设置为在等待2分钟后首先刷新oAttachment.DisplayName变量，然后用更新后的名称下载该变量？

假设邮件进入收件箱之前扫描完成。

Public Sub aveAttachment(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "c:\"

For Each oAttachment In MItem.Attachments 'Checks attachments

    If oAttachment.DisplayName = "ATP Scan In Progress" Then
    CreateObject("Excel.Application").Wait (Now + TimeValue("00:02:00")) 'Allows ATP Scan to run
    End If
    
Next

For Each oAttachment In MItem.Attachments 'Downloads attachments

    oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName 'Saves file in directory
    
Next

End Sub