Πώς να απαντάτε ομαδικά σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου με το ίδιο περιεχόμενο στο Outlook σας

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

Έχω ακούσει μεγάλο αριθμό χρηστών να παραπονιούνται ότι το Outlook δεν έχει καμία λειτουργία που να τους υποστηρίζει να στέλνουν την ίδια απάντηση σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου ταυτόχρονα. Όταν επιλέγουν πολλά μηνύματα ηλεκτρονικού ταχυδρομείου, τόσο οι ενέργειες "Απάντηση" και "Απάντηση σε όλους" θα γκριζάρουν - θα απενεργοποιηθούν. Εξετάζοντας αυτό το ζήτημα, στη συνέχεια, θα μοιραστούμε μια μέθοδο για την υλοποίηση αυτής της δυνατότητας.

Μαζική απάντηση σε πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου με το ίδιο περιεχόμενο

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

• Αρχικά, δημιουργήστε ένα νέο email.
• Στη συνέχεια, συντάξτε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου με βάση αυτό που θέλετε να απαντήσετε.
• Στη συνέχεια, κάντε κλικ στο "Αρχείο" και επιλέξτε "Αποθήκευση ως".
• Αργότερα, στο νέο πλαίσιο διαλόγου "Αποθήκευση ως", εισαγάγετε ένα όνομα και επιλέξτε "Πρότυπο Outlook" στο πλαίσιο "Αποθήκευση ως τύπου".
• Τέλος, πατήστε το κουμπί "ΟΚ".

3. Στη συνέχεια, μπορείτε να κλείσετε το email χωρίς να αποθηκεύσετε τις αλλαγές.
4. Στη συνέχεια, θα πρέπει να πατήσετε τα πλήκτρα "Alt + F11".
5. Μετά από αυτό, θα εμφανιστεί το παράθυρο επεξεργασίας του Outlook VBA.
6. Τώρα, θα πρέπει να εντοπίσετε και να ανοίξετε το έργο "ThisOutlookSession" και να αντιγράψετε τον ακόλουθο κώδικα VBA σε αυτό.

Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
    Dim objCommandBarButton As Office.CommandBarButton
 
    If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
       Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
 
       'Add a "Same Reply" option to the context menu
       With objCommandBarButton
           .Style = msoButtonIconAndCaption
           .Caption = "Same Reply"
           .FaceId = 355
           .OnAction = "Project1.ThisOutlookSession.SendSameReply"
       End With
    End If
End Sub

Sub SendSameReply()
    Dim strTemplate As String
    Dim objTemplateReply As Outlook.MailItem
    Dim strHTMLBody As String
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objReply As Outlook.MailItem
 
    'Input the name of the previously saved template
    strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
    Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
    strHTMLBody = objTemplateReply.HTMLBody
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    For i = objSelection.count To 1 Step -1
        Set objReply = objSelection(i).Reply
        With objReply
             .HTMLBody = strHTMLBody & objReply.HTMLBody
             .Send
        End With
    Next
End Sub

7. Τέλος, μπορείτε να κλείσετε το τρέχον παράθυρο και να δοκιμάσετε αυτήν τη μακροεντολή.

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

Το Outlook είναι επιρρεπές σε διαφθορά

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

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

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