"GreetHammer": automatik e-poçt salamları üçün Ultimate Outlook makro

E-poçt çox vacibdir, lakin adla cavab vermək və uygun salamlar ekləmək kimi təkrarlayıcı əməllər çox çətin ola bilər.GreetHammerOutlook 2016-la, 2019-la və Office 365-lə uyğun bir Outlook makrodır ki, kişiselleştirilmiş e-poçt salamlarını tamamilə avtomatikləşdirir və sizə qiymətli vaxt xərcləyir.

“GreetHammer” nədir?

"GreetHammer" "Microsoft Outlook" üçün basit, lakin güclü bir makrodir ki, e-poçtlara cavab vermənin prosesini automatik olaraq alıcının ilk adına və günün vaxtına görə kişiselleştirilmiş salamlar daxil etməklə asanlaşdırsın.

Niyə “GreetHammer” istifadə olunur?

• Efikasite: manualdırmadan kişiselleştirilmiş salamlarla dərhal cavab verin.
• Profesionalizm: Düzdür, formalaşdırılmış və gözəl cavablar professional görünüşünüzü artırır.
• Kullanım asanlığı: Tamamilə kişiselleştirilmiş e-poçt yanıtları yaratmaq üçün bir klik.

GreetHammer necə işləyir?

Burada bir çox sürət ayrılıqları var:

İstifadəçi automatik

"GreetHammer" göndəricinin detallarından alıcının ilk adını təmizləşdirir.

Sürücülük vaxtı ilə bağlı

Salavatları günün vaxtına görə automatik şəkildə dəyişir:

• Bu gün səhər saatından əvvəl “E-mail” yazıb.
• “Gözəl gecə” saat 16:00-da keçiriləcək.
• “Gözəl gecə” saat 16:00-dan sonra

Profesional e-mail formatı

“Outlook” standart cavab stilinə uyğun olaraq “Calibri Light” şifrəsi ilə formatlanan salamları yerləşdirir.

Bütün funksiyaları təqdim edin

“GreetHammer” bütün orijinal e-poçt alıcılarına cavab vermək üçün “All Reply” funksiyasını istifadə edir.

“GreetHammer” layihəsi

1-ci maddə: Makro qurmaq

• Outlook xəritədə
• VBA redaktorunu açmaq üçün ALT + F11 basın.
• “Project” panelində “Project1” (VbaProject.OTM) seçin.
• “Modullar”, “Insert” və sonra “Modul” seçin.
• Yeni modülə daxil olan “GreetHammer” kodu daxil edin.

İkinci adım: Güvenlik ayarlarını dəyişmək

• Ensure macros are enabled in Outlook:
  • Go to File > Options > Trust Center > Trust Center Settings > Macro Settings
  • Select Notifications for digitally signed macros, all other macros disabled, or Enable all macros if your policy allows.

Üçüncü adım: Ribbon Butonunu yaratmaq

• "Outlook" şeritinə sağ tıklayın və "Customize the Ribbon" seçin.
• Yeni qrupu seçmək istədiyiniz düymədə yeni bir qrup yaratın.
• Qrupun adını dəyişdirin (təkcə “GreetHammer”).
• “Qazaxıstan”dan “Qazaxıstan”dan “Qazaxıstan”dan “Qazaxıstan” seçin.
• “AutoReplyAllWithGreeting”, “AutoReplyAllWithGreeting” və “Add >>” seçin.
• Makro düyməsini “Rename” düyməsinə tıklayaraq açıqlıq (t.b. “GreetHammer”) üçün dəyişdirin.
• Bir icon seçin və sonra OK-ı seçin.
• Macronunuzu Outlook şeritindən asanlaşdırmaq mümkün olacaq!

4 - Makro ilə işləmək

• E-poçt kutunuzda bir e-mail seçin.
• Alt + F8 və ya AutoReplyAllWithGreeting (AutoReplyAllWithGreeting) seçin.

E-postanız automatik olaraq bir salamla açılacaq.

Sürücülər GreetHammer

Sizin istəklərinizə görə scriptini daha da dəyişə bilərsiniz:

• Reply Colors and Fonts: Modify the replyColor or font settings within the macro to match your preferences. (I chose the shade of blue that represents replies)

• Greeting Times: Adjust the hours in the "Determine the greeting based on the time of day" section for your working hours.

  
  

GreetHammer istifadə etməsinin faydaları

• İstehsal: Hər bir müştərinin adından danışa bilər.
• Time-saving: E-poçt iş proseslərini sürətləndirmək üçün redundant yazmaqdan qurtulanır.
• Konsistentlik: hər bir e-poçtdə profesiyalı salamlar və formatlaşdırma sağlanır.

"GreetHammer" sizin "Outlook" kommunikasiyalarını daha sürətli, daha effektiv və profesyonel polish işləməyə kömək edir.

Mərhəmətli email!

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 = "     " ' 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