Come rispondere a tutti includendo gli allegati originali in Outlook?

Hai mai cliccato su «Rispondi a tutti» in Outlook e perso gli allegati originali? È davvero frustrante! Ti sei mai chiesto come conservarli quando rispondi a tutti? Sì, è possibile! Scopri con noi come includere automaticamente gli allegati originali nelle tue risposte, per una gestione delle email fluida ed efficiente. Continua a leggere!

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

Outlook non include una funzionalità diretta per eseguire questa operazione, ma puoi ottenerla facilmente applicando il seguente codice VBA. Segui i passaggi indicati di seguito:

1. Avvia Outlook, quindi premi contemporaneamente i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1 (VbaProject.OTM) per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: Rispondi a tutti con allegati 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. Successivamente, fai clic su Strumenti > Riferimenti nella finestra di Microsoft Visual Basic for Applications; nella finestra di dialogo Riferimenti - Project1 visualizzata, seleziona l'opzione Microsoft Scripting Runtime dall'elenco Riferimenti disponibili. Vedi screenshot:

4. Quindi salva e chiudi la finestra del codice: potrai così aggiungere il pulsante della macro alla Barra di accesso rapido.

5. Apri nella finestra Messaggio l'email a cui desideri rispondere a tutti con allegato, quindi scegli Altri comandi dal menu a discesa Personalizza barra di accesso rapido, vedi screenshot:

6. Nella finestra di dialogo Opzioni di Outlook, esegui le seguenti operazioni:

(1.) Seleziona Macrodal menu a discesa Scegli comandi da;

(2.) Fai clic sul nome della macro appena inserita;

(3.) Quindi fai clic sul pulsante Aggiungi per aggiungere la macro alla Personalizza barra di accesso rapido.

7. Clicca quindi su OK per chiudere la finestra di dialogo; ora il pulsante della macro è stato aggiunto alla Barra di accesso rapido, vedi screenshot:

8. Ora fai clic sul pulsante macro: si aprirà la finestra del messaggio di risposta con gli allegati originali. Compila il messaggio e fai clic sul pulsante Invia. Vedi screenshot:

---

Rispondi a Tutti con Allegati Originali con Kutools per Outlook

Se possiedi Kutools per Outlook, grazie alla sua funzionalità Rispondi a tutti con allegati, puoi rispondere a tutti con allegati con un solo clic.

Dopo aver installato Kutools per Outlook, procedi come segue:

1. Seleziona il messaggio a cui desideri rispondere a tutti con allegati, quindi fai clic su Kutools > Rispondi a tutti con allegato originale. Vedi screenshot:

2. Si aprirà la finestra del messaggio di risposta con gli allegati originali: compila il tuo messaggio e invialo. Vedi screenshot:

Clicca per scaricare subito laversione gratuita di Kutools per Outlook !