Macro para automatização no Outlook 2010

Question

Utilizo o seguinte código para o download automático de arquivos xml no meu outlook:

Public Sub ProcessarAnexo(Email As MailItem)
    Dim DiretorioAnexos As String
    
    DiretorioAnexos = "C:\NFE"
    
    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) = "xml" Then
            Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName
        End If
    Next
    
    Set Mail = Nothing
End Sub

mas após o download, para ficar mais fácil a identificação, altero os nomes das notas fiscais manualmente, colocando o numero da nota.. gostaria da ajuda para fazer um código no qual eu pudesse pegar o numero da nota fiscal, dentro do xml e salvar o arquivo com esse nome. Obrigado

Answer 1

Olá Matheus Victor, tudo bem? 

Bem-vindo à Comunidade da Microsoft!

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e

profissionais em TI.

:: MSDN ::

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Se essa informação foi útil, marque-a como resposta. 

Até mais!