Come rispondere a tutti con allegati originali in Outlook?

Normalmente, quando si applica la funzione Rispondi a tutti per rispondere al messaggio a tutti i destinatari in Outlook, gli allegati originali verranno persi automaticamente. È possibile allegare allegati originali quando si risponde a tutti in Outlook?

Rispondi a tutti con allegati originali con codice VBA

Rispondi a tutti con allegati originali con Kutools per Outlook

Rispondi a tutti con allegati originali con codice VBA

Non esiste una funzionalità diretta per gestire questa attività in Outlook, ma è possibile applicare il seguente codice VBA per ottenerla. Si prega di fare con i passaggi seguenti:

1. Avvia Outlook, quindi tieni premuto il pulsante ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: rispondi a tutti con ahhachments originali:

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. And then click Tools > References in the Microsoft Visual Basic for Applications window, in the popped out References-Project1 dialog box, check Microsoft Scripting Runtime option from the Available References list box, see screenshot:

4. Then save and close the code window, and then you can add the macro button into the Quick Access Toolbar.

5. Open the email that you want to reply all with attachment in Message window, then choose More Commands from the Customize Quick Access Toolbar drop down, see screenshot:

6. In the Outlook Options dialog box, do the following operations:

(1.) Select Macros from the Choose commands from drop down list;

(2.) Click the macro name that you have inserted just now;

(3.) And then click Add button to add the macro into the Customize Quick Access Toolbar.

7. Then click OK to close the dialog box, now, the macro button has been inserted into the Quick Access Toolbar, see screenshot:

8. Now, click the macro button, and the replying message window with original attachments is opened, then compose the replying message, and click Send button, see screenshot:

---

Reply all with original attachments with Kutools for Outlook

If you have Kutools for Outlook, with its Reply All with Attachment feature, you can reply all with attachments only one click.

Kutools for Outlook : with more than 100 handy Outlook add-ins, free to try with no limitation in 60 days.

Go to Download Free Trial 60 days Purchase PayPal / MyCommerce

After installing Kutools for Outlook, please do as this:

1. Select the message that you want to reply all with attachments, and then click Kutools > Reply with Attachment > Reply All with Attachment, see screenshot:

2. And the reply message window is opened with original attachments, then compose your message and send it, see screenshot:

Click to download Kutools for Outlook and free trial now!

---

Kutools for Outlook - Brings 100 Advanced Features to Outlook, and Make Work Much Easier!

• Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by custom; Auto Reply without exchange server, and more automatic features...
• BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
• Reply (All) With All Attachments in the mail conversation; Reply Many Emails in seconds; Auto Add Greeting when reply; Add Date into subject...
• Attachment Tools: Manage All Attachments in All Mails, Auto Detach, Compress All, Rename All, Save All... Quick Report, Count Selected Mails...
• Powerful Junk Emails by custom; Remove Duplicate Mails and Contacts... Enable you to do smarter, faster and better in Outlook.

Read More... Download Now...