Kako samodejno poslati pozdravno sporočilo stiku, če je njegov rojstni dan danes v Outlooku?
Včasih boste morda želeli stiku samodejno poslati pozdravno sporočilo, ko je danes v Outlooku njegov rojstni dan. Dolgočasno delo bo, če enega za drugim preverite rojstni dan stika in ročno pošljete e-poštna sporočila s čestitkami. V tem članku bom predstavil kodo VBA, da jo hitro in enostavno rešite.
Samodejno pošljite pozdravno sporočilo stiku na podlagi njegovega rojstnega dne s kodo VBA v programu Outlook
Če želite stiku samodejno poslati pozdravno sporočilo, če je danes njegov rojstni dan, najprej vstavite kodo VBA, nato pa morate ustvariti ponavljajočo se nalogo za sprožitev kode.
Naslednji koraki vam lahko pomagajo:
1. Zaženite Outlook in pridržite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.
Koda VBA: Samodejno pošlji pozdravno sporočilo stiku glede na rojstni dan:
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. Potem clcik Orodja > Reference v Microsoft Visual Basic za aplikacije okno, v izpuščenem Reference-Projekt1 pogovorno okno, preverite Knjižnica predmetov Microsoft Word in Izvajanje Microsoftovih skriptov možnosti iz Razpoložljive reference seznam, glej posnetek zaslona:
4. Nato kliknite OK Če želite zapreti pogovorno okno, bi morali ustvariti nalogo za sprožitev kode VBA. Prosimo, pojdite na Naloga podokno, kliknite New Task ustvariti nalogo:
(1.) V Predmett, morate vnesti Zadevo kot Pošlji rojstnodnevno čestitko;
(2.) Nato kliknite Ponovitev pod Naloga zavihek;
(3.) V Ponavljanje naloge pogovorno okno, izberite dnevni in navedite vsak 1 dan(-e) možnost iz Vnovični vzorec odsek;
5. Nato kliknite OK če želite zapreti pogovorno okno, se vrnite v okno opravil, prosimo, nastavite opomnik za ponavljajoče se opravilo, kot je prikazan naslednji posnetek zaslona:
6. Od zdaj naprej, ko vas opomnik opozori, se bo makro sprožil takoj. Odprlo se bo pogovorno okno, ki vas bo opomnilo na vstavljanje rojstnodnevnih voščil, kot je prikazano na spodnji sliki zaslona:
7. Nato kliknite OK gumb, bo kontaktu, katerega rojstni dan je danes, samodejno poslano pozdravno sporočilo.
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.