Quando inoltriamo un messaggio di posta elettronica in Microsoft Outlook, gli allegati originali in questo messaggio di posta elettronica rimangono nel messaggio inoltrato. Tuttavia, quando rispondiamo a un messaggio di posta elettronica, gli allegati originali non verranno allegati nel nuovo messaggio di risposta. Qui introdurremo un paio di trucchi per mantenere gli allegati originali quando si risponde in Microsoft Outlook.
Rispondi con allegati copiando e incollando manualmente
Rispondi automaticamente con allegati da VBA
Un clic per rispondere con allegati con Kutools per Outlook
Possiamo copiare manualmente gli allegati originali in un messaggio di posta elettronica e incollarli nella finestra Messaggio di risposta quando rispondiamo al messaggio di posta elettronica in un secondo momento.
Passaggio 1: fare clic sul messaggio di posta elettronica per visualizzarlo in anteprima nel riquadro di lettura.
Passaggio 2: fare clic con il pulsante destro del mouse su un allegato nel messaggio di posta elettronica in anteprima e selezionare il file Seleziona tutto dal menu di scelta rapida.
Passaggio 3: fare clic con il pulsante destro del mouse sugli allegati selezionati e selezionare il file Copia dal menu di scelta rapida.
Passaggio 4: rispondere al messaggio di posta elettronica facendo clic su Rispondi pulsante sulla Casa scheda (o sulla barra degli strumenti in Outlook 2007).
Passaggio 5: nella finestra del messaggio di risposta, fare clic su Incolla pulsante sulla Messaggio scheda per incollare questi allegati.
Se utilizzi Outlook 2013 o la versione successiva, fai clic su Saltare fuori nell'angolo in alto a sinistra del riquadro di lettura per rilasciare la finestra del messaggio di risposta. Clicca per saperne di più ...
Passaggio 6: comporre il messaggio di risposta e fare clic su Invia pulsante.
Rispondi facilmente alle e-mail con allegati originali in Outlook:
Kutools per Outlook's Rispondi con allegato può aiutarti a rispondere facilmente a un'e-mail ricevuta con i suoi allegati originali in Outlook. Guarda la demo qui sotto:
Scaricalo e provalo subito! (60 giorni di percorso gratuito)
C'è una macro VBA che può aiutarti a rispondere automaticamente con gli allegati originali.
Nota: prima di eseguire qualsiasi macro VBA, è necessario abilitare le macro in Microsoft Outlook.
Passaggio 1: seleziona il messaggio di posta elettronica a cui risponderai con i suoi allegati.
Passo 2: premere il tasto altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.
Passaggio 3: espandere Project1 e gli oggetti di Microsoft Outlook nella barra di sinistra e fare doppio clic su Questa sessione di Outlook per aprirlo.
Passaggio 4: incolla il codice seguente nella finestra ThisOutlookSession.
Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
Dim xReplyItem As Outlook.MailItem
Dim xItem As Object
On Error Resume Next
Set xItem = GetCurrentItem()
If xItem Is Nothing Then Exit Sub
Set xReplyItem = xItem.Reply
CopyAttachments xItem, xReplyItem
xReplyItem.Display
Set xReplyItem = Nothing
Set xItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
Dim xReplyAllItem As Outlook.MailItem
Dim xItem As Object
Set xItem = GetCurrentItem()
If xItem Is Nothing Then Exit Sub
Set xReplyAllItem = xItem.ReplyAll
CopyAttachments xItem, xReplyAllItem
xReplyAllItem.Display
Set xReplyAllItem = Nothing
Set xItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.currentItem
End Select
End Function
Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
Dim xFilePath As String
Dim xAttachment As Attachment
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFolder As Scripting.Folder
Dim xFldPath As String
Set xFSO = New Scripting.FileSystemObject
Set xTmpFolder = xFSO.GetSpecialFolder(2)
xFldPath = xTmpFolder.Path & "\"
For Each xAttachment In SourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xFilePath = xFldPath & xAttachment.Filename
xAttachment.SaveAsFile xFilePath
TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
xFSO.DeleteFile xFilePath
End If
Next
Set xFSO = Nothing
Set xTmpFolder = 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 FunctionPasso 5: premere il tasto F5 chiave per eseguire questa macro. In apertura Macro finestra di dialogo, fare clic EseguiRispondiTuttiConAllegati se vuoi rispondere a tutti con allegati. Altrimenti, seleziona EseguiRispondiConAllegati, quindi fare clic sul Correre pulsante.
Quindi apre la finestra del messaggio di risposta con allegando tutti gli allegati originali.
Passaggio 6: componi il messaggio di risposta e fai clic su Invia pulsante.
I Rispondi con Allega utilità di Kutools per Outlook può aiutarti a rispondere alle e-mail con allegati originali con un solo clic.
Kutools per Outlook : con oltre 100 utili componenti aggiuntivi di Outlook, libero di provare senza limitazioni in 60 giorni.
1. Selezionare l'e-mail contenente gli allegati con cui è necessario rispondere.
2. Quindi fare clic Kutools > Rispondi con allegato > Rispondi con allegato. Vedi screenshot:
Quindi tutti gli allegati delle e-mail selezionate sono elencati nel file In allegato campo del messaggio di risposta. Componi la tua email e inviala.
Se vuoi avere una prova gratuita di questa utility, vai su scarica gratuitamente il software prima, quindi vai ad applicare l'operazione secondo i passaggi precedenti.
Se desideri avere una prova gratuita (60 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
