vba - Outlook 脚本 VBA 不起作用

Question

我已经复制了这个脚本，用于从邮件到文件夹的单独附件。

       Public Sub ProcessarAnexo(Email As MailItem)
       Dim diretorioAnex As String
       diretorioAnex = "C:\Separados"

       Dim MailID As String
       Dim mailx As Outlook.MailItem

       MailID = Email.EntryID
       Set Mail = Application.Session.GetItemFromID(MailID)

       For Each anexo In mailx.Attachments
           If Rigth(anexo.FileName, 3) = "xml" Then
           MsgBox (anexo.FileName)
           anexo.SaveAsFile directorioanex & "\" & anexo.FileName
       End If
       Next
       Set mailx = Nothing

        End Sub

我尝试从“立即执行规则”执行脚本，但它没有在“Separados”文件夹中保存任何内容。

Answer 1

该脚本有效，Outlook 2010 已阻止宏和代码，我已启用 OutLook 以运行 VBA 和宏并且一切运行良好。

谢谢