Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

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 Acasă > 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 ThisOutlookSession 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 unelte > 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 Acasă > 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: Adăugați mai mult de 100 de instrumente la îndemână pentru Outlook, gratuit pentru a încerca fără limitări în 60 de zile. Citește mai multe      Încercare 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 Acasă > 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. Faceți clic pentru o perioadă de încercare gratuită de 60 de zile, fără limitare!
răspundeți cu atașamente


Legate de articole:


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.