Hoe stuurt u automatisch een wensbericht naar een contactpersoon wanneer zijn of haar verjaardag vandaag is in Outlook?

Soms wilt u automatisch een wensbericht sturen naar een contactpersoon wanneer zijn of haar verjaardag vandaag is in Outlook. Het wordt echter een vervelende klus als u de verjaardag van elk contact één voor één moet controleren en de wensmails handmatig moet verzenden. In dit artikel introduceer ik een VBA-code om dit snel en eenvoudig op te lossen.

Automatisch een wensbericht sturen naar een contactpersoon op basis van zijn verjaardag met VBA-code in Outlook

---

Automatisch een wensbericht sturen naar een contactpersoon op basis van zijn verjaardag met VBA-code in Outlook

Om automatisch een wensbericht te sturen naar een contactpersoon wanneer zijn of haar verjaardag vandaag is, voegt u eerst een VBA-code in en stelt u daarna een terugkerende taak in om die code te activeren.

De volgende stappen kunnen u helpen:

1. Start Outlook en druk daarna op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en plak vervolgens de volgende code in de lege module.

VBA-code: Automatisch een wensbericht sturen naar een contactpersoon op basis van verjaardag:

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. Klik vervolgens in het venster Microsoft Visual Basic for Applications op Extra > Verwijzingen. Schakel in het dialoogvenster Verwijzingen - Project1 dat verschijnt de opties Microsoft Word Object Library en Microsoft Scripting Runtime in de lijst Beschikbare verwijzingen in. Zie de schermafbeelding:

4. Klik daarna op OK om het dialoogvenster te sluiten. U moet nu een taak aanmaken om de VBA-code te activeren. Ga naar het deelvenster Taak en klik op Taak om een taak aan te maken:

(1.) Voer in het veld Onderwerphet onderwerp in als Verjaardagswensmail verzenden;

(2.) Klik vervolgens op Periodiciteitonder het tabblad Taak;

(3.) Selecteer in het dialoogvenster Periodiciteit van taakde optie Dagelijksen geef elke 1 dag(en)op in het gedeelte Herhalingspatroon;

5. Klik daarna op OK om het dialoogvenster te sluiten. Keer terug naar het taakvenster en stel een herinnering in voor de terugkerende taak, zoals op de volgende schermafbeelding wordt weergegeven:

6. Vanaf nu wordt de macro direct geactiveerd zodra de herinnering verschijnt. Er verschijnt een dialoogvenster waarin u gevraagd wordt de verjaardagswensen in te voeren, zoals op de volgende schermafbeelding is weergegeven:

7. Klik daarna op de knop OK, waarna automatisch een wensmail wordt verzonden naar het contactpersoon wiens verjaardag vandaag is.