Ir para o conteúdo principal
Note: The other languages of the website are Google-translated. Back to English

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

De um modo geral, você pode salvar todos os anexos de um e-mail clicando em Anexos > Salvar todos os anexos no Outlook. Mas, se você precisar salvar todos os anexos de todos os e-mails recebidos e receber e-mails, alguma ideia? Este artigo apresentará duas soluções para baixar automaticamente anexos do Outlook para uma determinada pasta.


Baixe automaticamente os anexos do Outlook para a pasta com VBA e regra

Este método apresentará um script VBA e executará esse script com uma regra para baixar e salvar automaticamente os anexos do Outlook em uma determinada pasta. Faça o seguinte:

1. pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe, em seguida, cole abaixo do script VBA na nova janela de abertura do Módulo.

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

Anote os: Por favor, descubra sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"e substitua o caminho da pasta de destino conforme necessário.

3. Salve o script VBA e feche a janela Microsoft Visual Basic for Applications.

4. Vou ao Mail visualizar e clicar Início > Regras > Gerenciar regras e alertas. Veja a imagem:

5. Na caixa de diálogo de abertura de Regras e Alertas, clique no Nova regra botão no Regras de e-mail aba. Veja a imagem:

6. Agora na caixa de diálogo do Assistente de Regras, clique para selecionar o Aplicar regra nas mensagens que recebo opção, e clique no botão Próximo botão.

7. Na caixa de diálogo do Assistente de regras (quais condições você deseja verificar?), Desmarque qualquer opção e clique no botão Próximo botão. E então clique no Sim botão na caixa de diálogo pop-up do Microsoft Outlook. Veja a imagem:

8. Agora na caixa de diálogo do Assistente de Regras (o que você deseja fazer com a mensagem?): (1) Verifique o execute um script opção; (2) Clique no texto de um roteiro para abrir a caixa de diálogo Selecionar Script, selecione o script que adicionamos na Etapa 2 e clique no botão OK botão; (3) Clique na Próximo botão.

9. Na caixa de diálogo do Assistente de regras (há alguma exceção?), Clique no botão Próximo botão diretamente.

10. Agora, na última caixa de diálogo do Assistente de regras, nomeie a regra no Passo 1 caixa, marque as opções que você precisa no Passo 2 seção e clique no Acabamento botão.

11. Feche a caixa de diálogo Regras e alertas.

E agora todos os anexos são baixados de sua conta de e-mail e salvos na pasta de destino especificada. E todos os anexos de e-mails recebidos serão baixados automaticamente e salvos na pasta especificada também.


Baixe automaticamente os anexos do Outlook para a pasta com Kutools for Outlook

Se você tem Kutools for Outlook instalado, você pode aplicar seu Desanexação Automática opção de baixar automaticamente todos os anexos do Outlook e salvar em uma determinada pasta facilmente.

Kutools for Outlook: Adicione mais de 100 ferramentas úteis para Outlook, grátis para testar sem limitação em 60 dias. Leia mais      Teste grátis agora

1. Clique Kutools > Desanexação Automática > permitir para habilitar o recurso Auto Detach.

2. Vá em frente para clicar Kutools > Desanexação Automática > Gerenciador de separação automática.

3. Na caixa de diálogo Auto Detach Attachments, verifique o Desanexar automaticamente todos os anexos recebidos opção e, em seguida, configure da seguinte maneira:
(1) Clique no botão de navegação  para especificar a pasta de destino para salvar anexos desanexados automaticamente;
(2) É opcional verificar o Criar subpastas no seguinte estilo opção e, em seguida, selecione um estilo de subpasta na lista suspensa abaixo;
(3) É opcional verificar o único desanexar anexos com a seguinte extensão opção e, em seguida, digite extensões de arquivo de anexo na caixa abaixo;
(4) É opcional verificar o ícone de anexo ainda permanece nos e-mails opções.

Anote os: Se você precisar desanexar automaticamente os anexos dos remetentes, pode verificar o Desanexar automaticamente os anexos por regras opção, clique no Novo e, em seguida, digite o endereço de e-mail do remetente e especifique a pasta de destino na segunda caixa de diálogo Desanexação automática de anexos.

4. Clique no Ok para salvar as configurações.

De agora em diante, todos os anexos (ou anexos com extensões de arquivo especificadas ou anexos de remetentes especificados com base em suas configurações) serão salvos automaticamente.

Anote os: Você pode aplicar Kutools for Outlook'S Desanexar tudo (Anexos) recurso ou Salvar tudo (Anexos) recurso para baixar / salvar rapidamente todos os anexos de vários / todos os e-mails recebidos no Outlook.


Demonstração: baixe automaticamente os anexos do Outlook para a pasta com Kutools for Outlook


Dica: Neste vídeo, Kutools guia é adicionada por Kutools for Outlook. Se você precisar, por favor clique aqui para ter um teste gratuito de 60 dias sem limitação!


Artigos relacionados:


Kutools for Outlook - Traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools perspectiva kutools aba 1180x121
tiro kutools perspectiva kutools guia mais 1180x121
 
Comentários (109)
Avaliado 4.5 fora do 5 · classificações 1
Este comentário foi feito pelo moderador no site
Olá a todos O script não está funcionando para mim. Há algo mais que precisa ser feito. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Attachments" para cada oAttachment em MItem.Attachments oAttachment .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub
Este comentário foi feito pelo moderador no site
Olá SRINIVAS, acredito que você precise adicionar a letra do Drive no início do seu link. ou seja, C:\users\test\etc Espero que isso ajude! André
Este comentário foi feito pelo moderador no site
No VBA, você também precisa adicionar uma barra invertida final no final do caminho do arquivo. Do seguinte modo. "D:\OutlookAttachments\" Espero que isso resolva quaisquer problemas. Matt
Este comentário foi feito pelo moderador no site
HI

o script VBA funcionou muito bem para mim ..... uma vez - nunca mais.

Até apaguei os arquivos da pasta e voltei a rodar e nada.

O que estou fazendo errado ? - a regra está em execução enquanto eu consigo exibir um alerta ao mesmo tempo
Este comentário foi feito pelo moderador no site
[quote]Olá a todos O script não está funcionando para mim. Há algo mais que precisa ser feito. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Attachments" para cada oAttachment em MItem.Attachments oAttachment .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End SubPor Srinivas[/quote] O mesmo aqui eu tentei todas as opções Sinto que o script está sendo executado, mas ainda não vejo os arquivos carregando no caminho especificado do meu computador. Alguém pode me ajudar mais apreciado
Este comentário foi feito pelo moderador no site
script parece não estar funcionando também, tudo está programado bem, o código etc. e nenhum anexo está puxando quando eu executo a regra? funcionando no escritório 2007? alguma ideia porque??
Este comentário foi feito pelo moderador no site
Olá, eu tentei a opção 1 (Baixar automaticamente os anexos do Outlook para a pasta com VBA e regra) e funciona perfeitamente. Eu tenho as seguintes duas consultas: i) Existe uma maneira de baixar o mesmo anexo em vários caminhos de compartilhamento com o alargamento do arquivo? ii) Também salva o anexo com o cursor em A1 em cada folha e a folha1 deve ser selecionada. Então, quando você abre o arquivo da folha de caminho deve ser aberto com o cursor em A1. Muito obrigado antecipadamente!! Atenciosamente, Bhavesh Luhana
Este comentário foi feito pelo moderador no site
Esta regra ou similar pode ser aplicada a uma versão de webmail do Outlook?
Este comentário foi feito pelo moderador no site
Olá, estou tentando seguir os passos conforme orientação. mas não recebo a opção 'executar um script' depois de salvar a macro. Eu habilitei as macros, reiniciei o Outlook várias vezes. mas ainda assim a opção ainda não funciona. Por favor ajude. Obrigado!
Este comentário foi feito pelo moderador no site
Concordo com a AVNIKA. Estou com o mesmo problema :-|
Este comentário foi feito pelo moderador no site
Oi, eu tenho tentado seguir as etapas conforme indicado, selecionei todas as opções acima, mas depois de selecionar a opção "executar um script" e selecionar o link "um script", não recebo o script nessa caixa de diálogo. Por favor, ajude o mais rápido possível. Obrigado!
Este comentário foi feito pelo moderador no site
Eu tive esse mesmo problema. Encontrei uma resolução aqui: https://answers.microsoft.com/en-us/msoffice/forum/msoffice_outlook-mso_win10/the-option-to-run-a-scritp-has-disappeared-from/d289e698-47fa-497a-80fa-633067a0de37#ThreadAnswers<br /> Depois que atualizei meu registro com a chave... ele começou a funcionar como deveria novamente. Experimente e veja se funciona para você.
Este comentário foi feito pelo moderador no site
thx, ainda funcionou hoje :)
Este comentário foi feito pelo moderador no site
Muito obrigado pelos passos tão claramente mencionados... Eles me ajudaram muito e tornaram meu trabalho muito fácil... OBRIGADO.....!!
Este comentário foi feito pelo moderador no site
Isso funciona muito bem para mim Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\Dck-server-02\g\00 Uploads\" para cada oAttachment em MItem.Attachments oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub Como você pode ver, deixei o nome do arquivo que é o anexo como o mesmo para quando ele copia para a unidade de rede. No entanto, se vários e-mails chegarem com o mesmo nome de arquivo para o anexo, o script permitirá que o anexo mais recente sobrescreva o anexo anterior na pasta de rede. Existe uma edição que eu possa inserir no script que anexará um "-1" "-2" "-3" etc ... ao final do nome do arquivo anexo? Então, por exemplo, se o anexo for chamado de "inspeção" e eu receber vários que chegam, posso renomeá-los para "inspeção-1" "inspeção-2" "inspeção-3" Qualquer ajuda seria muito apreciada! Obrigada.
Este comentário foi feito pelo moderador no site
Olá Jayaya. Tente verificar o arquivo antes de salvá-lo. Dim filepath As String filepath = Dir(sSaveFolder & oAttachment.DisplayName) If filepath = "" Então oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Else oAttachment.SaveAsFile sSaveFolder & "1-" & oAttachment.DisplayName End if e assim por diante... brincar com o código e deixe-me saber como você se sai ..
Este comentário foi feito pelo moderador no site
existe alguma possibilidade de alterar isso para que apenas os arquivos que tenham certas palavras em seu nome sejam copiados?
Este comentário foi feito pelo moderador no site
lata Kutools ser configurado para salvar apenas anexos de determinados e-mails com base no assunto? E o mesmo arquivo pode ser salvo em vários diretórios de um único e-mail? Queremos usar isso para distribuição de relatórios em vez de e-mail.
Este comentário foi feito pelo moderador no site
Oi muito obrigado este trabalho mas apenas uma vez, nas próximas vezes o arquivo não é salvo no disco :( não sei porque, alguma idéia? obrigado
Este comentário foi feito pelo moderador no site
Oi, eu tenho o mesmo problema (funciona apenas uma vez). Você poderia resolver o problema?
Este comentário foi feito pelo moderador no site
Oi,
Verifique se a pasta de destino dos anexos do Outlook existe ou não. E mais informações sobre esse problema serão úteis. Obrigado!
Este comentário foi feito pelo moderador no site
Oi, devo dizer que seu script excelente, resolveu 80% do meu trabalho, mas ainda tenho um problema. Os anexos que recebo estão com nova data e carimbo de hora diariamente e quero salvar automaticamente esses anexos, mas removendo o carimbo de data/hora para que da próxima vez ele substitua/substitua e salve uma nova cópia com o mesmo nome. não quero que todos os anexos do dia sejam salvos com nova data. em vez disso, o mesmo arquivo precisa ser substituído no mesmo local. Você pode por favor ajudar.
Este comentário foi feito pelo moderador no site
Olá a todos, Como posso configurar isso para que eu tenha um script diferente para enviar arquivos para pastas diferentes? Obrigado por qualquer ajuda oferecida antecipadamente!
Este comentário foi feito pelo moderador no site
Olá, estou configurando o script que você tem na parte superior da página e funciona bem, porém, gostaria de nomear o anexo que está sendo salvo para que ele sobrescreva o antigo. O que eu precisaria adicionar para que isso acontecesse? Obrigado David
Este comentário foi feito pelo moderador no site
Olá a todos os especialistas, eu tento configurar o download automático conforme descrito acima usando o script VBA, mas nada foi salvo na pasta de destino. Eu tentei isso no Outlook 2007 e no Outlook 2010 e também verifiquei se a pasta possui todas as autoridades necessárias. Mas ainda nenhum anexo foi salvo. Alguém pode me ajudar nisso? Saúde Stanley
Este comentário foi feito pelo moderador no site
No Outlook 2013, a opção "executar um script" não está disponível, posso fazer mais alguma coisa para salvar anexos de um email sem usar Kutools
Este comentário foi feito pelo moderador no site
Se a opção "Executar um script" estiver ausente, é porque ela está bloqueada por padrão agora desde uma atualização de segurança há alguns meses. Procure aqui mais informações: https://www.slipstick.com/outlook/rules/outlook-2016-run-a-script-rules/
Este comentário foi feito pelo moderador no site
Oi, script funciona bem ... mas deseja extrair os PDFs de uma subpasta, não da caixa de entrada principal. Existe uma maneira de alterar o script?
Obrigado com antecedência!
Este comentário foi feito pelo moderador no site
Oi Eric,
O script VBA abaixo salvará todos os anexos PDF das pastas de e-mail. Para salvar de uma determinada pasta, você pode especificar a pasta ao executar manualmente a regra.


Public Sub SaveAttachmentsToDisk(EmailItem As Outlook.MailItem)
Dim xAttachment As Outlook.Attachment
Dim xDotPos como inteiro
Dim xSavePath como string, xFileType como string
xSavePath = "C:\Users\DT168\Documents\outlook-attachments\"
Para cada xAttachment em EmailItem.Attachments
xDotPos = InStrRev(xAttachment.DisplayName, ".")
xFileType = Mid(xAttachment.DisplayName, xDotPos, Len(xAttachment.DisplayName) - xDotPos + 1)
Se xFileType = ".pdf" Então
xAttachment.SaveAsFile xSavePath & xAttachment.DisplayName
Se acabar
Próximo
End Sub
Este comentário foi feito pelo moderador no site
Olá, Existe um script VBA para anexo CSV. Atualmente, tenho trabalhos de relatório que entram automaticamente em pastas nomeadas no Outlook, agora gostaria que esses arquivos nas pastas fossem extraídos e entrassem nas pastas correspondentes na minha área de trabalho. Espero que isso faça sentido. Por favor ajude! Sou muito novo em VBA.
Este comentário foi feito pelo moderador no site
Eu fiz todos os scripts para baixar os anexos do email do Outlook e meu script está funcionando bem quando o executo manualmente. Gostaria de automatizar o processo usando a opção Regra. Mas não consegui ver minha macro na janela do Assistente de regras. Eu habilitei a opção abaixo no registro também
HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 16.0 \ Outlook \ Security
DWORD: EnableUnsafeClientMailRules
Valor: 1

Mas ainda não consegui ver minha macro na lista do Assistente de regras. Minha lista de assistente de regras está vazia, mas eu já criei a macro e ela está funcionando manualmente. Eu tenho que trazer a macro no meu assistente de regras para automatizar o processo. Por favor me ajude se você tiver alguma idéia!
Não há comentários postados aqui ainda
carregar mais