Skip to main content

כיצד להוסיף ברכה מותאמת אישית אוטומטית בעת תגובה ב-Outlook?

Author: Kelly Last Modified: 2025-05-30

באופן רגיל, בעת תגובה להודעה דוא"ל ב-Outlook, עלינו להוסיף ברכה באופן ידני. למעשה, ההודעה המקורית מכילה את פרטי הנמען, כגון שם השולח. ובדף זה אני אציג שתי שיטות להוספת ברכה מותאמת אישית אוטומטית בעת תגובה ב-Outlook.

הוספה אוטומטית של ברכה מותאמת אישית בעת תגובה עם VBA

הוספה אוטומטית של ברכה מותאמת אישית בעת תגובה עם Kutools עבור Outlook


הוספה אוטומטית של ברכה מותאמת אישית בעת תגובה עם VBA

קוד ה-VBA הבא יכול להוסיף ברכה מותאמת אישית אוטומטית בעת תגובה להודעות ב-Outlook. ניתן לפעול לפי ההוראות הבאות:

1. בחרו את הודעת הדוא"ל אליה תרצו להגיב.

2. לחצו על מקשי Alt + 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 או לחצו על כפתור Run כדי להריץ את הקוד VBA. תופיע תיבת דו-שיח כפי שמוצג בסcreenshot למטה. הקלידו 1 או 2 בהתאם לצרכים שלכם, ולאחר מכן לחצו על כפתור OK.

the screenshot of adding personalized greeting when replying with VBA 1
הקלידו 1 עבור ברכה עם שם הנמען: הקלידו 2 עבור ברכה עם זמן היום:
the screenshot of adding personalized greeting when replying with VBA 2 the screenshot of adding personalized greeting when replying with VBA 3

הערה: ב-Outlook 2013, קוד ה-VBA הזה לא עובד אם אתם מגיבים להודעות בחלונית קריאה. לחצו כאן כדי לדעת כיצד להשבית תגובה בחלונית קריאה ב-Outlook 2013.


הוספה אוטומטית של ברכה מותאמת אישית בעת תגובה עם Kutools עבור Outlook

ייתכן שחלק מהמשתמשים לא אוהבים ליישם קוד VBA ב-Outlook. לכן אני מציג את השיטה השנייה: כלי הברכה האוטומטית של Kutools עבור Outlook יצוריך להוסיף ברכות מותאמות בקלות בכל ההודעות לתגובה.

 👉 ל-Kutools עבור Outlook יש כעת גרסה בחינם, שכוללת 70+ תכונות gratuites לכל החיים. הורד את הגרסה المجانية עכשיו.

Kutools עבור Outlook מפשט את תקשורת הדוא"ל היומיומית שלך דרך Outlook על ידי הוספת עשרות תכונות שימושיות. קראו עוד      הורדה חינם עכשיו

1. לחצו על Kutools > אפשרויות.

2. בתיבת הדו-שיח אפשרויות שנפתחת, עברו ללשונית תגובה, סמנו את האפשרות הוסף ברכה בעת יצירת תגובה והעברת דוא"ל , התאימו אישית את הברכה על ידי הכללת מ arcotoplaceholders כמו <<SenderName>>, <<FirstName> >, או <<LastName> > בהתאם לצרכים שלכם.אל תיבה למטה, ולחצו על כפתור אישור .

select-add-greeting

מכאן ואילך, בעת תגובה להודעות ב-Outlook, הברכה המותאמת אישית תתווסף אוטומטית לגוף הדוא"ל כפי שמוצג בסcreenshot הבא:

auto add greeting

הערה: ב-Outlook 2013, כלי זה לא עובד אם אתם מגיבים להודעות בחלונית קריאה. לחצו כאן כדי לדעת כיצד להשבית תגובה בחלונית קריאה ב-Outlook 2013.


כלי הפרודוקטיביות הטובים ביותר ל-Office

🤖 Kutools AI Aide: מהפכה בניתוח נתונים באמצעות: ביצוע חכם |צור קוד |צור נוסחאות מותאם אישית |נתח נתונים וייצר תרשימים |הפעל פונקציות משופרות
פיצ'רים פופולריים: מצא, הדגש או סמן כפילויות | מחק שורות ריקות | שלב עמודות או תאים מבלי לאבד נתונים |   עיגול ...
חיפוש מתקדם: VLookup עם מספר קריטריונים | VLookup לערכים מרובים | חיפוש במספר גליונות | התאמה עמומה ....
רשימת נפתחת מתקדמת: צור במהירות רשימה נפתחת | רשימה נפתחת תלויה | רשימה נפתחת עם בחירה מרובה ....
מנהל עמודות: הוסף מספר עמודות מסוים | העבר עמודות | החלף מצב תצוגה של עמודות מוסתרות | השווה טווחים ועמודות ...
פיצ'רים נבחרים: מיקוד רשת | תצוגת עיצוב | שורת נוסחאות משופרת | נהל חוברת עבודה וגליון עבודה | ספריית טקסט אוטומטי (Auto Text) | בורר תאריך | מיזוג נתונים | הצפן/פענח תאים | שלח דואר אלקטרוני לפי טבלה חד-ממדית | סינון מתקדם | סינון מיוחד (סנן תאים עם גופן מודגש/נטוי/קו חוצה...) ...
15 ערכות כלים מובילות:12 כלי טקסט (הוסף טקסט, מחק תווים מסוימים, ...) | מעל50 סוגי תרשימים (תרשים גאנט, ...) | מעל40 נוסחאות חכמות (חישוב גיל על פי תאריך לידה, ...) |19 כלי הוספה (הכנס קוד QR, הכנס תמונה מנתיב, ...) |12 כלי המרה (המרה למילים, המרת מטבע, ...) |7 כלי מיזוג ופיצול (מיזוג מתקדם של שורות, פיצול תאים, ...) | ...ועוד

שדרג את כישורי ה-Excel שלך עם Kutools for Excel ותחווה יעילות שלא הכרת. Kutools for Excel מציע מעל300 פיצ'רים מתקדמים לשיפור הפרודוקטיביות ולחסוך זמן. לחץ כאן כדי לקבל את הפיצ'ר שהכי נחוץ לך...


Office Tab מביא ממשק טאב ל-Office והופך את העבודה שלך להרבה יותר קלה

  • אפשר עריכה וקריאה בטאבים ב-Word, Excel, PowerPoint
  • פתח וצור מסמכים מרובים בטאבים חדשים באותו חלון, במקום בחלונות חדשים.
  • הגדל את הפרודוקטיביות שלך ב-50% וצמצם מאות קליקים של עכבר בכל יום!