Μετάβαση στο κύριο περιεχόμενο

Πώς να διατηρήσετε συνημμένα κατά την απάντηση στο Outlook;

Όταν προωθούμε ένα μήνυμα email στο Microsoft Outlook, τα αρχικά συνημμένα σε αυτό το μήνυμα email παραμένουν στο προωθημένο μήνυμα. Ωστόσο, όταν απαντάμε σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου, τα αρχικά συνημμένα δεν θα επισυνάπτονται στο νέο μήνυμα απάντησης. Εδώ θα παρουσιάσουμε μερικά κόλπα σχετικά με τη διατήρηση των αρχικών συνημμένων κατά την απάντηση στο Microsoft Outlook.

Απαντήστε με συνημμένα αντιγράφοντας και επικολλώντας χειροκίνητα
Απάντηση με συνημμένα αυτόματα από τη VBA
Ένα κλικ για απάντηση με συνημμένα με το Kutools για Outlook


Απαντήστε με συνημμένα αντιγράφοντας και επικολλώντας χειροκίνητα

Μπορούμε να αντιγράψουμε με μη αυτόματο τρόπο τα πρωτότυπα συνημμένα σε μηνύματα email και να τα επικολλήσουμε στο παράθυρο Απάντηση μηνύματος όταν απαντήσουμε αργότερα στο μήνυμα ηλεκτρονικού ταχυδρομείου.

Βήμα 1: Κάντε κλικ στο μήνυμα ηλεκτρονικού ταχυδρομείου για προεπισκόπηση στο παράθυρο ανάγνωσης.

Βήμα 2: Κάντε δεξί κλικ σε ένα συνημμένο στο προεπισκόπηση μηνύματος email και επιλέξτε το Επιλογή Όλων από το μενού με δεξί κλικ.

Βήμα 3: Κάντε δεξί κλικ στα επιλεγμένα συνημμένα και επιλέξτε το αντίγραφο από το μενού με δεξί κλικ.

Βήμα 4: Απαντήστε το μήνυμα email κάνοντας κλικ στο απάντηση κουμπί για το Αρχική καρτέλα (ή στη γραμμή εργαλείων στο Outlook 2007).

Βήμα 5: Στο παράθυρο "Απάντηση μηνύματος", κάντε κλικ στο ζυμαρικά κουμπί για το Μήνυμα για να επικολλήσετε αυτά τα συνημμένα.

Εάν χρησιμοποιείτε το Outlook 2013 ή νεότερη έκδοση, κάντε κλικ στο Ξεπεταχτεί στην επάνω αριστερή γωνία του Reading Pane για να απελευθερώσετε το παράθυρο του μηνύματος απάντησης. Κάντε κλικ για να μάθετε περισσότερα…

Βήμα 6: Συνθέστε το μήνυμα απάντησης και κάντε κλικ στο Αποστολή κουμπί.


Απαντήστε εύκολα email με πρωτότυπα συνημμένα στο Outlook:

Kutools για το Outlook's Απάντηση με συνημμένο βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να απαντήσετε εύκολα ένα ληφθέν email με τα αρχικά συνημμένα του στο Outlook. Δείτε την παρακάτω επίδειξη: 
Κατεβάστε το και δοκιμάστε το τώρα! (Δωρεάν διαδρομή 60 ημερών)


Απάντηση με συνημμένα αυτόματα από τη VBA 

Υπάρχει μια μακροεντολή VBA που μπορεί να σας βοηθήσει να απαντήσετε αυτόματα με πρωτότυπα συνημμένα.

Σημείωση: Προτού εκτελέσετε μακροεντολές VBA, πρέπει να το κάνετε ενεργοποίηση μακροεντολών στο Microsoft Outlook.

Βήμα 1: Επιλέξτε το μήνυμα ηλεκτρονικού ταχυδρομείου που θα απαντήσετε με τα συνημμένα του.

Βήμα 2: Πατήστε το άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

Βήμα 3: Αναπτύξτε τα Project1 και Microsoft Outlook Objects στην αριστερή γραμμή και κάντε διπλό κλικ στο Αυτό το OutlookSession για να το ανοίξετε.

Βήμα 4: Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο ThisOutlookSession.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub
    
Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.currentItem
    End Select
End Function
    
Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New Scripting.FileSystemObject
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = ""
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Βήμα 5: Πατήστε το F5 κλειδί για την εκτέλεση αυτής της μακροεντολής. Στο άνοιγμα Μακροεντολές , κάντε κλικ στην επιλογή RunReplyAllWithAttachments αν θέλετε να απαντήσετε σε όλα με συνημμένα. Διαφορετικά, επιλέξτε RunReplyWithAttachments, στη συνέχεια, κάντε κλικ στο τρέξιμο κουμπί.

Στη συνέχεια, ανοίγει το παράθυρο μηνύματος απάντησης με επισύναψη όλων των αρχικών συνημμένων.

Βήμα 6: Συνθέστε το μήνυμα απάντησης και κάντε κλικ στο Αποστολή κουμπί.


Απαντήστε αυτόματα με συνημμένα με το Kutools για Outlook

Η Απάντηση με Attach χρησιμότητα του Kutools για το Outlook μπορεί να σας βοηθήσει να απαντήσετε μηνύματα ηλεκτρονικού ταχυδρομείου με πρωτότυπα συνημμένα με ένα μόνο κλικ.

Kutools για το Outlook : με περισσότερα από 100+ εύχρηστα πρόσθετα του Outlook, δωρεάν να δοκιμάσετε χωρίς περιορισμό σε 60 ημέρες.

1. Επιλέξτε το email που περιέχει τα συνημμένα με τα οποία πρέπει να απαντήσετε.

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Απάντηση με συνημμένο > Απάντηση με συνημμένο. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, όλα τα συνημμένα επιλεγμένου email παρατίθενται στο Επισυνάπτεται πεδίο του μηνύματος απάντησης. Συνθέστε το email σας και στείλτε το.

Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Ένα κλικ για απάντηση με συνημμένα με το Kutools για Outlook

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (60-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Σχετικά άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao, la macro funziona. Peccato che risponde solo al mittente, allegando gli allegati, e non a tutte le persone presenti in una mail. come si potrebbe modificare per aggiungere questa seconda funzione?

grazie mille
This comment was minimized by the moderator on the site
Buna ziua!

Exista posibilitatea de a da reply all la un email care are persoane in bcc?

Multumesc!
This comment was minimized by the moderator on the site
Hi, I am using your code for reply which is great, thank you form making it available.I have my mail options set to preface comments with my initials which works when I use the standard reply. When I create a reply using this code my intials are not inserted Can you assist please?ThanksSteve
This comment was minimized by the moderator on the site
Hi
I am going to use the code to reply all with attachments in search results from All Mailboxes but it shows me an error and does not work.
please let me know how to change the code to be usable for All Mailboxes.

Best regards
Shahrooz
This comment was minimized by the moderator on the site
Hi,
The error does not cause by the search.
To avoid the error, please click Tools > References to open the References dialog, and then enable the Microsoft Scripting Runtime option. See the attached image for the steps.
This comment was minimized by the moderator on the site
Hi!

Thanks a lot for such a great tool!

Can the command be ran so that the reply window won't pop-up but stay in reading pane view?
This comment was minimized by the moderator on the site
Hi Alexey,
We have released a new version with the tool updated. Thank you for your support.
This comment was minimized by the moderator on the site
Hi Crystal!

thanks for update!
had the macro code changed or it would work only with tool installed?
This comment was minimized by the moderator on the site
Hi Alexey,
The code is used alone without the tool installed.
This comment was minimized by the moderator on the site
Very nice, thanks, but I have compiler error: User-defined type not defined. There is highlighted Dim xFSO As Scripting.FileSystemObject in part Sub CopyAttachments
This comment was minimized by the moderator on the site
Hi Honza,
The code works well in my case. Which Office version do you use?
This comment was minimized by the moderator on the site
me too. I have the problem with the same people above. I use Office 2016.
This comment was minimized by the moderator on the site
I am using office 365 with the same error
This comment was minimized by the moderator on the site
Hi Bob,
Please try:
1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window again;
2. Click Tools > References, and check the Microsoft Scripting Runtime box.
Now the code can work.
This comment was minimized by the moderator on the site
That solve it for me!

Thanks.
This comment was minimized by the moderator on the site
I used VBA code but it attaches with all image (.gif, jpg,...) in email content. Pls show me how to solve this problem?
This comment was minimized by the moderator on the site
Good Day,
The code is updated in the post. The problen now is solved. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
In the last part of the script, many of the variables are not defined.
This comment was minimized by the moderator on the site
I have downloaded the Kutools tab. Can I add the 'Reply with Attachment' to my home tab or to Quick Steps??
This comment was minimized by the moderator on the site
Dear Jim,
You can right click the Reply with Attachment button, and select the "Add to Quick Access Toolbar" to add this function to the Quick Access Toolbar on the Ribbon. See screenshot:
This comment was minimized by the moderator on the site
I am trying to use the Reply with Attachments but it isn't adding the attachment, just keeping the link. I use the automatic detach when email is received. Is there a configuration setting that I need to update? Thank you for your help!
This comment was minimized by the moderator on the site
Dear Susan,

The attachments won't locate in the email any more as they are detached automatically from the email. Please turn off the auto detach feature for the sake of using this Reply with Attachment feature.

Best Regards, Crystal.
This comment was minimized by the moderator on the site
how do you turn off the auto detach feature
This comment was minimized by the moderator on the site
Dear Dakota,

If you are using the Auto detach all receiving attachments feature of Kutools for Outlook, please do as below screenshot shown to turn off this feature by unchecking it in your Outlook. Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations