Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

 Hoe stuur ik automatisch een begroetingsbericht naar een contactpersoon als zijn verjaardag vandaag in Outlook is?

Soms wilt u automatisch een begroetingsbericht naar de contactpersoon sturen wanneer zijn verjaardag vandaag in Outlook is. Het zal een vervelende klus zijn als je de verjaardag van de contactpersoon een voor een controleert en de begroetingsmails handmatig verstuurt. In dit artikel zal ik een VBA-code introduceren om het snel en gemakkelijk op te lossen.

Stuur automatisch een begroetingsbericht naar een contact op basis van zijn verjaardag met VBA-code in Outlook


Stuur automatisch een begroetingsbericht naar een contact op basis van zijn verjaardag met VBA-code in Outlook

Als u automatisch een begroetingsbericht naar een contactpersoon wilt sturen als zijn verjaardag vandaag is, voert u eerst een VBA-code in, waarna u een terugkerende taak moet maken om de code te activeren.

De volgende stappen kunnen u helpen:

1. Start Outlook en houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van de Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: stuur automatisch een begroetingsbericht naar een contact 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. Klikt dan Toolbox > Referenties functie in het Microsoft Visual Basic voor toepassingen raam, in de pop uit Referenties-Project1 dialoogvenster, vink aan Microsoft Word-objectbibliotheek als Microsoft Scripting Runtime opties uit de Beschikbare referenties keuzelijst, zie screenshot:

4. Dan klikken OK om het dialoogvenster te sluiten, moet u nu een taak maken om de VBA-code te activeren. Ga naar het Taak venster, klik op Nieuwe taak om een ​​taak te maken:

(1 in Onderwt regel, moet u Onderwerp invoeren als Stuur een verjaardagsgroet;

(2.) Klik vervolgens Herhaling onder de Taak tab;

(3.) In het Taakherhaling dialoogvenster, selecteer Daily en specificeer elke 1 dag (en) optie van de Herhalingspatroon sectie;

5. Dan klikken OK om het dialoogvenster te sluiten, keert u terug naar het taakvenster, stel een herinnering in voor de terugkerende taak zoals in het volgende screenshot wordt getoond:

6. Vanaf nu, wanneer de herinnering waarschuwt, wordt de macro onmiddellijk geactiveerd. Er verschijnt een dialoogvenster om u eraan te herinneren de verjaardagsgroeten in te voegen zoals in het volgende screenshot:

7. Dan klikken OK knop, wordt automatisch een begroetingsmail gestuurd naar de contactpersoon wiens verjaardag vandaag is.


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    kamaljeet singh · 1 years ago
    how he come to know who's birthday is today.
    you not mention, from where he pick detail of the employee.
    one more thing, i want to send birthday mail to all employee email id.
  • To post as a guest, your comment is unpublished.
    amitchaudhary106@gmail.com · 2 years ago
    I am using this code with outlook 2016. Followed all the steps but kutool popup is not coming as mentioned in last step
  • To post as a guest, your comment is unpublished.
    pedro · 3 years ago
    hay alguna forma para mac?
  • To post as a guest, your comment is unpublished.
    garcia · 3 years ago
    Buen día, podría indicar cómo el código obtiene y valida la fecha de nacimiento??? . Otra consulta es si funciona para una lista de usuarios. Es decir que valide sus fechas de nacimiento y les envíe automáticamente saludos de cumpleaños. Muchas gracias