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

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 ThisOutlookSession 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.
Opombe: Č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:

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

Kutools za Outlook: Dodajte več kot 100 priročnih orodij za Outlook, ki jih lahko brezplačno preizkusite v 60 dneh. Preberi več      Brezplačna preizkusna različica zdaj

1. Izberite e-pošto, na katero boste odgovorili, in kliknite Kutools > 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.

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. Kliknite za 60-dnevno brezplačno preskusno različico brez omejitev!

Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

• Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
• Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
• Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
• Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
• Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.