Come mantenere gli allegati quando si risponde in Outlook?

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

Rispondi con allegati copiando e incollando manualmente

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 automaticamente con allegati da VBA 

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 Function

Passo 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.

Rispondi automaticamente con gli allegati con Kutools per Outlook

Le Rispondi con Allega utilità di Kutools for Outlook può aiutarti a rispondere alle e-mail con allegati originali con un solo clic.

Kutools for 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 Attached 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.

Un clic per rispondere con allegati con Kutools per Outlook

Articoli correlati:

• Come mantenere gli allegati quando si risponde in Outlook?
• Come salvare tutti gli allegati da più e-mail nella cartella in Outlook?
• Come rimuovere tutti gli allegati dalla posta elettronica in Outlook?

---

I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Scopri di più       Scarica gratis      Acquista