6 tapaa säilyttää alkuperäiset sähköpostiliitteet, kun vastaat Outlookiin

Monet käyttäjät toivovat määrittelevänsä Outlookin säilyttämään alkuperäiset sähköpostin liitetiedostot vastatessaan sähköpostiin. Tämä artikkeli paljastaa 5 kiertotapaa sekä älykkään tavan, joka käyttää VBA: ta sen toteuttamiseen automaattisesti.

Olen kuullut suuren määrän käyttäjiä valittavan, että Outlookilla ei ole alkuperäistä ominaisuutta alkuperäisten liitteiden säilyttämiseen, kun vastaat sähköpostiin. Siksi jaamme tässä sinulle 6 menetelmää, joista yksi on melko hyödyllinen, koska se käyttää VBA: ta tekemään Outlookin liittämään alkuperäiset liitteet vastaaviin sähköposteihin. Lue nyt saadaksesi ne yksityiskohtaisesti.

1. Vastaa alkuperäisen sähköpostin liitteenä

Vaikka Outlook ei tarjoa ominaisuutta alkuperäisten sähköpostiliitteiden säilyttämiseen, kun vastaat sähköpostiin, se sallii käyttäjien pitää alkuperäisen sähköpostin liitettynä. Siksi se on valinnainen kiertotapa sinulle. Voit siirtyä kohtaan "Tiedosto"> "Asetukset"> "Posti"> "Vastaukset ja välitykset" -osioon muuttaaksesi vastauksen asetuksia. Lisätietoja on suositeltavaa viitata edelliseen artikkeliini - “Viisi vaihetta vastaamiseen alkuperäisillä liitteillä Outlookissa”. Mutta jos haluat edelleen säilyttää vain alkuperäiset liitetiedostot, siirry oppimaan muut keinot.

2. Vedä ja pudota manuaalisesti liitteitä

1. Aloita kaksoisnapsauttamalla tällaista lähdesähköpostia avataksesi sen omaan ikkunaansa.
2. Napsauta sitten Vastaa-painiketta, jolloin esiin tulee vastaava sähköposti.
3. Seuraavaksi sinun pitäisi kutistaa molemmat Viesti-ikkunat, kunnes näet ne samassa näytössä.
4. Valitse sen jälkeen kaikki alkuperäisen sähköpostin liitteet.
5. Vedä ja pudota ne lopuksi vastaavan sähköpostin Liitteeseen-riville.

3. Kopioi ja liitä manuaalisesti liitteet

1. Ensinnäkin, kun olet avannut lähdesähköpostin, valitse kaikki liitteet.
2. Napsauta sitten "Kopioi" -painiketta "Liitteet" -välilehdessä.
3. Sen jälkeen napsauta Vastaa-painiketta Viesti-välilehdessä avataksesi vastaavan sähköpostin.
4. Napsauta viime kädessä vastaavassa sähköpostiviestissä "Liitetyt" -riviä ja liitä aiemmin kopioidut liitteet painamalla "Ctrl + V" -painiketta.

4. Lähetä sähköposti edelleen ja täytä vastaanottaja

1. Valitse ensin tällainen sähköpostiosoite ja napsauta sitten valintanauhan "Lähetä eteenpäin" -painiketta.
2. Äskettäin avautuvassa viesti-ikkunassa alkuperäiset liitteet säilytetään. Nyt sinun on täytettävä Vastaanottaja-kenttä alkuperäisen sähköpostin lähettäjälle.
3. Vaihtoehtoisesti voit vaihtaa aihetta tarpeidesi mukaan.

5. Lähetä tämä sähköposti uudelleen ja muuta vastaanottajia

1. Aloita avaamalla lähdesähköposti.
2. Napsauta sitten Siirrä-ryhmän Toiminnot-painiketta.
3. Valitse seuraavaksi avattavasta luettelosta Lähetä viesti uudelleen.
4. Ehkä saat ilmoituksen, jossa mainitaan, että et ole alkuperäinen lähettäjä. Ohita se vain ja paina "Kyllä".
5. Seuraavassa uudessa sähköpostissa sinun tulee muokata Vastaanottaja-kenttää alkuperäisen sähköpostin lähettäjälle.
6. Muista myös vaihtaa lähetys sähköpostitilillä omaksi.

6. Lisää alkuperäiset liitteet automaattisesti VBA: n kautta

Kaikki edellä mainitut lähestymistavat, rehellisesti sanottuna, ovat kiertotapoja. Jos toivot, että Outlook pystyy automaattisesti pitämään alkuperäiset liitteet vastauksen aikana, voit käyttää tätä tapaa.

1. Paina Outlookin pääikkunassa ”Alt + F11” -näppäimiä.
2. Kopioi sitten alla oleva VBA-koodi Microsoft Visual Basic for Applications -ikkunaan ThisOutlookSession-projektiin.

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. Allekirjoita tämä makro myöhemmin ja muuta Outlook-makroasetuksia salliaksesi allekirjoitetut makrot.
4. Käynnistä sen jälkeen Outlook-sovellus uudelleen aktivoidaksesi tämän VBA-projektin.
5. Tästä eteenpäin aina, kun napsautat "Vastaa" -painiketta. Vastaava sähköposti näkyy alkuperäisillä liitteillä kerralla.

Turvautua ensisijaiseen korjaustyökaluun

Outlook on noussut muiden sähköpostiohjelmien yli lukemattomien ominaisuuksiensa vuoksi. Mutta se on edelleen altis korruptiolle. Siksi sinun tulisi kiinnittää enemmän huomiota sen terveyteen. Yleensä, kun kohtaat pieniä ongelmia, voit yksinkertaisesti palata sisäänrakennettuun korjausapuohjelmaan. Siitä huolimatta, jos kärsit vakavista ongelmista, sinun on parempi palata paljon taitavampaan työkaluun, kuten DataNumen Outlook Repair. Se voi korjaa Outlook tiedosto hetkessä.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com