Outlook 脚本 VBA 不起作用答案

【问题标题】：Outlook Script VBA doesn't workOutlook 脚本 VBA 不起作用
【发布时间】：2012-11-22 19:29:00
【问题描述】：

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

       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”文件夹中保存任何内容。

【问题讨论】：

嗨亚历杭德罗，为了不仅回答您的问题，而且帮助您学习 VBA，您是否单步执行此代码并发现您在哪一行出现错误。或者您是否将鼠标放在对象名称“mailx”上以查看它是否设置为对象？

标签： vba outlook outlook-2010

【解决方案1】：

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

谢谢

【讨论】：

我不这么认为。上面发布的脚本只能通过应用语法纠正魔法来工作。不过好在你把事情搞定了。