Como responder a todos incluindo os anexos originais no Outlook?

Já alguma vez carregou em «Responder a Todos» no Outlook e perdeu os anexos originais? É frustrante! Está a perguntar-se como manter esses anexos ao responder a todos? Sim, é possível! Vamos mostrar-lhe como incluir os anexos originais nas suas respostas, tornando a gestão de e-mails simples e eficiente. Fique atento!

Responder a Todos com Anexos Originais com código VBA

Responder a Todos com Anexos Originais com Kutools para Outlook

---

Responder a Todos com Anexos Originais com código VBA

O Outlook não inclui uma funcionalidade direta para realizar esta tarefa, mas pode concretizá-la facilmente aplicando o seguinte código VBA. Basta seguir os passos abaixo:

1. Inicie o Outlook e, em seguida, prima as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o seguinte código no módulo em branco.

Código VBA: Responder a todos com 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 surge, assinale a opção Microsoft Scripting Runtime na lista Referências Disponíveis, conforme ilustrado na captura de ecrã:

4. Depois, feche a janela do código e adicione o botão da macro à Barra de Acesso Rápido.

5. Abra a mensagem de correio eletrónico à qual pretende responder a todos com anexos na janela Mensagem, depois selecione Mais Comandos no menu pendente Personalizar Barra de Acesso Rápido, conforme ilustrado na captura de ecrã:

6. Na caixa de diálogo Opções do Outlook, realize as seguintes operações:

(1.) Selecione Macrosna lista pendente Escolher comandos de;

(2.) Clique no nome da macro que acabou de inserir;

(3.) Em seguida, clique no botão Adicionar para adicionar a macro à secção Personalizar Barra de Acesso Rápido.

7. Clique depois em OK para fechar a caixa de diálogo. Agora, o botão da macro foi inserido na Barra de Acesso Rápido, conforme ilustrado na captura de ecrã:

8. Agora, clique no botão da macro e será aberta a janela de resposta com os anexos originais. Redija a sua mensagem e clique no botão Enviar, conforme ilustrado na captura de ecrã:

---

Responder a Todos com Anexos Originais com Kutools para Outlook

Se tiver o Kutools para Outlook, com a sua funcionalidade Responder a Todos com Anexos, poderá responder a todos com anexos com apenas um clique.

Após instalar o Kutools para Outlook, proceda da seguinte forma:

1. Selecione a mensagem à qual pretende responder a todos com anexos e, em seguida, clique em Kutools > Responder a Todos com Anexo Original, conforme ilustrado na captura de ecrã:

2. Será aberta a janela de resposta com os anexos originais. Redija a sua mensagem e envie-a, conforme ilustrado na captura de ecrã:

Clique para descarregar aversão gratuita do Kutools para Outlook agora!