Πώς να απαντήσετε σε όλα με πρωτότυπα συνημμένα στο Outlook;

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

Απαντήστε σε όλα με πρωτότυπα συνημμένα με κωδικό VBA

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

Απαντήστε σε όλα με πρωτότυπα συνημμένα με κωδικό VBA

Δεν υπάρχει άμεση δυνατότητα αντιμετώπισης αυτής της εργασίας στο Outlook, αλλά, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA για να το επιτύχετε. Κάντε τα παρακάτω βήματα:

1. Εκκινήστε το Outlook και, στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.

Κωδικός VBA: Απαντήστε σε όλους με πρωτότυπες προσθήκες:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = 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

3. Και στη συνέχεια κάντε κλικ στο κουμπί Εργαλεία > αναφορές στο Microsoft Visual Basic για εφαρμογές παράθυρο, στο αναδυόμενο Αναφορές-Έργο 1 πλαίσιο διαλόγου, επιλέξτε Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft Επιλογή από το Διαθέσιμες αναφορές πλαίσιο λίστας, δείτε το στιγμιότυπο οθόνης:

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

5. Ανοίξτε το email στο οποίο θέλετε να απαντήσετε σε όλα με συνημμένο Μήνυμα παράθυρο και μετά επιλέξτε Περισσότερες εντολές από το Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης drop down, δείτε το στιγμιότυπο οθόνης:

6. Στην Επιλογές του Outlook πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

(1.) Επιλέξτε Μακροεντολές από το Επιλέξτε εντολές από αναπτυσσόμενη λίστα

(2.) Κάντε κλικ στο όνομα της μακροεντολής που εισαγάγατε μόλις τώρα.

(3.) Και στη συνέχεια κάντε κλικ Πρόσθεση κουμπί για να προσθέσετε τη μακροεντολή στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης.

7. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου, τώρα, το κουμπί μακροεντολής έχει εισαχθεί στο Γραμμή εργαλείων γρήγορης πρόσβασης, δείτε το στιγμιότυπο οθόνης:

8. Τώρα, κάντε κλικ στο κουμπί μακροεντολής και ανοίγει το παράθυρο του απαντητικού μηνύματος με τα αρχικά συνημμένα, στη συνέχεια συνθέστε το μήνυμα απάντησης και κάντε κλικ Αποστολή κουμπί, δείτε το στιγμιότυπο οθόνης:

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

Εάν έχετε Kutools για το Outlook, Με τους Απάντηση σε όλα με συνημμένο χαρακτηριστικό, μπορείτε να απαντήσετε σε όλα με συνημμένα μόνο ένα κλικ.

Μετά την εγκατάσταση Kutools για το Outlook, κάντε το ως εξής:

1. Επιλέξτε το μήνυμα που θέλετε να απαντήσετε σε όλα με συνημμένα και, στη συνέχεια, κάντε κλικ Kutools > Απάντηση με συνημμένο > Απάντηση σε όλα με συνημμένο, δείτε το στιγμιότυπο οθόνης:

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

Κάντε κλικ για λήψη του Kutools για Outlook και δωρεάν δοκιμή τώρα!

---

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

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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

Δείτε Περισσότερα       Δωρεάν κατέβασμα      Αγορά