6 načina da zadržite originalne priloge e-pošte prilikom odgovaranja u Outlooku

Mnogi korisnici se nadaju da će konfigurirati svoj Outlook tako da zadrži originalne priloge e-pošte kada odgovaraju na e-poštu. Ovaj članak će izložiti 5 rješenja kao i pametan način, koji koristi VBA za automatsku realizaciju.

Čuo sam veliki broj korisnika koji se žale da Outlook nema izvornu funkciju za čuvanje originalnih priloga prilikom odgovaranja na e-poštu. Stoga, ovdje ćemo vam podijeliti 6 metoda, od kojih je jedna prilično korisna jer koristi VBA da bi Outlook automatski priložio originalne priloge uz odgovor na e-poštu. Sada čitajte dalje da biste ih detaljno upoznali.

1. Odgovorite sa priloženim originalnim e-mailom

Iako Outlook ne pruža funkciju za čuvanje originalnih priloga e-pošte prilikom odgovaranja na e-poštu, dozvoljava korisnicima da zadrže originalnu e-poštu u prilogu. Stoga je to opciono rješenje za vas. Možete ići na odjeljak "Datoteka" > "Opcije" > "Pošta" > "Odgovori i prosljeđivanje" da promijenite postavke odgovora. Za više detalja, predlažemo da pogledate moj prethodni članak – “5 koraka za odgovor originalnim prilozima u Outlooku”. Ali, ako se još uvijek nadate da ćete zadržati samo originalne priloge, prijeđite na učenje drugih načina.

2. Ručno prevucite i ispustite priloge

1. Za početak, dvaput kliknite na takvu izvornu e-poštu da biste je otvorili u zasebnom prozoru.
2. Zatim kliknite na dugme „Odgovori“, koje će prikazati e-poruku za odgovor.
3. Zatim biste trebali smanjiti oba prozora poruke dok ih ne vidite na istom ekranu.
4. Nakon toga odaberite sve priloge u originalnoj e-poruci.
5. Na kraju, prevucite ih i ispustite u red "Priloženo" u e-poruci za odgovor.

3. Ručno kopirajte i zalijepite priloge

1. Prvo, nakon otvaranja izvorne e-pošte, odaberite sve priloge.
2. Zatim kliknite na dugme "Kopiraj" na kartici "Prilozi".
3. Nakon toga, kliknite na dugme "Odgovori" na kartici "Poruka" da otvorite e-poštu za odgovor.
4. Na kraju, u e-poruci koja odgovara, kliknite na liniju „Priloženo“ i pritisnite dugme „Ctrl + V“ da biste zalijepili prethodno kopirane priloge.

4. Proslijedi e-poštu i popuni primaoca

1. Prvo odaberite takvu e-poštu, a zatim kliknite na dugme „Proslijedi“ na traci.
2. U novom iskačućem prozoru poruke čuvaju se originalni prilozi. Sada morate popuniti polje „Za“ pošiljaocu originalne e-pošte.
3. Opciono, možete promijeniti temu prema vašim potrebama.

5. Ponovo pošaljite ovu e-poštu i promijenite primaoce

1. Za početak otvorite izvornu e-poštu.
2. Zatim kliknite na dugme „Radnje“ u grupi „Premesti“.
3. Zatim odaberite "Ponovo pošalji ovu poruku" sa padajuće liste.
4. Možda ćete dobiti upozorenje u kojem se spominje da niste originalni pošiljalac. Samo ga zanemarite i pritisnite "Da".
5. U narednoj novoj e-poruci, trebali biste izmijeniti polje „Za“ na pošiljaoca originalne e-pošte.
6. Također, ne zaboravite promijeniti slanje putem e-mail računa na svoj vlastiti račun.

6. Automatsko dodavanje originalnih priloga putem VBA

Svi gore navedeni pristupi, da budemo iskreni, su zaobilazna rješenja. Ako se nadate da Outlook može automatski zadržati originalne priloge prilikom odgovaranja, možete koristiti ovaj način.

1. U glavnom prozoru programa Outlook pritisnite tipke “Alt + F11”.
2. Zatim, u prozoru „Microsoft Visual Basic za aplikacije“, kopirajte VBA kod ispod u projekat „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. Kasnije potpišite ovaj makro i promijenite postavke makroa za Outlook da biste dozvolili potpisane makroe.
4. Nakon toga, ponovo pokrenite Outlook aplikaciju da biste aktivirali ovaj VBA projekat.
5. Od sada svaki put kada kliknete na dugme „Odgovori“. Odgovor e-pošte će se istovremeno prikazati s originalnim prilozima.

Pribjegavajte vrhunskom alatu za popravku

Outlook je nadmašio druge klijente e-pošte zbog svojih bezbroj funkcija. Ali i dalje je sklona korupciji. Stoga bi trebalo više pažnje posvetiti njegovom zdravlju. Općenito, kada naiđete na male probleme, jednostavno se možete vratiti na ugrađeni uslužni program za popravke. Ipak, ako patite od ozbiljnih problema, bolje je da se vratite na mnogo iskusniji alat, kao što je DataNumen Outlook Repair. Može popravi Outlook fajl u trenu.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com