VBA Auto download attachment

[Victor30castro]

Olá, 

Tenho dúvidas para realizar o download de arquivos(.xlsx).

Atualmente, eu consigo fazer o download do anexo mas quando vou acessar o arquivo na pasta de trabalho me aparece a seguinte mensagem: 
"O Excel não pode abrir o arquivo 'Teste.xlsx' porque o formato ou a extensão de arquivo não é válida. Verifique se  o arquivo não está corrompido e se a extensão corresponde ao formato do arquivo."

Se alguém puder me ajudar ficarei agradecido.

Segue o Código VBA (Outlook):
________________________________________________________________________

Sub BaixarAnexo(MItem As Outlook.MailItem)

    Dim OutAnexo As Outlook.Attachment
    Dim caminho_completo As String
    
    caminho_completo = "C:\Users\vcpachec\Documents\Test"
    
    nome_arquivo = "Test" & " " & Format(Now, "dd - mm")
    
    For Each OutAnexo In MItem.Attachments
        OutAnexo.SaveAsFile caminho_completo & "\" & nome_arquivo & ".xlsx"
        
        Next
        

End Sub

______________________________________________________________________________