Conas teachtaireacht beannachta a sheoladh chuig teagmhálaí go huathoibríoch má tá a lá breithe inniu in Outlook?
Am éigin, b’fhéidir gur mhaith leat teachtaireacht beannachta a sheoladh go huathoibríoch chuig an teagmhálaí nuair a bheidh a lá breithe inniu in Outlook. Post slachtmhar a bheidh ann nuair a sheiceálfaidh tú lá breithe an teagmhálaí ceann ar cheann agus na ríomhphoist beannachta a sheoladh de láimh. An t-alt seo, tabharfaidh mé cód VBA isteach chun é a réiteach go tapa agus go héasca.
Seol teachtaireacht beannachta go huathoibríoch chuig teagmhálaí bunaithe ar a lá breithe le cód VBA in Outlook
Chun teachtaireacht beannachta a sheoladh go huathoibríoch chuig teagmhálaí má tá a lá breithe inniu, cuir isteach cód VBA ar dtús, ansin ní mór duit tasc athfhillteach a chruthú chun an cód a spreagadh.
D’fhéadfadh na céimeanna seo a leanas cabhrú leat:
1. Seoladh an Outlook, agus ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.
Cód VBA: Seol Auto teachtaireacht beannachta chuig teagmhálaí bunaithe ar lá breithe:
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. Ansin clcik uirlisí > tagairtí sa Microsoft Visual Basic d’Fheidhmchláir fhuinneog, sa popped amach Tagairtí-Tionscadal1 bosca dialóige, seiceáil Leabharlann Réada Microsoft Word agus Microsoft Scripting Runtime roghanna ón Tagairtí atá ar Fáil bosca liosta, féach an scáileán:
4. Ansin cliceáil OK chun an dialóg a dhúnadh, anois, ba cheart duit tasc a chruthú chun an cód VBA a spreagadh. Téigh chuig an Tasc pane, cliceáil Tasc Nua chun tasc a chruthú:
(1.) I Ábhart líne, ba chóir duit Ábhar a iontráil mar Seol Ríomh Beannachta Breithlá;
(2.) Ansin cliceáil Atarlú faoi na Tasc cluaisín;
(3.) Sa Atarlú Tasc dialóg, roghnaigh laethúil agus sonraigh gach 1 lá (laethanta) rogha ón Patrún atarlú alt;
5. Ansin cliceáil OK chun an bosca dialóige a dhúnadh, filleadh ar fhuinneog an taisc, socraigh meabhrúchán don tasc athfhillteach mar a thaispeántar an scáileán a leanas:
6. As seo amach, nuair a thabharfaidh an meabhrúchán foláireamh, spreagfar an macra láithreach. Tiocfaidh bosca dialóige amach le cur i gcuimhne duit na beannachtaí lá breithe a chur isteach mar a leanas an pictiúr a thaispeántar:
7. Ansin cliceáil OK cnaipe, seolfar post beannachta chuig an teagmhálaí a bhfuil a lá breithe inniu go huathoibríoch.
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú
🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...
📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...
Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.
