Outlook Script 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 및 매크로를 실행할 수있게되어 모두 정상적으로 실행됩니다.

감사 만 질문에 대답뿐만 아니라 당신이 VBA를 배울 도움이되지의 이익에