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
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 het 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. Klik dan Tools > Referenties in de Microsoft Visual Basic voor toepassingen raam, in de pop uit Referenties-Project1 dialoogvenster, vink aan Microsoft Word-objectbibliotheek en 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 alstublieft naar de Taak venster, klik op Nieuwe taak een taak aanmaken:
(1 in Onderwt regel, moet u Onderwerp invoeren als Verjaardagsgroetmail verzenden;
(2.) Klik vervolgens Herhaling onder de Taak tab;
(3.) In het Taakherhaling dialoogvenster, selecteer Dagelijkse 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 de onderstaande schermafbeelding:
6. Vanaf nu wordt de macro onmiddellijk geactiveerd wanneer de herinnering waarschuwt. Er verschijnt een dialoogvenster om u eraan te herinneren de verjaardagswensen in te voegen, zoals in de volgende schermafbeelding:
7. Dan klikken OK knop, wordt er automatisch een begroetingsmail verzonden naar de contactpersoon wiens verjaardag vandaag is.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.