Salt la conținutul principal

Cum să copiați numele tuturor atașamentelor atunci când răspundeți în Outlook?

Când răspundeți la un e-mail RTF (formatat ca format bogat) în Outlook, acesta va copia automat toate numele atașamentelor și le va lipi automat în corpul mesajului (a se vedea captura de ecran de mai jos). Cu toate acestea, atunci când răspundeți la un e-mail HTML în Outlook, atașamentele lipsesc în răspunsul la e-mail. Aici, acest articol va introduce câteva metode pentru a copia numele tuturor atașamentelor atunci când răspundeți la e-mailuri sau direct în e-mailurile primite.


Copiați numele tuturor atașamentelor atunci când răspundeți schimbând HTML în RTF

Dacă am convertit e-mailul HTML în RTF înainte de a răspunde, numele tuturor atașamentelor vor fi copiate în mesajul de răspuns după ce faceți clic pe Acasă> Răspundeți în Outlook.

1. Faceți dublu clic pentru a deschide adresa de e-mail ale cărei nume de atașamente trebuie copiate, apoi faceți clic pe Mesaj > Acţiuni > Editați mesajul în fereastra mesajului. Vedeți captura de ecran:

2. Continuați să faceți clic Formatați textul > Text îmbogățit, apoi salvați și închideți e-mailul.

3. Acum reveniți la vizualizarea principală. Continuați să selectați adresa de e-mail și faceți clic Inițial > răspuns.

4. Acum, numele tuturor atașamentelor sunt copiate din e-mailul original și lipite în mesajul de răspuns așa cum este prezentat mai jos. Vă rugăm să compuneți mesajul de răspuns și să-l trimiteți.

Copiați numele tuturor atașamentelor atunci când răspundeți cu VBA

Această metodă va introduce o macrocomandă VBA pentru a copia numele tuturor atașamentelor atunci când răspundeți la un e-mail și apoi lipiți numele în corpul mesajului de răspuns al e-mailului în Outlook.

1. presa Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. În stânga Project Explorer, extindeți Project 1, faceți dublu clic pentru a deschide Această sesiune Outlook fereastra (vezi captura de ecran de mai jos), apoi lipiți codul de mai jos în fereastră.

VBA: Copiați numele tuturor atașamentelor atunci când răspundeți la un e-mail în 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 Instrumente > Referinte.

4. În fereastra de referințe de deschidere - Proiectul 1 pentru Outlook 2016, vă rugăm să verificați Biblioteca de obiecte Microsoft Word 16.0 referință în caseta Referințe disponibile și faceți clic pe OK buton. Vedeți captura de ecran:

notițe: Vă rugăm să selectați Biblioteca de obiecte Microsoft Word 15.0 referință dacă lucrați cu Outlook 2013 sau Biblioteca de obiecte Microsoft Word 14.0 referință cu Outlook 2010.

5. Salvați VBA și închideți fereastra Microsoft Visual Basic pentru aplicații.

6. Acum reveniți la interfața principală a Outlook. Selectați adresa de e-mail la care veți răspunde și faceți clic Inițial > răspuns or Răspunde la toate.
notițe: Dacă numele atașamentelor nu sunt copiate și lipite în e-mailul de răspuns, reporniți Outlook și răspundeți din nou.

Și acum numele tuturor atașamentelor este copiat din e-mailul selectat și lipit în e-mailul de răspuns. Vedeți captura de ecran:


Copiați toate numele atașamentelor atunci când răspundeți cu un instrument uimitor

Dacă aveţi Kutools pentru Outlook instalat, îi puteți aplica Copiați numele caracteristică pentru a copia rapid toate numele atașamentelor dintr-un e-mail primit și apoi lipiți cu ușurință în mesajul său de răspuns în Outlook.

Kutools pentru Outlook: Setul de instrumente Outlook definitiv cu peste 100 de instrumente la îndemână. Încercați-l GRATUIT timp de 60 de zile, fără limitări, fără griji!   Citeşte mai mult ...   Începeți încercarea gratuită acum!

1. Selectați adresa de e-mail la care veți răspunde și faceți clic Kutools > Instrumente de atașare > Copiați numele.

Apoi apare un dialog și vă spune că numele atașamentelor sunt copiate în clipboard. Clic OK să o închidă.

2. Continuați să faceți clic Inițial > răspuns pentru a răspunde la e-mailul selectat.

3. În fereastra mesajului de răspuns, puneți cursorul în corpul mesajului și apăsați Ctrl + V tastele pentru a lipi cu ușurință numele atașamentelor.

Răspundeți cu ușurință la e-mailurile selectate cu toate atașamentele originale păstrate în Outlook

În general, atașamentele originale sunt eliminate atunci când răspundeți la un e-mail în Outlook. Dar, cu fantastic Răspundeți cu atașament caracteristică a Kutools pentru Outlook, puteți păstra cu ușurință toate atașamentele de e-mailuri atunci când răspundeți în Outlook.


răspundeți cu atașamente


Legate de articole:


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

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