Kuinka lähettää tervehdysviesti yhteyshenkilölle automaattisesti, jos hänen syntymäpäivänsä on tänään Outlookissa?
Joskus saatat haluta lähettää yhteystiedolle automaattisesti tervehdysviestin, kun hänen syntymäpäivänsä on tänään Outlookissa. Se on työlästä, kun tarkistat yhteyshenkilön syntymäpäivät yksitellen ja lähetät tervehdyssähköpostit manuaalisesti. Tässä artikkelissa esittelen VBA-koodin ratkaistaksesi sen nopeasti ja helposti.
Lähetä yhteyshenkilölle automaattisesti tervehdys hänen syntymäpäivänsä perusteella VBA-koodilla Outlookissa
Jos haluat lähettää tervehdysviestin automaattisesti yhteystiedolle, jos hänen syntymäpäivänsä on tänään, lisää ensin VBA-koodi ja sitten sinun on luotava toistuva tehtävä koodin käynnistämiseksi.
Seuraavat vaiheet voivat auttaa sinua:
1. Käynnistä Outlook ja pidä sitten -näppäintä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession mistä Projekti1 (VbaProject.OTM) ruudusta avataksesi tilan ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: lähettää automaattisesti tervehdysviestin yhteyshenkilölle syntymäpäivän perusteella:
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. Sitten clcik Työkalut > Viitteet vuonna Microsoft Visual Basic for Applications ikkunassa, avautuneessa ulos Referenssit-Projekti1 valintaikkuna, tarkista Microsoft Word -objektikirjasto ja Microsoft Scripting Runtime vaihtoehdot kohteesta Saatavilla olevat referenssit luetteloruutu, katso kuvakaappaus:
4. Napsauta sitten OK sulkeaksesi valintaikkunan, sinun tulee nyt luoda tehtävä, joka laukaisee VBA-koodin. Ole hyvä ja mene osoitteeseen Tehtävä Pane, napsauta Uusi tehtävä tehtävän luominen:
(1.) In Aihet-riville, kirjoita Aihe muodossa Lähetä syntymäpäivätervehdyspostia;
(2.) Napsauta sitten Toistuminen alla Tehtävä välilehti;
(3.) Vuonna Tehtävän toistuminen valintaikkunassa, valitse Päivä ja täsmentää 1 päivän välein Vaihtoehto Toistuva kuvio osio;
5. Napsauta sitten OK sulkeaksesi valintaikkunan, palaa tehtäväikkunaan, aseta muistutus toistuvasta tehtävästä seuraavan kuvakaappauksen mukaisesti:
6. Tästä eteenpäin, kun muistutus hälyttää, makro käynnistyy välittömästi. Näyttöön tulee valintaikkuna, joka muistuttaa sinua syntymäpäivätervehdysten lisäämisestä seuraavan kuvakaappauksen mukaisesti:
7. Napsauta sitten OK -painiketta, tervehdysposti lähetetään automaattisesti yhteystiedolle, jonka syntymäpäivä on tänään.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
