Ο ακόλουθος κώδικας VBA μπορεί να προσθέσει αυτόματα εξατομικευμένο χαιρετισμό κατά την απάντηση μηνυμάτων στο Outlook. Μπορείτε να κάνετε τα εξής:

1. Επιλέξτε το μήνυμα email που θα απαντήσετε.

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

3. Κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα VBA στο νέο παράθυρο λειτουργικής μονάδας.

VBA: Απάντηση με εξατομικευμένο χαιρετισμό

Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub

4. Πάτα το F5 Πλήκτρο ή κλικ τρέξιμο για να εκτελέσετε αυτό το VBA. Θα εμφανιστεί ένα παράθυρο διαλόγου όπως φαίνεται παρακάτω το στιγμιότυπο οθόνης. Πληκτρολογήστε 1 ή 2 με βάση τις ανάγκες σας και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

Πληκτρολογήστε 1 για χαιρετισμό με όνομα παραλήπτη:	Τύπος 2 για χαιρετισμό με την ώρα της ημέρας:

Note: Στο Outlook 2013, αυτός ο κωδικός VBA δεν λειτουργεί αν απαντήσετε σε μηνύματα στο παράθυρο ανάγνωσης. Κάντε κλικ εδώ για να μάθετε πώς να απενεργοποιήσετε την απάντηση στο Reading Pane στο Outlook 2013.

Ορισμένοι χρήστες ενδέχεται να μην επιθυμούν να εφαρμόσουν κώδικα VBA στο Outlook. Επομένως, εισάγω τη δεύτερη μέθοδο: Kutools for Outlook's Βοηθητικό πρόγραμμα αυτόματου χαιρετισμού θα προσθέσει εύκολα εξατομικευμένο χαιρετισμό σε όλα τα μηνύματα απάντησης.

Kutools για το Outlook απλοποιεί την καθημερινή επικοινωνία μέσω email μέσω του Outlook προσθέτοντας δεκάδες εύχρηστες λειτουργίες. Δείτε Περισσότερα      Δωρεάν Λήψη Τώρα

1. Κάντε κλικ στο κουμπί Kutools > Επιλογές.

2. Στο παράθυρο διαλόγου Επιλογές ανοίγματος, μεταβείτε στο απάντηση καρτέλα, ελέγξτε το Προσθέστε χαιρετισμό κατά την απάντηση επιλογή, πληκτρολογήστε Hi < >, στο παρακάτω πλαίσιο και κάντε κλικ στο OK κουμπί.

Από τώρα και στο εξής, κατά την απάντηση μηνυμάτων στο Outlook, ο εξατομικευμένος χαιρετισμός θα προστεθεί αυτόματα στο σώμα του email, όπως φαίνεται στην ακόλουθη λήψη οθόνης:

Note: Στο Outlook 2013, αυτό το βοηθητικό πρόγραμμα δεν λειτουργεί αν απαντήσετε σε μηνύματα στο παράθυρο ανάγνωσης. Κάντε κλικ εδώ για να μάθετε πώς να απενεργοποιήσετε την απάντηση στο Reading Pane στο Outlook 2013.

Δωρεάν λήψη Kutools για Outlook