דואר אלקטרוני הוא חיוני, אבל משימות חוזרות – כגון פנייה לתשובות בשם ולהוסיף ברכות מתאימות – יכולות להיות משעממות במיוחד אם אתה אוהב אותי ולשלוח ציונים וציונים של דואר אלקטרוני כל יום. מאקרו Outlook שימושי עם Outlook 2016, 2019 ו- Office 365 המאפשר אוטומציה מלאה של ברכות דואר אלקטרוני מותאמות אישית, ובכך חוסך לך זמן יקר. GreetHammer מה זה GreetHammer? GreetHammer הוא מקרו פשוט אך עוצמתי עבור Microsoft Outlook שנועד להקל על תהליך התגובה להודעות דואר אלקטרוני על ידי כניסה אוטומטית של ברכות מותאמות אישית בהתבסס על השם הראשון של הנמען והשעה של היום. למה להשתמש GreetHammer? 
 
 
 
 יעילות: תשובה מהירה עם ברכות אישיות ללא מאמץ ידני. מקצועיות: תשובות מעודכנות ואדיבות משפרות את הדימוי המקצועי שלך. קלות שימוש: לחיצה אחת כדי ליצור תשובות דואר אלקטרוני מותאמות אישית לחלוטין. איך GreetHammer עובד? הנה פריצת דרך מהירה: זיהוי שמות אוטומטי GreetHammer מוציא בצורה אינטליגנטית את שמו של הנמען מהפרטים של השולח. ברכה מבוססת על זמן התאמת ברכות באופן אוטומטי בהתבסס על השעה של היום: 
 
 
 
 "בוקר טוב" עבור הודעות דואר אלקטרוני לפני חצות. "בוקר טוב" משעה 4 לפנות בוקר לילה טוב אחרי השעה 16:00 דואר אלקטרוני מקצועי מוסיף ברכות מעוצבות בצורה נקיה באמצעות שפת Calibri Light, צבועת באופן עקבי כדי להתאים את סגנון התשובה הסטנדרטי של Outlook. תגובות לכל הפונקציונליות GreetHammer משתמשת בפונקציה "תשוב לכולם" כדי לפנות לכל הנמענים המקוריים של האימייל. יישום GreetHammer שלב 1: הגדרת מקרו 
 
 
 
 
 
 פתחו את Outlook הקש ALT + F11 כדי לפתוח את עורך ה- VBA. בחלונית פרוייקט, עבור אל Project1 (VbaProject.OTM). לחץ על “Modules”, בחר “Insert”, ולאחר מכן “Module”. הקלד את הקוד של GreetHammer המסופק לתוך המודול החדש. שלב 2: התאמת הגדרות האבטחה 
 
 Ensure macros are enabled in Outlook:
 
 
 
 
 Go to  File > Options > Trust Center > Trust Center Settings > Macro Settings Select  , or   if your policy allows. Notifications for digitally signed macros, all other macros disabled Enable all macros שלב 3: יצירת כפתור Ribbon 
 
 
 
 
 
 
 
 
 לחיצה ימנית על הקלטת Outlook ולבחור התאמה אישית של הקלטת. בחלונית הימנית, צור קבוצה חדשה בכרטיסיה הרצויה שלך על-ידי לחיצה על קבוצה חדשה. שם מחדש של הקבוצה (לדוגמה, "GreetHammer") מתוך "בחירת פקודות מתוך" בחר את "מקרו". מצא ולבחור את המאקרו שלך (לדוגמה, "AutoReplyAllWithGreeting") ולחץ על "הוסף >>". שמור מחדש את הכפתור למקרו (לדוגמה, "GreetHammer") על-ידי לחיצה על הכפתור "Rename". בחר את האייקון ולאחר מכן לחץ על OK. המאקרו שלך נגיש בקלות כעת מהסרגל של Outlook! שלב 4: הפעל את המאקרו 
 
 
 בחר דואר אלקטרוני בתיבת הדואר הנכנס שלך. לחץ על לחצן הקלטה שנוצר לאחרונה או לחץ על ALT + F8, בחר AutoReplyAllWithGreeting ולאחר מכן לחץ על "Run". הדואר האלקטרוני שלך יפתח באופן אוטומטי עם ברכה אישית מוכן. עקבו אחרי greethammer greethammer באפשרותך להתאים את התסריט בהתאם להעדפותיך: 
 
 
 
 
 : Modify the   or font settings within the macro to match your preferences. (I chose the shade of blue that represents replies) Reply Colors and Fonts replyColor 
 
 : Adjust the hours in the "Determine the greeting based on the time of day" section for your working hours. Greeting Times היתרונות של שימוש GreetHammer 
 
 
 
 תקשורת מותאמת אישית: פונה לכל מקבל בשם באופן אוטומטי. חיסכון בזמן: מסיר כתיבה מיותרת, מאיץ את זרימי העבודה של דואר אלקטרוני. עקביות: מבטיח ברכות מקצועיות ופורמט בכל דואר אלקטרוני. GreetHammer עוזר לך להתמודד עם תקשורת Outlook שלך מהר יותר, ביעילות רבה יותר, ועם פולש מקצועי. מזל דואר אלקטרוני! Sub AutoReplyAllWithGreeting()
    Dim originalMail As MailItem
    Dim replyMail As MailItem
    Dim recipientName As String
    Dim currentHour As Integer
    Dim greeting As String
    Dim indent As String
    Dim replyColor As String
    
    ' Define the color code for standard Outlook reply blue
    replyColor = "#1F497D"
    
    ' Check if an email is selected
    If Application.ActiveExplorer.Selection.Count = 0 Then
        MsgBox "Please select an email to reply to."
        Exit Sub
    End If
    
    ' Get the selected email
    Set originalMail = Application.ActiveExplorer.Selection.Item(1)
    
    ' Create the "Reply All"
    Set replyMail = originalMail.ReplyAll
    
    ' Simply extract the sender's first name for the greeting
    recipientName = GetFirstName(originalMail.SenderName)
    
    ' Get the current hour
    currentHour = Hour(Now)
    
    ' Determine the greeting based on the time of day
    Select Case currentHour
        Case 0 To 11
            greeting = "Good morning."
        Case 12 To 16
            greeting = "Good afternoon."
        Case Else
            greeting = "Good evening."
    End Select
    
    ' Set indentation, using HTML for proper email formatting
    indent = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" ' 5 non-breaking spaces for indentation in HTML
    
    ' Insert the personalized greeting into the reply with color styling and Calibri Light font
    replyMail.HTMLBody = _
        "<p style='color:" & replyColor & "; font-family: Calibri Light; font-size: 11pt;'>" & _
            recipientName & "," & _
        "</p>" & _
        "<p style='color:" & replyColor & "; font-family: Calibri Light; font-size: 11pt;'>" & _
            indent & greeting & _
        "</p>" & _
        replyMail.HTMLBody
    
    ' Display the reply email
    replyMail.Display
End Sub

' Function to extract the first name from the full name
Function GetFirstName(fullName As String) As String
    Dim nameParts() As String
    
    ' Check if the name is formatted with a comma (e.g., "LastName, FirstName")
    If InStr(fullName, ",") > 0 Then
        ' Split by comma and trim any extra spaces
        nameParts = Split(fullName, ",")
        GetFirstName = Trim(nameParts(1)) ' Use the second part, which is the first name
    Else
        ' Otherwise, split by space and return the first part (assumed to be first name)
        nameParts = Split(fullName, " ")
        GetFirstName = nameParts(0)
    End If
End Function


Read My Stories

האודיו הזה מופק בשפת המקור של הסיפור!

GreetHammer: מקרו Outlook האולטימטיבי שלך עבור ברכות דואר אלקטרוני אוטומטיות

About Author

הערות

תלו תגים

מאמר זה הוצג ב

Related Stories

The TechBeat: 5 Low-Cost Cybersecurity Measures SMBs Can’t Afford to Not Implement (3/4/2024)

100 Days of AI, Day 12: How to Quickly Demo Your Gen AI Experiments to Get Feedback

The TechBeat: Everything You Need to Know to Implement Generative AI for Your Enterprise (3/12/2024)

The TechBeat: Python's Testing Playbook: Building Bulletproof Code (1/16/2024)

The TechBeat: 5 Low-Cost Cybersecurity Measures SMBs Can’t Afford to Not Implement (3/4/2024)

100 Days of AI, Day 12: How to Quickly Demo Your Gen AI Experiments to Get Feedback

The TechBeat: Everything You Need to Know to Implement Generative AI for Your Enterprise (3/12/2024)

The TechBeat: Python's Testing Playbook: Building Bulletproof Code (1/16/2024)

Light-Mode

Classic

Newspaper

Dark-Mode

Neon Noir

Minty

HN StartUps