Kako kopirati imena vseh prilog pri odgovoru v Outlooku?

Če smo e-poštno sporočilo HTML pred odgovorom pretvorili v RTF, bodo imena vseh prilog kopirana v odgovorno sporočilo, potem ko kliknete Domov> Odgovori v Outlooku.

1. Dvokliknite, da odprete e-poštno sporočilo, katerega imena prilog morate kopirati, in nato kliknite Sporočilo > Proces > Uredi sporočilo v oknu za sporočila. Oglejte si posnetek zaslona:

2. Pojdi naprej Oblika besedila > Rich Textin nato shranite in zaprite e-poštno sporočilo.

3. Zdaj se vrnete v glavni pogled. Nadaljujte z izbiro e-pošte in kliknite Domov > Odgovori.

4. Zdaj se imena vseh prilog kopirajo iz prvotnega e-poštnega sporočila in prilepijo v odgovorno sporočilo, kot je prikazano spodaj. Prosimo, sestavite odgovor in ga pošljite.

Preprosto odgovorite na izbrana e-poštna sporočila z vsemi izvirnimi prilogami, shranjenimi v Outlooku

Izvirne priloge se na splošno odstranijo, ko v Outlooku odgovorite na e-poštno sporočilo. Ampak, s fantastičnim Odgovorite s prilogo Funkcija Kutools za Outlook lahko enostavno obdržite vse priloge e-poštnih sporočil, ko nanje odgovorite v Outlooku.

Če imate Kutools za Outlook nameščen, lahko uporabite njegovo Kopiraj imena funkcija za hitro kopiranje vseh imen prilog iz prejetega e-poštnega sporočila in nato v Outlook enostavno prilepite njegovo odgovorno sporočilo.

1. Izberite e-pošto, na katero boste odgovorili, in kliknite Kutools Plus > Orodja za pritrditev > Kopiraj imena.

Nato se odpre pogovorno okno in sporoči, da so imena prilog kopirana v odložišče. Kliknite OK da ga zaprete.

2. Pojdi naprej Domov > Odgovori , da odgovorite na izbrano e-pošto.

3. V okno za odgovor na sporočilo postavite kazalko v telo sporočila in pritisnite Ctrl + V tipke za enostavno lepljenje imen prilog.

Ta metoda bo uvedla makro VBA za kopiranje imen vseh prilog pri odgovoru na e-poštno sporočilo in nato imena prilepila v telo sporočila z odgovarjajočim e-poštnim sporočilom v Outlooku.

1. Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications.

2. V levem Project Explorerju razširite Project 1, dvokliknite, da odprete Ta OutlookSession okno (glejte posnetek zaslona spodaj) in nato v okno prilepite spodnjo kodo.

VBA: Kopirate ime vseh prilog, ko odgovarjate na e-pošto v Outlooku

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. Kliknite Orodja > Reference.

4. V uvodnem oknu Reference - Project 1 za Outlook 2016 preverite Knjižnica predmetov Microsoft Word 16.0 v polju Razpoložljive reference in kliknite na OK . Oglejte si posnetek zaslona:

Opombe: Prosimo, izberite Knjižnica predmetov Microsoft Word 15.0 sklic, če delate z Outlookom 2013 ali Knjižnica predmetov Microsoft Word 14.0 sklic na Outlook 2010.

5. Shranite VBA in zaprite okno Microsoft Visual Basic for Applications.

6. Zdaj se vrnete v glavni vmesnik Outlooka. Izberite e-pošto, na katero boste odgovorili, in kliknite Domov > Odgovori or Odgovori vsem.
Opomba: Če imen prilog ne kopirate in prilepite v odgovorno e-poštno sporočilo, znova zaženite Outlook in znova odgovorite.

Zdaj se ime vseh prilog kopira iz izbranega e-poštnega sporočila in prilepi v odgovorno e-poštno sporočilo. Oglejte si posnetek zaslona: