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

Question

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.