Ir para o conteúdo principal

Como baixar / salvar automaticamente anexos do Outlook em uma determinada pasta?

Embora salvar todos os anexos de um único e-mail no Outlook seja simples usando o Anexos > Salvar todos os anexos Opcionalmente, gerenciar anexos de vários e-mails, especialmente em grandes quantidades, pode ser mais desafiador. Este artigo apresenta duas soluções eficazes para baixar automaticamente anexos de e-mails do Outlook para uma pasta específica. Esses métodos são particularmente úteis ao lidar com vários e-mails e anexos, simplificando o processo e economizando tempo.


Baixe automaticamente anexos do Outlook para uma pasta com VBA e regras

Essa abordagem envolve o uso de um script VBA que, quando executado com uma regra específica, baixará e salvará automaticamente anexos de e-mails do Outlook em uma pasta designada. Prossiga com as seguintes etapas:

  1. Press Alt + F11 para abrir o Microsoft Visual Basic para Aplicações janela.
  2. Clique inserção > Móduloe cole o script VBA abaixo no recém-aberto Módulo janela.

    VBA: Salvar automaticamente os anexos do Outlook em uma determinada pasta

    Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
    For Each oAttachment In MItem.Attachments
    oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next
    End Sub

    Nota: Por favor localize a linha sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"e substitua-o pelo caminho da pasta de destino desejada.

  3. Salve o script VBA e feche o Microsoft Visual Basic para Aplicações janela.
  4. Vou ao Mail visualizar e clicar Início > Regras > Gerenciar regras e alertas.
  5. Na abertura Regras e Alertas caixa de diálogo, por favor clique no Nova regra botão no Regras de e-mail aba.
  6. Na série Assistente de regras caixa de diálogo que aparece, selecione o Aplicar regra nas mensagens que recebo opção, e clique no botão Próximo botão.
  7. Na série Assistente de regras (Quais condições você deseja verificar?) caixa de diálogo, clique no botão Próximo botão sem selecionar nenhuma opção. E então clique no Sim botão no pop-up Microsoft Outlook caixa de diálogo.
  8. No que se segue Assistente de regras (o que você deseja fazer com a mensagem?) caixa de diálogo, proceda da seguinte forma:
    1. Verifique o execute um script opção. Dica: Se você não vir a opção, por favor vá para este tutorial sobre como ativar a opção "executar um script" no Outlook.
    2. Clique no texto "um script" sublinhado em azul para abrir o Selecione o script caixa de diálogo. Aqui, escolha o script que você adicionou em Passo 2 E clique no OK botão.
    3. Clique na Próximo botão para prosseguir.
  9. Na série Assistente de regras (existe alguma exceção?) caixa de diálogo, por favor clique no Próximo botão diretamente.
  10. No ultimo Assistente de regras caixa de diálogo, nomeie a regra na caixa Passo 1 caixa, marque as opções que você precisa no Passo 2 seção e clique no Acabamento botão.
  11. Feche o Regras e Alertas caixa de diálogo.

Resultado

Agora, se você selecionou a opção “Executar esta regra agora nas mensagens que já estão na caixa de entrada”, todos os anexos da sua conta de e-mail serão baixados e armazenados na pasta de destino especificada. Além disso, se você marcou a opção “Ativar esta regra”, todos os anexos dos e-mails recebidos serão automaticamente baixados e salvos na pasta designada.


Baixe automaticamente anexos do Outlook para uma pasta com o Kutools para Outlook

Com o Kutools for Outlook instalado em seu computador, seu Desanexação Automática A função permite que você baixe automaticamente todos ou anexos específicos do Outlook com base nas condições definidas, direcionando-os convenientemente para uma pasta escolhida. Além disso, esse recurso oferece flexibilidade para criar subpastas. Ele fornece duas alternativas para nomear essas subpastas: você pode selecionar um dos formatos, como [pasta da mensagem]-[assunto da mensagem]ou opte por anexar uma sequência de texto personalizada como sufixo ao formato escolhido. Esse recurso melhora muito a organização e a acessibilidade dos seus anexos.

Kutools for Outlook: Turbine o Outlook com mais de 100 ferramentas indispensáveis. Faça um test drive GRATUITAMENTE por 60 dias, sem compromisso!   Leia mais...   Baixe agora!

  1. Clique Kutools > Desanexação Automática para abrir a caixa de diálogo do recurso.
  2. Na série Desanexação automática de anexos diálogo, selecione o Desanexar automaticamente todos os anexos recebidos opção e configure da seguinte forma:
    1. Clique no botão navegar para especificar a pasta de destino para salvar anexos desanexados automaticamente.
    2. (Opcional) Verifique o Desanexe anexos no estilo abaixo opção se desejar criar subpastas para armazenar os anexos.
      • Crie subpastas no estilo abaixo: Nomeie as subpastas em um dos formatos predefinidos, como [pasta da mensagem]-[assunto da mensagem].
      • Renomeie os anexos salvos no estilo abaixo: nomeie as subpastas usando um dos formatos predefinidos e adicione uma sequência de texto personalizada como sufixo.
    3. (Opcional) Verifique o O ícone de anexo ainda permanece nos e-mails opção de manter um indicador visual nos e-mails que continham anexos.
    4. Clique Ok.

Resultado

A partir de agora, todos os anexos serão salvos automaticamente na pasta especificada após o recebimento dos e-mails.

Dica: Se você deseja configurar a separação automática de anexos com base em regras específicas, habilite a opção Desanexar automaticamente os anexos por regras opção no Desanexação automática de anexos diálogo. Depois disso, clique no Novo botão para definir suas condições de filtro e configurações de salvamento desejadas.

Observações:

  • Quer acessar o Desanexação Automática recurso? Download Kutools for Outlook agora! Além disso, o Kutools possui uma infinidade de mais de 100 recursos e oferece um teste gratuito de 60 dias. Não espere, experimente hoje!
  • Se você deseja desanexar ou baixar anexos existentes de vários/todos os e-mails recebidos no Outlook, aplique o Kutools para Outlook Desanexar tudo (anexos) or Salvar tudo (anexos) recurso.

Artigos relacionados:


Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (115)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you for this information
This comment was minimized by the moderator on the site
May i ask some question?

I usually received mail to many people and many kinds of files.
So i should distinguish each file.
But now, It can`t.

So Did you have any idea for this?
(like chacnged file name or and so on...)

Thank you for your help

BR
Hansu
This comment was minimized by the moderator on the site
Thank you for your great code
This comment was minimized by the moderator on the site
Hi,
I create Module in Microsoft VBA & save it
However when go to create Rules in Outlook, I can't see the select box of "Run a script"
What is the reason & how to fix it?
Thank you
This comment was minimized by the moderator on the site
Hi there,

In some versions of Outlook, especially in more recent updates, the "Run a Script" option might be disabled by default due to security concerns. To enable the "Run a Script" option in Outlook, you usually need to modify the registry settings. Here's a general guide on how to do it:

1. Close Outlook: Make sure Outlook is not running.
2. Open Registry Editor: Press Win + R, type regedit, and hit Enter.
3. Navigate to the Outlook Security Settings: Depending on your version of Outlook, you'll need to navigate to a specific path in the Registry Editor. For example, for Outlook 2016, 2019, and Microsoft 365, you might navigate to HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security.
4. Modify/Add the Registry Value:
4.1 Right-click in the right pane and choose New > DWORD (32-bit) Value.
4.2 Name the new value as EnableUnsafeClientMailRules.
4.3 Set its value to 1.
5. Close Registry Editor and restart your computer.
6. Open Outlook and check if the "Run a Script" option is available.
This comment was minimized by the moderator on the site
Ale kupa, oszuści. Maile zaczynają znikać. Nie mam moich wiadomości.
This comment was minimized by the moderator on the site
Hi, code works great however I am saving excel files and was wondering how I can modify the saved name. I recieve files like this "exa 2022-08.xlsx" how can I save the excel file as just "2022-08"?

this is my current code and my file saves however as just a file type not excel.

Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments

Dim SplitName() As String
SplitName = Split(oAttachment.DisplayName, ".")

Dim RightName As String
RightName = Right(SplitName(0), 7)

Dim SaveName As String

SaveName = sSaveFolder & RightName

oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName

Next
End Sub
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments
  Dim SplitName() As String
  SplitName = Split(oAttachment.DisplayName, ".")
  Dim RightName As String
  RightName = Right(SplitName(0), 7) 'You can also declare the file name here, e.g., RightName = "2022-08"
  Dim SaveName As String
  SaveName = sSaveFolder & RightName & "." & SplitName(1)
  oAttachment.SaveAsFile SaveName
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
Hi. is it possible to give the attachment file an entirely new name, using information form the mail (for example the date of delivery).
This comment was minimized by the moderator on the site
Hi,
How can I create a VBA to save attachment (Excel file) in my location drive when email received in my outlook folder and using the file name based on cell value...Many thanks

Regards,
Anthony On
This comment was minimized by the moderator on the site
Bonjour, j'ai réussi à rajouter "exécuter un script" dans les règles et faire fonctionner le script dans outlook. Les pièces jointes d'un mail bien précis s'enregistrent parfaitement dans le dossier demandé. Sauf que j'aimerais enregistrer uniquement les fichiers .txt, et non les .pdf qui s'incrémentent également. Aussi j'ai une autre requête s'il vous plaît, le script fonctionne très bien pour définir un dossier de destination, mais je souhaite définir d'autres règles qui me permettraient d'enregistrer les pièces jointes d'autres mails vers un autre dossier de destination. J'ai essayé de faire un 2e module VBA, cela ne fonctionne pas. J'ai généré un deuxième projet VBA mais Outlook n'en gère qu'un seul. Dans ce cas, comment remédier s'il vous plait ? Merci pour ce tuto très clair pour moi qui suis débutante.
This comment was minimized by the moderator on the site
Hi pearl,
Could you please send the code you generated so that we can fix it?
Amanda
This comment was minimized by the moderator on the site
Hi Can we  download the attachment contains specific letters using VBA code
This comment was minimized by the moderator on the site
Hi DAS,
When you said “the attachment contains specific letters”, did you mean you want to download the attachments from specific letters?
Amanda
This comment was minimized by the moderator on the site
Hi,
I executed the VBA + Rule option and it seemed to work perfectly. However, it recently stopped working with no errors. The rule is set to read the subject line, move to a certain folder if there is a certain subject, and then run the script. I know the trigger is working in the rule because the first action (move to folder) is working as it should.
Any idea why the rule trigger would work, but the documents are no longer being saved?
Things I have tried/checked:-The file path is correct-I added delays in various spots in the vba using application.wait-outlook has been shutdown and re-opened, and so has my laptop
(disclosure: I am a bit of a VBA newbie, but have beginner level coding knowledge)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations