6 spôsobov, ako uchovať pôvodné e-mailové prílohy pri odpovedaní v programe Outlook

Mnoho používateľov dúfa, že nakonfigurujú svoj program Outlook tak, aby si pri odpovedaní na e-maily ponechal pôvodné prílohy e-mailov. V tomto článku sa dozviete o 5 alternatívnych riešeniach a inteligentných spôsoboch, ktoré pomocou jazyka VBA toto uskutočňujú automaticky.

Počul som veľké množstvo používateľov, ktorí sa sťažovali, že program Outlook nemá natívnu funkciu, ktorá by pri odpovedi na e-mail uchovala pôvodné prílohy. Preto vám tu ponúkneme 6 metód, z ktorých jedna je veľmi užitočná, pretože pomocou VBA umožňuje aplikácii Outlook automaticky pripájať pôvodné prílohy k odpovediam na e-maily. Teraz ich prečítajte a získate ich podrobne.

1. Odpovedzte s pôvodným e-mailom

Aj keď program Outlook neposkytuje funkciu na uchovanie pôvodných e-mailových príloh pri odpovedaní na e-maily, umožňuje používateľom ponechať pôvodný e-mail priložený. Preto je pre vás voliteľným riešením. Môžete zmeniť nastavenia odpovedí v časti „Súbor“> „Možnosti“> „Pošta“> „Odpovede a posielať ďalej“. Podrobnejšie informácie nájdete v mojom predchádzajúcom článku - „5 krokov k odpovedi s pôvodnými prílohami v programe Outlook“. Ak však stále dúfate, že si ponecháte iba pôvodné prílohy, pokračujte ďalej a osvojte si ďalšie prostriedky.

2. Ručne presuňte prílohy

1. Ak chcete začať, dvakrát kliknite na takýto zdrojový e-mail, čím ho otvoríte v samostatnom okne.
2. Potom kliknite na tlačidlo „Odpovedať“, ktoré zobrazí e-mail s odpoveďou.
3. Ďalej by ste mali zmenšiť obidve okná správ tak, aby ste ich videli na rovnakej obrazovke.
4. Potom vyberte všetky prílohy v pôvodnom e-maile.
5. Nakoniec ich presuňte do riadku „Pripojené“ v odpovedajúcom e-maile.

3. Ručné kopírovanie a vkladanie príloh

1. Na prvom mieste po otvorení zdrojového e-mailu vyberte všetky prílohy.
2. Potom kliknite na tlačidlo „Kopírovať“ na karte „Prílohy“.
3. Potom kliknite na tlačidlo „Odpovedať“ na karte „Správa“, aby ste otvorili odpovedajúcu poštu.
4. Nakoniec v odpovedi na e-mail kliknite do riadku „Priložené“ a stlačte „Ctrl + V“, aby ste prilepili predtým skopírované prílohy.

4. Preposlať e-mail a vyplniť príjemcu

1. Najskôr vyberte taký e-mail a potom na páse s nástrojmi kliknite na tlačidlo Ďalej.
2. V novo vyskakovacom okne Správa sa zachovajú pôvodné prílohy. Teraz musíte vyplniť pole „Komu“ odosielateľovi pôvodného e-mailu.
3. Voliteľne môžete zmeniť predmet podľa svojich potrieb.

5. Znova odošlite tento e-mail a zmeňte príjemcov

1. Najskôr otvorte zdrojový e-mail.
2. Potom kliknite na tlačidlo „Akcie“ v skupine „Presunúť“.
3. Ďalej v rozbaľovacom zozname zvoľte možnosť „Znova poslať túto správu“.
4. Možno sa vám zobrazí upozornenie, že nie ste pôvodným odosielateľom. Stačí to ignorovať a kliknúť na „Áno“.
5. V nasledujúcom novom e-maile by ste mali upraviť pole „Komu“ odosielateľovi pôvodného e-mailu.
6. Nezabudnite tiež zmeniť odoslanie pomocou e-mailového účtu na svoj vlastný účet.

6. Automatické pridávanie originálnych príloh pomocou VBA

Úprimne povedané, všetky vyššie uvedené prístupy sú riešením. Ak dúfate, že program Outlook môže pri odpovedaní automaticky uchovávať pôvodné prílohy, môžete použiť tento spôsob.

1. V hlavnom okne Outlooku stlačte klávesy „Alt + F11“.
2. Potom v okne „Microsoft Visual Basic for Applications“ skopírujte nižšie 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. Neskôr toto makro podpíšte a zmeňte nastavenie makra Outlooku tak, aby bolo povolené podpísané makrá.
4. Potom reštartujte aplikáciu Outlook, aby ste aktivovali tento projekt VBA.
5. Odteraz vždy, keď kliknete na tlačidlo „Odpovedať“. Odpovedajúci e-mail sa zobrazí s pôvodnými prílohami naraz.

Uchýliť sa k vynikajúcemu nástroju na opravu

Vďaka mnohým funkciám sa program Outlook presunul nad ostatných e-mailových klientov. Stále je však náchylný na korupciu. Preto by ste mali venovať väčšiu pozornosť jeho zdraviu. Všeobecne platí, že ak narazíte na malé problémy, môžete jednoducho použiť zabudovanú pomôcku na opravu. Ak však trpíte vážnymi problémami, mali by ste sa obrátiť na oveľa zdatnejší nástroj, ako je napr DataNumen Outlook Repair, Môže opraviť Outlook súbor v okamihu.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S