Přejít k hlavnímu obsahu

Jak kopírovat názvy všech příloh, když odpovídáte v aplikaci Outlook?

Při odpovídání na e-mail ve formátu RTF (formátovaný jako Rich Format) v Outlooku zkopíruje názvy všech příloh a automaticky se vloží do těla zprávy (viz snímek obrazovky níže). Při odpovědi na e-mail ve formátu HTML v aplikaci Outlook však v odpovědi na e-mail chybí přílohy. Zde tento článek představí některé metody kopírování názvu všech příloh při odpovídání na e-maily nebo přímo do přijatých e-mailů.


Při odpovědi se změnou HTML na RTF zkopírujte názvy všech příloh

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.

Při odpovědi pomocí VBA zkopírujte názvy všech příloh

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:


Zkopírujte všechny názvy příloh, když odpovídáte úžasným nástrojem

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: Ultimate Outlook Toolkit s více než 100 praktickými nástroji. Vyzkoušejte to ZDARMA na 60 dní, bez omezení, bez starostí!   Čtěte více...   Začněte bezplatnou zkušební verzi hned teď!

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.


odpovězte s přílohami


Související články:


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations