0

このスクリプトをコピーして、メールからフォルダに個別に添付しました。

       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」フォルダに何も保存されません。

4

1 に答える 1

0

スクリプトは機能し、Outlook 2010はマクロとコードをブロックしました。私は、OutLookがVBAとマクロを実行できるようにしましたが、すべて正常に実行されます。

ありがとう

于 2012-11-23T11:38:44.247 に答える