6 τρόποι διατήρησης των αρχικών συνημμένων email κατά την απάντηση στο Outlook

Λύσεις του Outlook Σεπτέμβριος 29, 2025

Πολλοί χρήστες ελπίζουν να διαμορφώσουν το Outlook τους ώστε να διατηρούν τα αρχικά συνημμένα email όταν απαντούν σε ένα email. Αυτό το άρθρο θα εκθέσει 5 λύσεις καθώς και έναν έξυπνο τρόπο, ο οποίος χρησιμοποιεί το VBA για να το πραγματοποιήσει αυτόματα.

Έχω ακούσει μεγάλο αριθμό χρηστών να παραπονιούνται ότι το Outlook δεν διαθέτει εγγενή λειτουργία για να διατηρεί τα αρχικά συνημμένα κατά την απάντηση ενός μηνύματος ηλεκτρονικού ταχυδρομείου. Επομένως, εδώ θα σας κοινοποιήσουμε 6 μεθόδους, μία εκ των οποίων είναι πολύ χρήσιμη, καθώς χρησιμοποιεί το VBA για να κάνει το Outlook να επισυνάψει αυτόματα τα αρχικά συνημμένα στην απάντηση email. Τώρα διαβάστε για να τα δείτε αναλυτικά.

1. Απάντηση με συνημμένο πρωτότυπο email

Αν και το Outlook δεν παρέχει μια δυνατότητα για τη διατήρηση των αρχικών συνημμένων email κατά την απάντηση ενός email, επιτρέπει στους χρήστες να διατηρούν συνημμένα τα αρχικά email. Ως εκ τούτου, είναι μια προαιρετική λύση για εσάς. Μπορείτε να μεταβείτε στην ενότητα "Αρχείο"> "Επιλογές"> "Αλληλογραφία"> "Απαντήσεις και προώθηση" για να αλλάξετε τις ρυθμίσεις απάντησης. Για περισσότερες λεπτομέρειες, σας προτείνουμε να ανατρέξετε στο προηγούμενο άρθρο μου - "5 βήματα για απάντηση με πρωτότυπα συνημμένα στο Outlook". Ωστόσο, εάν εξακολουθείτε να ελπίζετε να διατηρήσετε μόνο τα αρχικά συνημμένα, προχωρήστε για να μάθετε τα άλλα μέσα.

2. Μη αυτόματη μεταφορά και απόθεση συνημμένων

Αρχικά, κάντε διπλό κλικ σε ένα τέτοιο email προέλευσης για να το ανοίξετε σε ξεχωριστό παράθυρο.
Στη συνέχεια, κάντε κλικ στο κουμπί "Απάντηση", το οποίο θα εμφανίσει το email απάντησης.
Στη συνέχεια θα πρέπει να συρρικνώσετε και τα δύο παράθυρα μηνυμάτων μέχρι να τα δείτε στην ίδια οθόνη.
Μετά από αυτό, επιλέξτε όλα τα συνημμένα στο αρχικό email.
Τέλος, σύρετε και αποθέστε τα στη γραμμή "Συνημμένο" στο μήνυμα απάντησης.

3. Μη αυτόματη αντιγραφή και επικόλληση συνημμένων

Καταρχάς, μετά το άνοιγμα του email προέλευσης, επιλέξτε όλα τα συνημμένα.
Στη συνέχεια, κάντε κλικ στο κουμπί "Αντιγραφή" στην καρτέλα "Συνημμένα".
Μετά από αυτό, κάντε κλικ στο κουμπί "Απάντηση" στην καρτέλα "Μήνυμα" για να ανοίξετε ένα μήνυμα απάντησης.
Τελικά, στο email απάντησης, κάντε κλικ στη γραμμή "Συνημμένο" και πατήστε το κουμπί "Ctrl + V" για να επικολλήσετε τα συνημμένα που έχουν αντιγραφεί στο παρελθόν.

4. Προώθηση email και συμπλήρωση παραλήπτη

Πρώτα απ 'όλα, επιλέξτε ένα τέτοιο email και στη συνέχεια κάντε κλικ στο κουμπί "Προώθηση" στην κορδέλα.
Στο νέο αναδυόμενο παράθυρο μηνύματος, διατηρούνται τα αρχικά συνημμένα. Τώρα πρέπει να συμπληρώσετε το πεδίο "Προς" στον αποστολέα του αρχικού email.
Προαιρετικά, μπορείτε να αλλάξετε το θέμα σύμφωνα με τις ανάγκες σας.

5. Στείλτε ξανά αυτό το email και αλλάξτε παραλήπτες

Αρχικά, ανοίξτε το email προέλευσης.
Στη συνέχεια, κάντε κλικ στο κουμπί "Ενέργειες" στην ομάδα "Μετακίνηση".
Στη συνέχεια επιλέξτε "Επανάληψη αποστολής αυτού του μηνύματος" από την αναπτυσσόμενη λίστα.
Ίσως θα λάβετε μια ειδοποίηση που θα αναφέρει ότι δεν είστε ο αρχικός αποστολέας. Απλώς αγνοήστε το και πατήστε "Ναι".
Στο επόμενο νέο email, θα πρέπει να τροποποιήσετε το πεδίο "Προς" στον αποστολέα του αρχικού email.
Επίσης, θυμηθείτε να αλλάξετε την αποστολή χρησιμοποιώντας λογαριασμό email στον δικό σας λογαριασμό.

6. Αυτόματη προσθήκη αρχικών συνημμένων μέσω VBA

Όλες οι προσεγγίσεις που αναφέρονται παραπάνω, για να είμαστε ειλικρινείς, είναι λύσεις. Εάν ελπίζετε ότι το Outlook μπορεί να διατηρήσει αυτόματα τα πρωτότυπα συνημμένα κατά την απάντηση, μπορείτε να το χρησιμοποιήσετε με αυτόν τον τρόπο.

Στο κύριο παράθυρο του Outlook, πατήστε τα πλήκτρα "Alt + F11".
Στη συνέχεια, στο παράθυρο "Microsoft Visual Basic for Applications", αντιγράψτε τον παρακάτω κώδικα VBA στο έργο "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

Αργότερα υπογράψτε αυτήν τη μακροεντολή και αλλάξτε τις ρυθμίσεις μακροεντολών του Outlook για να επιτρέψετε τις υπογεγραμμένες μακροεντολές.
Στη συνέχεια, επανεκκινήστε την εφαρμογή Outlook για να ενεργοποιήσετε αυτό το έργο VBA.
Από τώρα και στο εξής, κάθε φορά που κάνετε κλικ στο κουμπί "Απάντηση". Το email απάντησης θα εμφανιστεί ταυτόχρονα με τα πρωτότυπα συνημμένα.

Καταφύγετε σε ένα σημαντικό εργαλείο επισκευής

Το Outlook έχει επωμιστεί έναντι άλλων πελατών email λόγω των μυριάδων δυνατοτήτων του. Αλλά εξακολουθεί να είναι επιρρεπές στη διαφθορά. Ως εκ τούτου, πρέπει να δώσετε μεγαλύτερη προσοχή στην υγεία του. Σε γενικές γραμμές, όταν αντιμετωπίζετε μικρά προβλήματα, μπορείτε απλά να επαναλάβετε το ενσωματωμένο βοηθητικό πρόγραμμα επιδιόρθωσης. Ωστόσο, εάν υποφέρετε από σοβαρά προβλήματα, καλύτερα να επαναλάβετε ένα πολύ πιο ικανό εργαλείο, όπως DataNumen Outlook Repair. Μπορεί να επιδιορθώστε το Outlook αρχείο σε μια στιγμή.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com