Bir kişinin doğum günü bugünse, Outlook’ta ona otomatik olarak tebrik mesajı nasıl gönderilir?

Bazen bir kişinin doğum günü bugün olduğunda, ona otomatik olarak tebrik mesajı göndermek isteyebilirsiniz. Outlook’ta kişilerin doğum günlerini tek tek kontrol edip tebrik e-postalarını manuel olarak göndermek oldukça sıkıcı olabilir. Bu makalede, bu sorunu hızlı ve kolayca çözmek için size pratik bir VBA kodu tanıtacağım.

Outlook’ta VBA kodu ile bir kişinin doğum gününe göre otomatik olarak tebrik mesajı gönderme

---

Outlook’ta VBA kodu ile bir kişinin doğum gününe göre otomatik olarak tebrik mesajı gönderme

Bir kişinin doğum günü bugünse otomatik olarak tebrik mesajı göndermek için öncelikle bir VBA kodu ekleyin, ardından bu kodu tetiklemek üzere yinelenen bir görev oluşturun.

Aşağıdaki adımlar size yardımcı olabilir:

1. Outlook’u başlatın ve ardından ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, modu açmak için Project1 (VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Doğum gününe göre kişiye otomatik tebrik mesajı gönderme:

Private Sub Application_Reminder(ByVal Item As Object)
Dim xTempMail As MailItem
Dim xFilePath As String
Dim xItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As Outlook.ContactItem
Dim xTodayDate As String
Dim xBirthdayDate As String
Dim xGreetingMail As Outlook.MailItem
Dim xWordDoc As Word.Document
Dim xGreetings As String
Dim xBool As Boolean
xFilePath = CreateObject("shell.Application").NameSpace(5).self.Path & "\UserTemplates"
Set xFSO = CreateObject("Scripting.FileSystemObject")
If xFSO.FolderExists(xFilePath) = False Then
    MkDir xFilePath
End If
If IsFileExists(xFilePath & "\Birthday Greeting Mail.oft") = False Then
    Set xTempMail = Outlook.CreateItem(olMailItem)
    xTempMail.SaveAs xFilePath & "\Birthday Greeting Mail.oft", olTemplate
    xTempMail.Close olDiscard
End If
If (TypeOf Item Is TaskItem) And (Item.Subject = "Send Birthday Greeting Mail") Then
xGreetings = "Happy Birthday!"
           xGreetings = InputBox("Input birthday greetings", "Kutools for Outlook", xGreetings)
   xTodayDate = Month(Date) & "-" & Day(Date)
   Set xItems = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
   For Each xItem In xItems
       If Not (TypeOf xItem Is ContactItem) Then Exit Sub
       Set xContactItem = xItem
       xBirthdayDate = Month(xContactItem.Birthday) & "-" & Day(xContactItem.Birthday)
       If xBirthdayDate = xTodayDate Then
           Set xGreetingMail = Outlook.Application.CreateItemFromTemplate(xFilePath & "\Birthday Greeting Mail.oft")
           Set xWordDoc = xGreetingMail.GetInspector.WordEditor
           
           xWordDoc.Range.InsertBefore "Dear " & xContactItem.LastName & Chr(10) & xGreetings & Chr(10) & Chr(10)
           With xGreetingMail
                .Recipients.Add (xContactItem.Email1Address)
                .Subject = "Happy Birthday!"
                .Display
                .Close (olSave)
                .Send
          End With
       End If
   Next
End If
End Sub
Function IsFileExists(ByVal FileName As String) As Boolean
Dim xFileSystem As Object
Set xFileSystem = CreateObject("Scripting.FileSystemObject")
If xFileSystem.FileExists(FileName) = True Then
    IsFileExists = True
Else
    IsFileExists = False
End If
End Function 

3. Ardından Araçlar > Başvurular seçeneğine tıklayın. Açılan Microsoft Visual Basic for Applications penceresinde, çıkan Başvurular - Project1 iletişim kutusundan Microsoft Word Object Library ve Microsoft Scripting Runtime seçeneklerini Kullanılabilir Başvurular listesinden işaretleyin; ekran görüntüsüne bakın:

4. Ardından iletişim kutusunu kapatmak için Tamam düğmesine tıklayın. Şimdi VBA kodunu tetiklemek için bir görev oluşturmanız gerekiyor. Lütfen Görev bölmesine gidin ve bir görev oluşturmak için Görev simgesine tıklayın:

(1.)Konusatırına şu başlığı girin:Doğum Günü Tebrik Mesajı Gönder;

(2.) Ardından Yinelemeseçeneğine Görevsekmesi altında tıklayın;

(3.)Görev Yinelemeiletişim kutusunda Günlükseçeneğini belirleyin ve every 1 day(s)seçeneğini Tekrarlama Desenibölümünden belirtin;

5. İletişim kutusunu kapatmak için Tamam düğmesine tıklayın. Görev penceresine geri döndüğünüzde, aşağıdaki ekran görüntüsünde gösterildiği gibi yinelenen görev için bir hatırlatma ayarlayın:

6. Bundan sonra hatırlatma uyarısı verildiğinde, makro hemen tetiklenecektir. Aşağıdaki ekran görüntüsünde gösterildiği gibi, doğum günü tebriklerinizi eklemenizi hatırlatan bir iletişim kutusu açılacaktır:

7. Ardından Tamam düğmesine tıkladığınızda, doğum günü bugün olan kişiye otomatik olarak bir tebrik e-postası gönderilecektir.