6 viisi, kuidas säilitada Outlookis vastamisel algsed meilimanused

Outlooki lahendused September 29, 2025

Paljud kasutajad loodavad oma Outlooki konfigureerida nii, et meilile vastamisel säiliks algsed meilimanused. See artikkel tutvustab 5 lahendust ja nutikat viisi, mis kasutab VBA-d selle automaatseks realiseerimiseks.

Olen kuulnud paljusid kasutajaid kurtmas, et Outlookil pole e-kirjadele vastamisel algsete manuste säilitamise funktsiooni. Seetõttu jagame siin teile 6 meetodit, millest üks on üsna kasulik, kuna see kasutab VBA-d, et panna Outlook lisama vastusemeilile algsed manused automaatselt. Nüüd lugege edasi, et neid üksikasjalikult saada.

Hoidke Outlookis vastamisel alles algsed meilimanused

1. Vastake, lisades algse meili

Kuigi Outlook ei paku e-kirjadele vastamisel algsete meilimanuste säilitamise funktsiooni, võimaldab see kasutajatel säilitada algsed meilimanused. Seetõttu on see teie jaoks valikuline lahendus. Vastusesätete muutmiseks võite minna jaotisse "Fail"> "Valikud"> "Mail"> "Vastused ja edasisaatmine". Üksikasjalikuma teabe saamiseks soovitame teil vaadata minu eelmist artiklit - "5 sammu, et vastata Outlookis originaalmanustega”. Kui aga loodate siiski säilitada ainult originaalseid manuseid, jätkake teiste vahendite õppimisega.

2. Pukseerige manuseid käsitsi

  1. Alustuseks topeltklõpsake sellisel allikameilil, et see eraldi aknas avada.
  2. Seejärel klõpsake nuppu "Vasta", mis kuvab vastuse e-kirja.
  3. Järgmisena peaksite mõlemat sõnumiakent kahanema, kuni näete neid samal ekraanil.
  4. Pärast seda valige algses meilis kõik manused.
  5. Lõpuks lohistage need vastusemeili reale „Manustatud”.Manuseid käsitsi lohistada

3. Kopeerige ja kleepige manuseid käsitsi

  1. Kõigepealt valige pärast lähtemeili avamist kõik manused.
  2. Seejärel klõpsake vahekaardi "Manused" all nuppu "Kopeeri".Kopeerige kõik manused
  3. Pärast seda klõpsake vastamiskirja avamiseks vahekaardil "Sõnum" nuppu "Vasta".
  4. Lõpuks klõpsake vastuses e-kirjas real "Attached" ja vajutage eelnevalt kopeeritud manuste kleepimiseks nuppu "Ctrl + V".

4. Saada meil edasi ja täitke adressaat

  1. Kõigepealt valige selline e-kiri ja seejärel klõpsake lindil nuppu "Edasta".
  2. Uues hüpikaknas Sõnum säilitatakse algsed manused. Nüüd peate algse meili saatjale täitma välja „Saaja”.
  3. Soovi korral saate teemat vastavalt oma vajadustele muuta.

5. Saatke see meil uuesti ja muutke saajaid

  1. Alustuseks avage lähtemeil.
  2. Seejärel klõpsake rühmas "Teisalda" nuppu "Toimingud".
  3. Järgmisena valige ripploendist "Saada see sõnum uuesti".
  4. Võib-olla saate hoiatuse, et te pole algne saatja. Lihtsalt ignoreerige seda ja klõpsake nuppu "Jah".
  5. Järgmises uues meilis peaksite muutma välja „Saaja” algse meili saatja jaoks.
  6. Samuti pidage meeles, et muutke meilikontoga saatmise konto oma kontoks.

6. Automaatne originaalmanuste lisamine VBA kaudu

Kõik ülalnimetatud lähenemisviisid on ausalt öeldes lahendused. Kui loodate, et Outlook suudab vastamisel originaalmanused automaatselt alles jätta, saate seda kasutada.

  1. Outlooki põhiaknas vajutage klahve Alt + F11.
  2. Seejärel kopeerige aknas „Microsoft Visual Basic for Applications” allolev VBA kood projekti „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

VBA kood – säilitage vastamisel algsed meilimanused

  1. Hiljem allkirjastage see makro ja muutke oma Outlooki makro sätteid, et lubada allkirjastatud makrosid.
  2. Pärast seda taaskäivitage Outlooki rakendus selle VBA-projekti aktiveerimiseks.
  3. Nüüdsest iga kord, kui klõpsate nuppu "Vasta". Vastava meilisõnum kuvatakse koos algsete manustega korraga.

Kasutage silmapaistvat remonditööriista

Outlook on oma arvukate funktsioonide tõttu teiste e-posti klientide ees olnud. Kuid see on endiselt korruptsiooniohtlik. Seetõttu peaksite selle tervisele rohkem tähelepanu pöörama. Üldiselt võite väikeste probleemide ilmnemisel lihtsalt kasutada sisseehitatud parandusutiliiti. Sellegipoolest, kui teil on tõsiseid probleeme, peaksite kasutama palju oskuslikumat tööriista, näiteks DataNumen Outlook Repair. See võib parandada Outlook faili hetkega.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.