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

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

Αυτόματη απάντηση email με αρχικό μήνυμα σε προοπτική με κωδικό VBA

Αυτόματη απάντηση email με αρχικό μήνυμα σε προοπτική με κωδικό VBA

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

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

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

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

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub

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

Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.