Πώς να δημιουργήσετε αυτόματα ένα όνομα αγαπητού αποστολέα κατά την απάντηση μηνύματος στο Outlook;
Κατά την απάντηση του μηνύματος email, πρέπει να πληκτρολογήσετε το όνομα και τον χαιρετισμό του αποστολέα με μη αυτόματο τρόπο. Για να εξοικονομήσετε χρόνο και να βελτιώσετε την αποδοτικότητα της εργασίας, μπορείτε να δημιουργήσετε αυτόματα το όνομα και τους χαιρετισμούς ενός αγαπημένου αποστολέα στο Outlook. Σε αυτό το άρθρο, θα μιλήσω για μερικές χρήσιμες μεθόδους για την επίλυση αυτής της εργασίας στο Outlook.
Δημιουργήστε αυτόματα ένα όνομα και χαιρετισμούς αγαπητού αποστολέα κατά την απάντηση μηνύματος με κωδικό VBA
Ο ακόλουθος κωδικός VBA μπορεί να σας βοηθήσει να εισαγάγετε αυτόματα το όνομα και τους χαιρετισμούς ενός αγαπητού αποστολέα κατά την απάντηση ενός μηνύματος ηλεκτρονικού ταχυδρομείου, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.
Κωδικός VBA: Εισαγάγετε αυτόματα το όνομα και τους χαιρετισμούς ενός αγαπητού αποστολέα κατά την απάντηση:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. Στη συνέχεια, κλείστε το Outlook και επανεκκινήστε το για να λάβετε το εφέ κώδικα και τώρα, όταν απαντάτε σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου, το όνομα και οι χαιρετισμοί ενός αγαπημένου αποστολέα εισάγονται αυτόματα στο σώμα, δείτε το στιγμιότυπο οθόνης:
Δημιουργήστε αυτόματα το όνομα και τους χαιρετισμούς ενός αγαπητού αποστολέα κατά την απάντηση μηνύματος με το Kutools για Outlook
Εάν έχετε Kutools για το Outlook, Με τους Προσθέστε χαιρετισμό κατά την απάντηση δυνατότητα, το Outlook θα εισαγάγει αυτόματα το όνομα του αποστολέα κατά την απάντηση.
Kutools για το Outlook : με περισσότερα από 100 εύχρηστα πρόσθετα του Outlook, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. |
Μετά την εγκατάσταση Kutools για το Outlook, κάντε το εξής:
1. Κλίκ Kutools > Επιλογές, δείτε το στιγμιότυπο οθόνης:
2. Στην Επιλογές πλαίσιο διαλόγου, κάτω από το απάντηση καρτέλα, ελέγξτε Προσθέστε χαιρετισμό κατά την απάντηση και, στη συνέχεια, εισαγάγετε τους χαιρετισμούς όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια κάντε κλικ στο κουμπί OK για να ολοκληρώσετε αυτήν τη ρύθμιση, από τώρα και στο εξής, όταν απαντάτε σε ένα μήνυμα, οι χαιρετισμοί θα δημιουργούνται αυτόματα μπροστά από το σώμα του μηνύματος, δείτε το στιγμιότυπο οθόνης:
Κάντε κλικ για λήψη του 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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.