6 způsobů uchování původních e-mailových příloh při odpovídání v aplikaci Outlook

Mnoho uživatelů doufá, že nakonfigurují svůj Outlook tak, aby při odpovídání na e-maily uchoval původní přílohy e-mailů. Tento článek odhalí 5 řešení a také inteligentní způsob, který pomocí VBA k jeho automatickému realizaci.

Slyšel jsem velké množství uživatelů, kteří si stěžují, že Outlook nemá nativní funkci, která by při odpovídání na e-maily zachovala původní přílohy. Proto vám zde sdílíme 6 metod, z nichž jedna je velmi užitečná, protože používá VBA k tomu, aby aplikace Outlook automaticky připojila původní přílohy k odpovědi na e-mail. Nyní si je přečtěte podrobně.

1. Odpověď s připojeným původním e-mailem

Ačkoli aplikace Outlook neposkytuje funkci pro uchování původních e-mailových příloh při odpovídání na e-maily, umožňuje uživatelům ponechat původní e-mailovou přílohu. Jedná se tedy o volitelné řešení pro vás. Chcete-li změnit nastavení odpovědí, přejděte do části „Soubor“> „Možnosti“> „Pošta“> „Odpovědi a přeposlat“. Více podrobností naleznete v mém předchozím článku - „5 kroků k odpovědi s původními přílohami v aplikaci Outlook“. Pokud však stále doufáte, že si ponecháte pouze původní přílohy, přejděte k dalším prostředkům.

2. Ručně přetáhněte přílohy

1. Začněte tím, že na takový zdrojový e-mail dvakrát kliknete, otevřete jej v samostatném okně.
2. Poté klikněte na tlačítko „Odpovědět“, které zobrazí e-mail s odpovědí.
3. Dále byste měli zmenšit obě dvě okna zpráv, dokud je neuvidíte na stejné obrazovce.
4. Poté vyberte všechny přílohy v původním e-mailu.
5. Nakonec je přetáhněte na řádek „Attached“ v odpovědi na e-mail.

3. Ručně zkopírujte a vložte přílohy

1. Za prvé, po otevření zdrojového e-mailu vyberte všechny přílohy.
2. Poté klikněte na tlačítko „Kopírovat“ na kartě „Přílohy“.
3. Poté kliknutím na tlačítko „Odpovědět“ na kartě „Zpráva“ otevřete odpověď.
4. Nakonec v odpovědi na e-mail klikněte do řádku „Připojeno“ a stiskněte „Ctrl + V“ pro vložení dříve zkopírovaných příloh.

4. Přeposlat e-mail a vyplnit příjemce

1. Nejprve vyberte takový e-mail a poté klikněte na tlačítko „Přeposlat“ na pásu karet.
2. V nově vyskakovacím okně zprávy jsou zachovány původní přílohy. Nyní musíte vyplnit pole „Komu“ odesílateli původního e-mailu.
3. Volitelně můžete předmět změnit podle svých potřeb.

5. Znovu odešlete tento e-mail a změňte příjemce

1. Nejprve otevřete zdrojový e-mail.
2. Poté klikněte na tlačítko „Akce“ ve skupině „Přesunout“.
3. Dále v rozevíracím seznamu vyberte možnost „Odeslat tuto zprávu“.
4. Možná se vám zobrazí upozornění, že nejste původním odesílatelem. Prostě to ignorujte a stiskněte „Ano“.
5. V následujícím novém e-mailu byste měli upravit pole „Komu“ odesílateli původního e-mailu.
6. Nezapomeňte také změnit odesílání pomocí e-mailového účtu na svůj vlastní účet.

6. Automatické přidávání originálních příloh pomocí VBA

Upřímně řečeno, všechny výše uvedené přístupy jsou řešením. Pokud doufáte, že si Outlook může při odpovědi automaticky ponechat původní přílohy, můžete použít tento způsob.

1. V hlavním okně aplikace Outlook stiskněte klávesy „Alt + F11“.
2. Poté v okně „Microsoft Visual Basic for Applications“ zkopírujte níže uvedený kód VBA do projektu „ThisOutlookSession“.

Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
    Dim strEnviro As String
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAttachment As Outlook.Attachment
 
    'Get the temp folder in Windows
    strEnviro = CStr(Environ("USERPROFILE"))
    strTempFolder = strEnviro & "\AppData\Local\Temp"
 
    For Each objAttachment In objOriginalMail.Attachments
        'Skip the embedded image attachments
        If IsEmbeddedAttachment(objAttachment) = False Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile strFilePath
 
           'Attach the temporarily saved attachments to the Reply
           objReply.Attachments.Add strFilePath
 
           'Delete the temporarily saved attachments
           Kill strFilePath
       End If
    Next
End Sub

'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbeddedAttachment = True
    Else
       IsEmbeddedAttachment = False
    End If
End Function

3. Později toto makro podepište a změňte nastavení maker aplikace Outlook tak, aby byla podepsaná makra povolena.
4. Poté restartujte aplikaci Outlook, abyste aktivovali tento projekt VBA.
5. Od této chvíle pokaždé, když kliknete na tlačítko „Odpovědět“. Odpovídající e-mail se zobrazí s původními přílohami najednou.

Uchýlit se k vynikajícímu nástroji pro opravy

Díky nesčetným funkcím má Outlook ramena nad ostatními e-mailovými klienty. Stále je však náchylný ke korupci. Proto byste měli věnovat větší pozornost jeho zdraví. Obecně platí, že když narazíte na malé problémy, můžete jednoduše použít vestavěný nástroj pro opravu. Pokud však trpíte vážnými potížemi, měli byste se raději obrátit na mnohem zdatnější nástroj, jako je DataNumen Outlook Repair. To může opravit Outlook soubor v okamžiku.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com