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 Domovská stránka > 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 Nástroje > 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 Domovská stránka > 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.

Kutools pro aplikaci Outlook: Přidejte do aplikace Outlook více než 100 užitečných nástrojů, které můžete zdarma vyzkoušet bez omezení do 60 dnů. Více      Zkušební verze zdarma nyní

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 Domovská stránka > 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. Kliknutím získáte 60denní bezplatnou zkušební verzi bez omezení!

Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

• Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
• Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
• Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
• Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
• Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.