Ir para o conteúdo principal

Como copiar todos os anexos de vários e-mails para um novo e-mail no Outlook?

Autor: Kelly Última modificação: 2018-04-11

Em geral, é fácil copiar anexos de um e-mail para outro copiando e colando no Outlook. Mas que tal copiar anexos de vários e-mails para um novo? Este artigo apresentará as soluções para você.

Guia Office - Habilite edição e navegação com guias no Microsoft Office, facilitando o trabalho
Desbloquear Kutools para Outlook sem versão agora e aproveite mais de 70 recursos com acesso ilimitado para sempre
Aumente seu Outlook 2021 - 2010 ou Outlook 365 com esses recursos avançados. Desfrute de um teste gratuito de 30 dias totalmente funcional e eleve sua experiência de e-mail!

Copie todos os anexos de vários e-mails para um novo e-mail

Este artigo apresentará um VBA para copiar rapidamente todos os anexos de vários e-mails para um novo no Outlook. Faça o seguinte:

1. Selecione vários e-mails cujos anexos você irá copiar e pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.
Note: Segurando Ctrl , você pode selecionar vários e-mails não adjacentes clicando neles um por um; segurando Shift , você pode selecionar vários e-mails adjacentes clicando no primeiro e no último.

2. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na nova janela do módulo.

VBA: copie todos os anexos de vários e-mails para um novo

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. pressione F5 chave ou o Execute botão para executar este VBA.

Agora você verá que todos os anexos foram copiados dos e-mails selecionados e colados em um novo e-mail.


Copie todos os anexos de um e-mail para o e-mail de resposta

Se você tiver o Kutools para Outlook instalado, você pode aplicar seu Responder com anexo recurso para copiar facilmente todos os anexos de um e-mail para o e-mail de resposta no Outlook. Faça o seguinte:

Kutools for Outlook: Ultimate Outlook toolkit com mais de 100 ferramentas úteis. Experimente GRATUITAMENTE por 30 dias, sem limitações, sem preocupações!   Leia mais...   Comece a avaliação grátis agora!

Selecione o e-mail que você irá responder e clique em Kutools > Responder com anexo > Responder com anexo. Veja a imagem:

Agora você verá que todos os anexos são copiados para o e-mail de resposta automaticamente.


Artigos Relacionados


Melhores ferramentas de produtividade de escritório

Notícias de última hora: lançamento do Kutools para Outlook Free Version!

Desbloqueie mais de 100 recursos poderosos com uma avaliação gratuita de 30 dias; Mais de 70 permanecem gratuitos para sempre após o teste. Clique para ver todos os recursos gratuitos!

🤖 Kutools IA : 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: Resposta automática (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: Recuperar 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   /  Lembrá-lo quando e-mails importantes chegarem  /  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 ...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique—permanentemente gratuito. Não espere, baixe agora e aumente sua eficiência!

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations