Como responder a todos com os anexos originais no Outlook?
Já clicou em "Responder a Todos" no Outlook e perdeu os anexos originais? É frustrante! Está se perguntando como manter esses anexos ao responder a todos? Sim, é possível! Vamos explorar como incluir os anexos originais nas suas respostas, tornando a gestão de e-mails mais fluida e eficiente. Fique atento!
Responder a todos com os anexos originais usando código VBA
Responder a todos com os anexos originais com o Kutools para Outlook
Responder a todos com os anexos originais usando código VBA
Não há um recurso direto para lidar com essa tarefa no Outlook, mas você pode aplicar o seguinte código VBA para alcançá-la. Por favor, siga as etapas abaixo:
1. Inicie o Outlook e, em seguida, mantenha pressionadas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o seguinte código no módulo em branco.
Código VBA: Responder a todos com os anexos originais:
Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function

3. Em seguida, clique em Ferramentas > Referências na janela do Microsoft Visual Basic for Applications, na caixa de diálogo Referências-Project1 que apareceu, marque a opção Microsoft Scripting Runtime na lista de referências disponíveis, veja a captura de tela:

4. Depois salve e feche a janela de código, e então você pode adicionar o botão de macro na Barra de Acesso Rápido.
5. Abra o e-mail que deseja responder a todos com anexo na janela de Mensagem, depois escolha Mais Comandos no menu suspenso Personalizar Barra de Acesso Rápido, veja a captura de tela:

6. Na caixa de diálogo Opções do Outlook, faça as seguintes operações:
(1.) Selecione Macros na lista suspensa Escolher comandos de;
(2.) Clique no nome da macro que você inseriu agora mesmo;
(3.) E depois clique no botão Adicionar para adicionar a macro à Barra de Acesso Rápido Personalizada.

7. Depois clique em OK para fechar a caixa de diálogo, agora, o botão de macro foi inserido na Barra de Acesso Rápido, veja a captura de tela:

8. Agora, clique no botão de macro, e a janela de mensagem de resposta com os anexos originais será aberta, depois redija a mensagem de resposta e clique no botão Enviar, veja a captura de tela:

Responder a todos com os anexos originais com o Kutools para Outlook
Se você tem o Kutools para Outlook, com seu recurso Responder a Todos com Anexo, você pode responder a todos com anexos em apenas um clique.
Desbloqueie a máxima eficiência de e-mail com o Kutools para Outlook! Acesse 70 recursos poderosos totalmente grátis, para sempre. Faça o download da Versão Gratuita Agora!
Após instalar o Kutools para Outlook, por favor, faça o seguinte:
1. Selecione a mensagem que deseja responder a todos com anexos, e depois clique em Kutools > Responder a Todos com Anexo Original, veja a captura de tela:

2. E a janela de mensagem de resposta será aberta com os anexos originais, depois redija sua mensagem e envie-a, veja a captura de tela:

Clique para baixar a Versão Gratuita do Kutools para Outlook agora!
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

