@CanalQb

Outlook - Automatizando o salvamento de Anexos de Emails


CanalQb


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!