Outlook - Automatizando o salvamento de Anexos de Emails

---

@CanalQb que Youtube 

---

---

Outlook - Automatizando o salvamento de Anexos de Emails

---

---

Sempre crie uma frase de segurança única para jogos, Airdrops e qualquer outra coisa de origem desconhecida, em vez de usar sua carteira principal.

---

Se você é um usuário do Outlook e está cansado de perder tempo salvando manualmente os anexos dos seus emails, temos uma solução eficiente para você! Com esta macro personalizada, você pode automatizar o processo de salvar automaticamente anexos de emails em pastas específicas. Vamos dar uma olhada em como isso funciona:

Aqui está a macro que você pode usar para alcançar essa automação:

Public Sub ProcessarAnexo(Email As MailItem)

    Dim DiretorioAnexos As String

    DiretorioAnexos = "insira aqui o caminho da pasta de destino - pode ser local ou em rede"

    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) = "msg" Then ' Verifica se o anexo é um arquivo .msg

            Anexo.SaveAsFile DiretorioAnexos & Anexo.FileName

        End If

    Next

    

    Set Mail = Nothing

End Sub

Como Usar a Macro:

• Abra o Outlook.
• Pressione Alt + F11 para abrir o Editor do Visual Basic for Applications (VBA).
• No menu "Inserir", clique em "Módulo" para criar um novo módulo.
• Cole o código da macro no novo módulo.
• Personalize o valor da variável DiretorioAnexos para indicar o caminho da pasta onde deseja salvar os anexos. Certifique-se de usar as barras apropriadas para o caminho (por exemplo, "C:\Pasta\Destino").
• Salve e feche o Editor VBA.

Como Executar a Macro:

• Abra o email que contém os anexos que você deseja salvar.
• Vá para a guia "Desenvolvedor" (se não ver essa guia, siga as instruções neste link).
• Clique em "Macros" e selecione "ProcessarAnexo" na lista.
• Clique em "Executar".

A macro irá automaticamente salvar os anexos de arquivo com extensão ".msg" na pasta que você especificou. Isso economizará seu tempo e garantirá que seus anexos sejam organizados de forma eficiente.

Lembre-se de que macros podem potencialmente ser perigosas, então, certifique-se de habilitar a execução de macros somente de fontes confiáveis.

Aproveite essa automação para tornar suas tarefas no Outlook mais eficientes e organizadas!