Compartilhar via

Macro para automatização no Outlook 2010

Anônima
2016-01-11T15:47:17+00:00

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

Microsoft 365 e Office | Excel | Para uso doméstico | Windows

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários Sem comentários

Resposta aceita pelo autor da pergunta

  1. Anônima
    2016-01-13T20:24:40+00:00

    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!

    Esta resposta foi útil?

    0 comentários Sem comentários

0 respostas adicionais

Classificar por: Mais útil