Outlook腳本VBA不起作用

我已經將此腳本複製到單獨的文件夾附件。Outlook腳本VBA不起作用

 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」中的任何內容。

來源

2012-11-22 alejandro carnero

嗨亞歷杭德羅，在不僅回答你的問題，但也幫助你學習VBA的利益，有你通過這個代碼加強，發現在其行，你得到一個錯誤。或者您是否將鼠標放在對象名稱「mailx」上以查看它是否設置爲對象？ – darbid

腳本工作，Outlook 2010已經阻止了宏和代碼，我已經啓用OutLook來運行VBA和宏，所有運行良好。

感謝

來源

2012-11-23 11:38:44

我不這麼認爲。上面發佈的腳本只能通過應用語法糾正魔法才能實現。但很好，你有理清理。 –

Outlook腳本VBA不起作用

回答

相關問題