Como responder a todos com anexos originais no Outlook?
Normalmente, quando você aplica a função Responder a Todos para responder a mensagem a todos os destinatários no Outlook, os anexos originais serão perdidos automaticamente. É possível anexar anexos originais ao responder a todos no Outlook?
Responder a todos com anexos originais com código VBA
Responda a todos com anexos originais com o Kutools para Outlook
Responder a todos com anexos originais com 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 consegui-lo. Siga as etapas abaixo:
1. Inicie o Outlook e mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook do Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.
Código VBA: Responder a todos com ahhachments 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. E, em seguida, clique em Ferramentas > Referências no Microsoft Visual Basic para Aplicações janela, no estalou para fora Referências-Projeto1 caixa de diálogo, verifique Tempo de execução de scripts da Microsoft opção do Referências Disponíveis caixa de lista, veja a captura de tela:
4. Em seguida, salve e feche a janela de código e, em seguida, você pode adicionar o botão de macro no Barra de Ferramentas de Acesso Rápido.
5. Abra o e-mail que deseja responder a todos com anexo em Mensagem janela, então escolha Mais comandos do Personalize a barra de ferramentas de acesso rápido drop down, veja a captura de tela:
6. No Opções do Outlook caixa de diálogo, faça as seguintes operações:
(1.) Selecione Macros do Escolha comandos de lista suspensa;
(2.) Clique no nome da macro que você inseriu agora;
(3.) Em seguida, clique em Adicionar botão para adicionar a macro ao Personalize a barra de ferramentas de acesso rápido.
7. Então clique OK para fechar a caixa de diálogo, agora, o botão de macro foi inserido no Barra de Ferramentas de Acesso Rápido, veja a captura de tela:
8. Agora, clique no botão de macro para abrir a janela da mensagem de resposta com os anexos originais, escreva a mensagem de resposta e clique em ENVIAR botão, veja a captura de tela:
Responda a todos com anexos originais com o Kutools para Outlook
Se você tem Kutools for Outlook, Com o seu Responder a todos com anexo recurso, você pode responder a todos com anexos apenas um clique.
Kutools for Outlook : com mais de 100 suplementos úteis do Outlook, grátis para testar sem limitação em 60 dias. |
Depois de instalar Kutools for Outlook, por favor, faça o seguinte:
1. Selecione a mensagem que deseja responder a todos com anexos e clique em Kutools > Responder com anexo > Responder a todos com anexo, veja a captura de tela:
2. E a janela da mensagem de resposta é aberta com os anexos originais, então escreva sua mensagem e envie-a, veja a captura de tela:
Clique para baixar o Kutools para Outlook e testar gratuitamente agora!
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.