يمكن لرمز VBA التالي إضافة تحية مخصصة تلقائيًا عند الرد على الرسائل في Outlook. يمكنك القيام بما يلي:

1. حدد رسالة البريد الإلكتروني التي سترد عليها.

2. اضغط على قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

3. انقر فوق إدراج > وحدة، ولصق رمز 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 للتحية مع الوقت من اليوم:

ملاحظات: في Outlook 2013 ، لا يعمل رمز VBA هذا إذا قمت بالرد على الرسائل في جزء القراءة. انقر هنا لمعرفة كيفية تعطيل الرد في جزء القراءة في Outlook 2013.

قد لا يرغب بعض المستخدمين في تطبيق تعليمات VBA البرمجية في Outlook. لذلك أقدم الطريقة الثانية: Kutools for Outlook أداة الترحيب التلقائي سيضيف تحية شخصية بسهولة في جميع رسائل الرد.

كوتولس لتوقعات يبسط اتصالك اليومي عبر البريد الإلكتروني من خلال Outlook عن طريق إضافة العشرات من الميزات المفيدة. تفاصيل أكثر      تحميل مجاني الآن

1. انقر فوق كوتولس > مزيد من الخيارات.

2. في مربع حوار فتح الخيارات ، انتقل إلى رد علامة التبويب ، تحقق من أضف تحية عند الرد الخيار ، اكتب مرحبا < > ، في المربع أدناه ، وانقر فوق OK .

من الآن فصاعدًا ، عند الرد على الرسائل في Outlook ، ستتم إضافة الترحيب المخصص تلقائيًا إلى نص البريد الإلكتروني كما هو موضح في لقطة الشاشة التالية:

ملاحظات: في Outlook 2013 ، لا تعمل هذه الأداة إذا قمت بالرد على الرسائل في جزء القراءة. انقر هنا لمعرفة كيفية تعطيل الرد في جزء القراءة في Outlook 2013.

تحميل مجاني Kutools لبرنامج Outlook