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 ______________________________________________________________________________