none
script para salvar anexos automaticamente no Outlook 2013 RRS feed

  • Pergunta

  • Ola a todos 

    fiz um script para salvar automaticamente todos os anexos recebidos em pdf em uma determinada pasta no meu computador, assim que eu montei a regra ele ja baixou todos os anexos em pdf, mas desde entao ele nao salva os novos anexos que chagam no email.

    segui o script 

                                              

    Public Sub ProcessarAnexo(Email As MailItem)
         Dim DiretorioAnexos As String

         DiretorioAnexos = "C:\Users\PATRIMONIO\Desktop\AF impressao"

         Dim MailID As String
         Dim Mail As Outlook.MailItem

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

         For Each Anexo In Mail.Attachments
             If Right(Anexo.FileName, 3) = "pdf" Then
                 Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName

             End If
         Next

         Set Mail = Nothing
     End Sub

    tem algo errado no script? obrigado!


    sexta-feira, 17 de abril de 2020 17:47

Respostas

  • Olá,


    Você criou a regra no Outlook para usar o script com os emails que estão para chegar?


    Achei um documento que vai ajudar com o problema, mais infelizmente não achei em português, só em inglês.


    https://www.extendoffice.com/documents/outlook/3747-outlook-auto-download-save-attachments-to-folder.html
    segunda-feira, 20 de abril de 2020 16:08
    Moderador