none
Macro no Outlook - Encaminhar Anexos de email p/ pasta local ou rede RRS feed

  • Pergunta

  • Boa Tarde, Pessoal

    Estou tentando rodar uma macro no Outlook 2013 para mandar anexos de email de possuam arquivos XML para um pasta na rede ou local, porém nas primeiras tentativas a macro estava dando erro de execução 424, creio que era as linhas em branco que deixei nas linhas de comando, agora ele esta apresentado o erro tempo de execução 91. Esta maquina já tinha esta macro mas acabou dando erro pois acho que perdeu o caminha apontado, e a pessoal ainda foi e apagou a macro inteira estou tentando refazer-la.

    Alguém pode me ajudar com essa macro, segue abaixo.

        

    Public Sub SalvarAnexo(Item As MailItem)
        Dim Atmt As Attachment
        Dim FileName As String
            For Each Atmt In Item.Attachments
            If Right(Atmt.FileName, 3) = "xml" Then
                FileName = "C:\Users\Julio\Documents\SALVANDO_XML\" & Format(Item.CreationTime, "dd-mm-yyyy") & Atmt.FileName
                Atmt.SaveAsFile FileName
            End If
            If Right(Atmt.FileName, 3) = "XML" Then
                FileName = "\\192.168.1.12\publica\XML\SALVANDO_XML\" & Format(Item.CreationTime, "dd-mm-yyyy") & Atmt.FileName
                Atmt.SaveAsFile FileName
            End If
        Next Atmt

    End Sub

    Obrigado.

    quarta-feira, 7 de novembro de 2018 19:36