6 módszer az eredeti e-mail mellékletek megőrzésére, amikor válaszol az Outlookban

Sok felhasználó azt reméli, hogy beállíthatja az Outlook-ot úgy, hogy az e-mail megválaszolásakor megtartsa az eredeti e-mail mellékleteket. Ez a cikk 5 megoldást mutat be, valamint egy intelligens módszert, amely a VBA használatával valósítja meg automatikusan.

Sok felhasználót hallottam arról panaszkodni, hogy az Outlook nem rendelkezik olyan natív funkcióval, amely megőrzi az eredeti mellékleteket, amikor válaszol egy e-mailre. Ezért itt 6 módszert osztunk meg, amelyek közül az egyik nagyon hasznos, mivel VBA-t használ arra, hogy az Outlook automatikusan csatolja az eredeti mellékleteket a válaszlevélhez. Most olvassa el, hogy részletesen megismerje őket.

1. Válaszoljon az eredeti e-mail csatolásával

Bár az Outlook nem biztosít lehetőséget az eredeti e-mail mellékletek megőrzésére, amikor válaszol egy e-mailre, lehetővé teszi a felhasználók számára, hogy az eredeti e-maileket csatolják. Ezért ez egy opcionális megoldás az Ön számára. A válaszbeállítások módosításához lépjen a „Fájl” > „Opciók” > „Levelezés” > „Válaszok és továbbítás” szakaszba. További részletekért javasoljuk, hogy olvassa el korábbi cikkemet – „5 lépés, hogy eredeti mellékletekkel válaszoljon az Outlookban”. De ha továbbra is csak az eredeti csatolmányokat szeretné megtartani, folytassa a többi módszer megismerésével.

2. Manuálisan húzza át a mellékleteket

1. Először is, kattintson duplán egy ilyen forrás e-mailre, hogy megnyissa azt a saját ablakában.
2. Ezután kattintson a „Válasz” gombra, amelyen megjelenik a válasz e-mail.
3. Ezután össze kell zsugorítani a két üzenetablakot, amíg ugyanazon a képernyőn nem látja őket.
4. Ezután válassza ki az eredeti e-mail összes mellékletét.
5. Végül húzza át őket a válasz e-mailben a „Csatolva” sorba.

3. Mellékletek manuális másolása és beillesztése

1. Először is, a forrás e-mail megnyitása után válassza ki az összes mellékletet.
2. Ezután kattintson a „Másolás” gombra a „Mellékletek” fül alatt.
3. Ezután kattintson a „Válasz” gombra az „Üzenet” fül alatt a válaszlevél megnyitásához.
4. Végül a válasz e-mailben kattintson a „Csatolva” sorra, és nyomja meg a „Ctrl + V” gombot a korábban másolt mellékletek beillesztéséhez.

4. Továbbítsa az e-mailt és töltse ki a címzettet

1. Először válasszon ki egy ilyen e-mailt, majd kattintson a „Tovább” gombra a szalagon.
2. Az újonnan felugró Üzenet ablakban az eredeti mellékletek megmaradnak. Most ki kell töltenie a „Címzett” mezőt az eredeti e-mail feladójának.
3. Opcionálisan megváltoztathatja a témát igényei szerint.

5. Küldje el újra ezt az e-mailt és módosítsa a címzetteket

1. Kezdésként nyissa meg a forrás e-mailt.
2. Ezután kattintson a „Műveletek” gombra az „Áthelyezés” csoportban.
3. Ezután válassza az „Üzenet újraküldése” lehetőséget a legördülő listából.
4. Talán kap egy figyelmeztetést, amely megemlíti, hogy nem Ön az eredeti feladó. Csak hagyja figyelmen kívül, és nyomja meg az „Igen” gombot.
5. A következő új e-mailben módosítsa a „Címzett” mezőt az eredeti e-mail feladójára.
6. Ezenkívül ne felejtse el megváltoztatni a küldés e-mail-fiókját a saját fiókjára.

6. Eredeti mellékletek automatikus hozzáadása VBA-n keresztül

Minden fent említett megközelítés, hogy őszinte legyek, megkerülő megoldás. Ha azt reméli, hogy az Outlook automatikusan meg tudja őrizni az eredeti mellékleteket válaszadáskor, használhatja ezt a módszert.

1. Az Outlook főablakában nyomja meg az „Alt + F11” billentyűket.
2. Ezután a „Microsoft Visual Basic for Applications” ablakban másolja be az alábbi VBA-kódot a „ThisOutlookSession” projektbe.

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. Később írja alá ezt a makrót, és módosítsa az Outlook makró beállításait, hogy engedélyezze az aláírt makrókat.
4. Ezután indítsa újra az Outlook alkalmazást a VBA-projekt aktiválásához.
5. Mostantól minden alkalommal, amikor a „Válasz” gombra kattint. A válasz e-mail azonnal megjelenik az eredeti mellékletekkel.

Válogasson egy kiváló javítószerszámhoz

Az Outlook számtalan funkciója miatt a többi e-mail kliens fölé került. De még mindig hajlamos a korrupcióra. Ezért jobban oda kell figyelni az egészségére. Általánosságban elmondható, hogy kis problémák esetén egyszerűen visszatérhet a beépített javítási segédprogramhoz. Mindazonáltal, ha komoly problémákkal küzdesz, jobb, ha visszatérsz egy sokkal jártasabb eszközhöz, mint pl. DataNumen Outlook Repair. Az tud javítsa ki az Outlookot fájl egy pillanat alatt.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com