Pokud jsme před odpovědí převedli e-mail HTML na RTF, budou se po klepnutí na Domů> Odpovědět v Outlooku zkopírovat jména všech příloh do zprávy s odpověďmi.

1. Poklepáním otevřete e-mail, jehož jména příloh musíte zkopírovat, a poté klikněte na Zpráva > Akce > Upravit zprávu v okně zprávy. Viz screenshot:

2. Pokračujte kliknutím Formát textu > Bohatý texta poté e-mail uložte a zavřete.

3. Nyní se vrátíte do hlavního zobrazení. Pokračujte ve výběru e-mailu a klikněte Domů > odpověď.

4. Nyní jsou názvy všech příloh zkopírovány z původního e-mailu a vloženy do odpovědi, jak je uvedeno níže. Napište prosím odpověď a odešlete ji.

Tato metoda zavede makro VBA ke kopírování názvů všech příloh při odpovědi na e-mail a poté vloží názvy do těla zprávy odpovědi na e-mail v aplikaci Outlook.

1. lis Další + F11 současně otevřete okno Microsoft Visual Basic pro aplikace.

2. V levém Průzkumníkovi projektu rozbalte Projekt 1, dvojitým kliknutím otevřete ThisOutlookSession okno (viz snímek obrazovky níže) a do okna vložte níže uvedený kód.

VBA: Při odpovídání na e-maily v aplikaci Outlook zkopírujte název všech příloh

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, klikněte Tools > Reference.

4. V úvodním okně Reference - Projekt 1 pro Outlook 2016 zkontrolujte Knihovna objektů Microsoft Word 16.0 v poli Dostupné reference a klepněte na OK knoflík. Viz screenshot:

Poznámka: Vyberte prosím Knihovna objektů Microsoft Word 15.0 reference, pokud pracujete s Outlookem 2013, nebo Knihovna objektů Microsoft Word 14.0 odkaz na Outlook 2010.

5. Uložte soubor VBA a zavřete okno Microsoft Visual Basic for Applications.

6. Nyní se vrátíte do hlavního rozhraní aplikace Outlook. Vyberte e-mail, na který budete odpovídat, a klikněte Domů > odpověď or Odpovědět všem.
Poznámka: Pokud nejsou názvy příloh zkopírovány a vloženy do e-mailu s odpovědí, restartujte prosím aplikaci Outlook a odpovězte znovu.

A teď jsou všechny přílohy zkopírovány z vybraného e-mailu a vloženy do odpovídajícího e-mailu. Viz snímek obrazovky:

Pokud máte Kutools pro aplikaci Outlook nainstalován, můžete použít jeho Kopírovat jména funkce pro rychlé zkopírování všech názvů příloh z přijatého e-mailu a následné snadné vložení odpovědi do aplikace Outlook.

1. Vyberte e-mail, na který budete odpovídat, a klikněte Kutools > Nástroje pro připojení > Kopírovat jména.

Poté se zobrazí dialogové okno s oznámením, že názvy příloh jsou zkopírovány do schránky. Klepněte na OK zavřít.

2. Pokračujte kliknutím Domů > odpověď odpovědět na vybraný e-mail.

3. V okně odpovědi na zprávu vložte kurzor do těla zprávy a stiskněte Ctrl + V klávesy pro snadné vložení názvů příloh.

Snadno odpovídejte na vybrané e-maily se všemi původními přílohami uloženými v aplikaci Outlook

Obecně se původní přílohy při odpovídání na e-maily v Outlooku odstraní. Ale s fantastickým Odpovězte s přílohou Díky funkci Kutools pro Outlook si můžete snadno ponechat všechny přílohy e-mailů, když na ně v aplikaci Outlook odpovíte.