كيفية إضافة تحية مخصصة تلقائيًا عند الرد في Outlook؟
عادةً عند الرد على رسالة بريد إلكتروني في Outlook ، يتعين علينا إضافة التحية يدويًا. في الواقع ، تحتوي الرسالة الأصلية على معلومات المستلم ، مثل اسم المرسل. وفي هذه المقالة سأقدم طريقتين لإضافة تحية مخصصة تلقائيًا عند الرد في Outlook.
إضافة تحية شخصية تلقائيًا عند الرد باستخدام VBA
إضافة تحية شخصية تلقائيًا عند الرد باستخدام Kutools for Outlook
إضافة تحية شخصية تلقائيًا عند الرد باستخدام VBA
يمكن لرمز 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.
إضافة تحية شخصية تلقائيًا عند الرد باستخدام Kutools for Outlook
قد لا يرغب بعض المستخدمين في تطبيق تعليمات VBA البرمجية في Outlook. لذلك أقدم الطريقة الثانية: Kutools for Outlook أداة الترحيب التلقائي سيضيف تحية شخصية بسهولة في جميع رسائل الرد.
كوتولس لتوقعات يبسط اتصالك اليومي عبر البريد الإلكتروني من خلال Outlook عن طريق إضافة العشرات من الميزات المفيدة. تفاصيل أكثر تحميل مجاني الآن
1. انقر فوق كوتولس > مزيد من الخيارات.
2. في مربع حوار فتح الخيارات ، انتقل إلى رد علامة التبويب ، تحقق من أضف تحية عند الرد الخيار ، اكتب مرحبا < > ، في المربع أدناه ، وانقر فوق OK .
من الآن فصاعدًا ، عند الرد على الرسائل في Outlook ، ستتم إضافة الترحيب المخصص تلقائيًا إلى نص البريد الإلكتروني كما هو موضح في لقطة الشاشة التالية:
ملاحظات: في Outlook 2013 ، لا تعمل هذه الأداة إذا قمت بالرد على الرسائل في جزء القراءة. انقر هنا لمعرفة كيفية تعطيل الرد في جزء القراءة في Outlook 2013.
عرض توضيحي: إضافة تحية مخصصة تلقائيًا عند الرد في Outlook
معلومه- سرية: في هذا الفيديو، كوتولس تمت إضافة علامة التبويب بواسطة كوتولس لتوقعات. إذا كنت في حاجة إليها ، الرجاء الضغط هنا للحصول على نسخة تجريبية مجانية لمدة 60 يومًا دون قيود!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!