Ha a HTML e-mailt konvertáltuk RTF-be válasza előtt, akkor az összes melléklet neve átmásolódik a válaszüzenetbe, miután az Outlookban a Kezdőlap> Válasz gombra kattintott.

1. Kattintson duplán az e-mail megnyitásához, amelynek mellékletek nevét át kell másolnia, majd kattintson a gombra Üzenet > Hozzászólások > Edit Message az üzenetablakban. Lásd a képernyőképet:

2. Kattintson előre Szöveg formázása > Gazdag szöveg, majd mentse és zárja be az e-mailt.

3. Most visszatér a fő nézethez. Válassza tovább az e-mailt, majd kattintson a gombra Kezdőlap > Válasz.

4. Most az összes melléklet nevét átmásolja az eredeti e-mailből, és beilleszti a válaszüzenetbe, az alábbi képernyőképen. Kérjük, állítsa össze és küldje el a válaszüzenetet.

Ez a módszer bevezet egy VBA makrót az összes melléklet nevének másolásához, amikor válaszol egy e-mailre, majd beilleszti a neveket az Outlook e-mail üzenettörzsébe.

1. nyomja meg más + F11 gombokat egyidejűleg a Microsoft Visual Basic for Applications ablak megnyitásához.

2. A bal oldali Project Explorerben bontsa ki a Project 1 elemet, kattintson duplán a fájl megnyitásához ThisOutlookSession ablakot (lásd az alábbi képernyőképet), majd illessze be az alábbi kódot az ablakba.

VBA: Másolja az összes melléklet nevét, amikor válaszol egy e-mailre az Outlook programban

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. Kattints Eszközök > Referenciák.

4. Az Outlook 1 nyitó Referenciák - 2016. projekt ablakban ellenőrizze a Microsoft Word 16.0 objektumtár hivatkozást az Elérhető hivatkozások mezőben, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Megjegyzések: Kérjük, válassza ki a Microsoft Word 15.0 objektumtár hivatkozás, ha az Outlook 2013 programmal dolgozik, vagy Microsoft Word 14.0 objektumtár hivatkozás az Outlook 2010-re.

5. Mentse a VBA-t, és zárja be a Microsoft Visual Basic for Applications ablakot.

6. Most visszatér az Outlook fő felületére. Válassza ki azt az e-mailt, amelyre válaszolni fog, majd kattintson a gombra Kezdőlap > Válasz or Válasz mindenkinek.
Megjegyzések: Ha a mellékletneveket nem másolja és illeszti be a válaszoló e-mailbe, indítsa újra az Outlook programot, és válaszoljon újra.

Mostantól az összes melléklet neve átmásolódik a kiválasztott e-mailből és beillesztésre kerül a válaszoló e-mailbe. Lásd a képernyőképet:

Ha van Kutools for Outlook telepítve van, alkalmazhatja azt Nevek másolása funkcióval gyorsan átmásolhatja az összes mellékletnevet egy kapott e-mailből, majd könnyedén beillesztheti a válaszüzenetbe az Outlook programban.

Kutools for Outlook: Adjon hozzá több mint 100 praktikus eszközt az Outlook programhoz, 60 nap alatt szabadon kipróbálható korlátozás nélkül. Klikk ide      Ingyenes próba most

1. Válassza ki azt az e-mailt, amelyre válaszolni fog, majd kattintson a gombra Kutools > Melléklet eszközök > Nevek másolása.

Ezután megjelenik egy párbeszédpanel, amely megmondja, hogy a mellékletek nevei átmásolódnak-e a vágólapra. Kattintson a gombra OK bezárni.

2. Kattintson előre Kezdőlap > Válasz válaszolni a kiválasztott e-mailre.

3. A válaszoló üzenet ablakban tegye a kurzort az üzenet törzsébe, majd nyomja meg az gombot Ctrl + V gombokat a mellékletek nevének egyszerű beillesztéséhez.

Könnyen válaszolhat a kiválasztott e-mailekre az Outlook összes eredeti mellékletével együtt

Általánosságban elmondható, hogy az eredeti mellékletek eltávolításra kerülnek, ha egy e-mailre válaszolunk az Outlook programban. De fantasztikusan Válaszoljon a Csatolással a Kutools for Outlook szolgáltatása, könnyedén megtarthatja az e-mailek összes mellékletét, amikor az Outlookban válaszol rá. Kattintson 60 napos ingyenes próbaidőszakra korlátozás nélkül!

Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

• Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
• BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
• Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
• Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
• Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.