Ir para o conteúdo principal

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

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ê.

Office Tab - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil...
Kutools for Outlook - Traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta 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 de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2021 - 2010 ou Office 365. Recursos completos Avaliação gratuita de 60 dias.

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.
Anote os: 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ê tem Kutools for 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 60 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

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

📧 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 (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