Vai al contenuto principale

Come copiare i nomi di tutti gli allegati quando si risponde in Outlook?

Quando si risponde a un'e-mail RTF (formattata come Rich Format) in Outlook, copierà i nomi di tutti gli allegati e incollerà automaticamente il corpo del messaggio (vedi screenshot sotto). Tuttavia, quando si risponde a un'e-mail HTML in Outlook, gli allegati mancano nella risposta all'e-mail. Qui, questo articolo introdurrà alcuni metodi per copiare il nome di tutti gli allegati quando si risponde alle e-mail o direttamente nelle e-mail ricevute.


Copia tutti i nomi degli allegati quando rispondi cambiando HTML in RTF

Se abbiamo convertito l'e-mail HTML in RTF prima di rispondere, i nomi di tutti gli allegati verranno copiati nel messaggio di risposta dopo aver fatto clic su Home> Rispondi in Outlook.

1. Fare doppio clic per aprire l'e-mail di cui è necessario copiare i nomi degli allegati, quindi fare clic su Messaggio > Azioni > Modifica messaggio nella finestra del messaggio. Vedi screenshot:

2. Vai avanti per fare clic Formato testo > Rich Text, quindi salva e chiudi l'email.

3. Ora torni alla vista principale. Continua a selezionare l'email e fai clic Casa > Rispondi.

4. Ora tutti i nomi degli allegati vengono copiati dall'e-mail originale e incollati nel messaggio di risposta come mostrato nell'immagine sottostante. Si prega di comporre il messaggio di risposta e inviarlo.

Copia tutti i nomi degli allegati quando rispondi con VBA

Questo metodo introdurrà una macro VBA per copiare i nomi di tutti gli allegati quando si risponde a un'e-mail, quindi incollare i nomi nel corpo del messaggio di risposta all'e-mail in Outlook.

1. stampa altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. In Project Explorer a sinistra, espandere il progetto 1, fare doppio clic per aprire il file Questa sessione di Outlook finestra (vedi screenshot sotto), quindi incolla il codice sottostante nella finestra.

VBA: copia il nome di tutti gli allegati quando rispondi a un'e-mail in Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Clic Strumenti > Riferimenti.

4. Nella finestra Riferimenti di apertura - Progetto 1 per Outlook 2016, controlla il file Libreria di oggetti di Microsoft Word 16.0 riferimento nella casella Riferimenti disponibili e fare clic su OK pulsante. Vedi screenshot:

Note:: Seleziona il file Libreria di oggetti di Microsoft Word 15.0 riferimento se stai lavorando con Outlook 2013 o Libreria di oggetti di Microsoft Word 14.0 riferimento con Outlook 2010.

5. Salvare il VBA e chiudere la finestra di Microsoft Visual Basic, Applications Edition.

6. Ora torni all'interfaccia principale di Outlook. Seleziona l'e-mail a cui risponderai e fai clic Casa > Rispondi or Rispondi a tutti.
Note:: Se i nomi degli allegati non vengono copiati e incollati nell'e-mail di risposta, riavvia Outlook e rispondi di nuovo.

E ora il nome di tutti gli allegati viene copiato dall'e-mail selezionata e incollato nell'e-mail di risposta. Vedi screenshot:


Copia tutti i nomi degli allegati quando rispondi con uno strumento straordinario

Se si dispone di Kutools for Outlook installato, puoi applicarlo Copia nomi funzione per copiare rapidamente tutti i nomi degli allegati da un'e-mail ricevuta e quindi incollare facilmente il messaggio di risposta in Outlook.

Kutools for Outlook: Toolkit definitivo di Outlook con oltre 100 strumenti utili. Provalo GRATIS per 60 giorni, senza limitazioni, senza preoccupazioni!   Leggi di più...   Inizia la prova gratuita ora!

1. Seleziona l'e-mail a cui risponderai e fai clic Kutools > Strumenti per gli allegati > Copia nomi.

Quindi viene visualizzata una finestra di dialogo che ti informa che i nomi degli allegati vengono copiati negli appunti. Clic OK per chiuderlo.

2. Vai avanti per fare clic Casa > Rispondi per rispondere all'email selezionata.

3. Nella finestra del messaggio di risposta, posizionare il cursore nel corpo del messaggio e premere Ctrl + V tasti per incollare facilmente i nomi degli allegati.

Rispondi facilmente alle e-mail selezionate con tutti gli allegati originali conservati in Outlook

In generale, gli allegati originali vengono rimossi quando si risponde a un'e-mail in Outlook. Ma con fantastico Rispondi con allegato funzionalità di Kutools per Outlook, puoi facilmente conservare tutti gli allegati delle e-mail quando rispondi in Outlook.


rispondi con allegati


Articoli correlati:


I migliori strumenti per la produttività in ufficio

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

???? 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 ProSalvataggio 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ù.

Leggi Ora       Scarica gratis      Acquista
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations