6 būdai, kaip išlaikyti originalius el. pašto priedus atsakant programoje „Outlook“.

Daugelis vartotojų tikisi sukonfigūruoti savo „Outlook“, kad atsakant į el. laišką būtų išsaugoti originalūs el. laiškų priedai. Šiame straipsnyje bus atskleisti 5 problemos sprendimo būdai ir protingas būdas, naudojant VBA, kad tai būtų realizuota automatiškai.

Girdėjau daug vartotojų, besiskundžiančių, kad „Outlook“ neturi savosios funkcijos, leidžiančios išsaugoti originalius priedus atsakant į el. laišką. Todėl čia mes pasidalinsime jums 6 metodais, iš kurių vienas yra gana naudingas, nes naudojant VBA, kad „Outlook“ automatiškai pridėtų originalius priedus prie atsakymo el. Dabar skaitykite toliau, kad sužinotumėte juos išsamiau.

1. Atsakykite pridėdami originalų el. laišką

Nors „Outlook“ nepateikia originalių el. laiškų priedų saugojimo funkcijos atsakant į el. laišką, ji leidžia vartotojams išsaugoti pridėtus originalius el. laiškus. Taigi, tai yra neprivalomas sprendimas. Norėdami pakeisti atsakymo nustatymus, eikite į skyrių „Failas“ > „Parinktys“ > „Paštas“ > „Atsakymai ir persiuntimai“. Norėdami gauti daugiau informacijos, siūlome peržiūrėti mano ankstesnį straipsnį - "5 žingsniai, kaip atsakyti naudojant originalius priedus programoje „Outlook“.“. Bet jei vis tiek tikitės išlaikyti tik originalius priedus, pereikite prie kitų priemonių.

2. Rankiniu būdu vilkite ir numeskite priedus

1. Norėdami pradėti, dukart spustelėkite tokį šaltinio el. laišką, kad jį atidarytumėte atskirame lange.
2. Tada spustelėkite mygtuką „Atsakyti“, kuris parodys atsakymo el. laišką.
3. Tada turėtumėte sumažinti abu pranešimų langus, kol pamatysite juos tame pačiame ekrane.
4. Po to pasirinkite visus pradinio el. laiško priedus.
5. Galiausiai nuvilkite juos į atsakymo el. laiško eilutę „Prisegta“.

3. Rankiniu būdu nukopijuokite ir įklijuokite priedus

1. Visų pirma, atidarę šaltinio el. laišką, pasirinkite visus priedus.
2. Tada spustelėkite mygtuką „Kopijuoti“, esantį skirtuke „Priedai“.
3. Po to spustelėkite mygtuką „Atsakyti“, esantį skirtuke „Pranešimas“, kad atidarytumėte atsakomą laišką.
4. Galiausiai atsakymo el. laiške spustelėkite eilutę „Prisegta“ ir paspauskite „Ctrl + V“ mygtuką, kad įklijuotumėte anksčiau nukopijuotus priedus.

4. Persiųsti el. laišką ir užpildyti gavėją

1. Pirmiausia pasirinkite tokį el. laišką ir spustelėkite juostelės mygtuką „Persiųsti“.
2. Naujai iššokančiajame Pranešimo lange išsaugomi originalūs priedai. Dabar turite užpildyti lauką „Kam“ pradinio el. laiško siuntėjui.
3. Pasirinktinai galite pakeisti temą pagal savo poreikius.

5. Iš naujo siųsti šį el. laišką ir pakeisti gavėjus

1. Norėdami pradėti, atidarykite šaltinio el.
2. Tada grupėje „Perkelti“ spustelėkite mygtuką „Veiksmai“.
3. Tada išskleidžiamajame sąraše pasirinkite „Siųsti šį pranešimą dar kartą“.
4. Galbūt gausite įspėjimą, kad nesate pradinis siuntėjas. Tiesiog nekreipkite dėmesio į tai ir paspauskite „Taip“.
5. Vėlesniame naujame el. laiške turėtumėte pakeisti lauką „Kam“ į pradinio el. laiško siuntėją.
6. Taip pat nepamirškite pakeisti siuntimo naudojant el. pašto paskyrą į savo paskyrą.

6. Automatiškai pridėkite originalius priedus per VBA

Tiesą sakant, visi aukščiau paminėti metodai yra problemos sprendimo būdai. Jei tikitės, kad „Outlook“ atsakydama gali automatiškai išsaugoti originalius priedus, galite naudoti šį būdą.

1. Pagrindiniame „Outlook“ lange paspauskite klavišus „Alt + F11“.
2. Tada lange „Microsoft Visual Basic for Applications“ nukopijuokite toliau pateiktą VBA kodą į 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. Vėliau pasirašykite šią makrokomandą ir pakeiskite „Outlook“ makrokomandos nustatymus, kad leistų pasirašytas makrokomandas.
4. Po to iš naujo paleiskite „Outlook“ programą, kad suaktyvintumėte šį VBA projektą.
5. Nuo šiol kiekvieną kartą spustelėjus mygtuką „Atsakyti“. Atsakymo el. laiškas bus rodomas kartu su originaliais priedais.

Pasinaudokite išskirtiniu remonto įrankiu

„Outlook“ pralenkė kitas el. pašto programas dėl daugybės funkcijų. Tačiau ji vis dar yra linkusi į korupciją. Todėl turėtumėte daugiau dėmesio skirti jo sveikatai. Apskritai, kai susiduriate su nedidelėmis problemomis, galite tiesiog pakartotinai naudoti integruotą taisymo priemonę. Vis dėlto, jei kenčiate nuo rimtų bėdų, verčiau naudokite daug įgudesnį įrankį, pvz. DataNumen Outlook Repair. Tai gali pataisyti Outlook failą akimirksniu.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com