6 načinov, kako ohraniti izvirne e-poštne priloge, ko odgovarjate v Outlooku

Številni uporabniki upajo, da bodo svoj Outlook konfigurirali tako, da ob odgovarjanju na e-pošto obdrži izvirne e-poštne priloge. Ta članek bo izpostavil 5 rešitev in pameten način, ki uporablja VBA za samodejno realizacijo.

Slišal sem veliko število uporabnikov, ki so se pritoževali, da Outlook nima izvorne funkcije za shranjevanje izvirnih prilog, ko odgovarjajo na e-pošto. Zato vam bomo tukaj delili 6 metod, od katerih je ena precej uporabna, saj uporablja VBA, da Outlook samodejno priloži izvirne priloge odgovarjajočemu e-poštnemu sporočilu. Zdaj preberite, če jih želite podrobneje spoznati.

1. Odgovorite s priloženim izvirnim e-poštnim sporočilom

Čeprav Outlook ne ponuja funkcije za shranjevanje izvirnih e-poštnih prilog, ko odgovarjajo na e-poštno sporočilo, uporabnikom dovoljuje, da izvirno e-poštno sporočilo obdržijo pripeto. Zato je to izbirna rešitev za vas. Lahko se pomaknete v razdelek »Datoteka« > »Možnosti« > »Pošta« > ​​»Odgovori in posredovanja«, da spremenite nastavitve odgovorov. Za več podrobnosti predlagam, da se obrnete na moj prejšnji članek – "5 korakov za odgovor z izvirnimi prilogami v Outlooku”. Če pa še vedno upate, da boste obdržali samo izvirne priloge, nadaljujte z učenjem drugih načinov.

2. Ročno povleci in spusti priloge

1. Za začetek dvokliknite takšno izvorno e-pošto, da jo odprete v svojem oknu.
2. Nato kliknite gumb »Odgovori«, ki bo prikazal e-poštno sporočilo za odgovor.
3. Nato bi morali skrčiti obe okni s sporočili, dokler ju ne vidite na istem zaslonu.
4. Nato izberite vse priloge v izvirnem e-poštnem sporočilu.
5. Na koncu jih povlecite in spustite v vrstico »Priloženo« v e-poštnem sporočilu za odgovor.

3. Ročno kopirajte in prilepite priloge

1. Ko odprete izvorno e-pošto, najprej izberite vse priloge.
2. Nato kliknite gumb »Kopiraj« pod zavihkom »Priloge«.
3. Po tem kliknite gumb »Odgovori« pod zavihkom »Sporočilo«, da odprete e-poštno sporočilo z odgovorom.
4. Na koncu v e-poštnem sporočilu za odgovor kliknite vrstico »Priloženo« in pritisnite gumb »Ctrl + V«, da prilepite predhodno kopirane priloge.

4. Posredujte e-pošto in vnesite prejemnika

1. Najprej izberite takšno e-pošto in nato kliknite gumb »Posreduj« na traku.
2. V novem pojavnem oknu Sporočilo se ohranijo izvirne priloge. Zdaj morate izpolniti polje »Za« za pošiljatelja izvirnega e-poštnega sporočila.
3. Po želji lahko spremenite temo glede na vaše potrebe.

5. Ponovno pošljite to e-pošto in spremenite prejemnike

1. Za začetek odprite izvorno e-pošto.
2. Nato kliknite gumb »Dejanja« v skupini »Premakni«.
3. Nato na spustnem seznamu izberite »Znova pošlji to sporočilo«.
4. Morda boste prejeli opozorilo, ki omenja, da niste prvotni pošiljatelj. Preprosto ga ignorirajte in pritisnite »Da«.
5. V naslednjem novem e-poštnem sporočilu morate polje »Za« spremeniti v pošiljatelja prvotnega e-poštnega sporočila.
6. Prav tako ne pozabite spremeniti e-poštnega računa za pošiljanje v svoj račun.

6. Samodejno dodajanje izvirnih prilog prek VBA

Vsi zgoraj omenjeni pristopi so, če smo iskreni, rešitve. Če upate, da lahko Outlook ob odgovarjanju samodejno obdrži izvirne priloge, lahko uporabite ta način.

1. V glavnem oknu programa Outlook pritisnite tipki "Alt + F11".
2. Nato v okno »Microsoft Visual Basic for Applications« kopirajte spodnjo kodo VBA v projekt »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. Pozneje podpišite ta makro in spremenite nastavitve Outlookovih makrov, da dovolite podpisane makre.
4. Po tem znova zaženite aplikacijo Outlook, da aktivirate ta projekt VBA.
5. Od zdaj naprej vsakič, ko kliknete gumb »Odgovori«. E-poštno sporočilo za odgovor bo prikazano z originalnimi prilogami hkrati.

Uporabite vrhunsko orodje za popravilo

Outlook je zaradi neštetih funkcij preskočil druge e-poštne odjemalce. Vendar je še vedno nagnjena k korupciji. Zato morate biti bolj pozorni na njegovo zdravje. Na splošno se lahko, ko naletite na manjše težave, preprosto vrnete na vgrajeni pripomoček za popravke. Kljub temu, če imate resne težave, se raje obrnite na veliko bolj spretno orodje, kot je npr. DataNumen Outlook Repair. Lahko popraviti Outlook datoteko v trenutku.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com