Hogyan küldhetünk automatikusan üdvözlő üzenetet egy ismerősnek, ha ma születésnapja van az Outlook programban?
Valamikor érdemes automatikusan üdvözlő üzenetet küldeni a kapcsolattartónak, amikor ma születésnapja van az Outlookban. Unalmas munka lesz, ha egyenként ellenőrzi a kapcsolattartó születésnapját, és kézzel küldi el az üdvözlő e-maileket. Ebben a cikkben bemutatok egy VBA kódot, amely gyorsan és egyszerűen megoldható.
Küldjön automatikusan üdvözlő üzenetet egy névjegyének a születésnapja alapján VBA-kóddal az Outlook programban
Ha üdvözlő üzenetet szeretne automatikusan elküldeni egy partnernek, ha ma van a születésnapja, először helyezzen be egy VBA kódot, majd létre kell hoznia egy ismétlődő feladatot a kód elindításához.
A következő lépések segíthetnek:
1. Indítsa el az Outlook programot, majd tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.
VBA kód: Üdvözlő üzenet automatikus elküldése egy partnernek születésnap alapján:
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. Akkor clcik Eszközök > Referenciák a Microsoft Visual Basic for Applications ablak, a kiugrott Referenciák-Projekt1 párbeszédpanelen ellenőrizze Microsoft Word objektumkönyvtár és a Microsoft Scripting Runtime lehetőségek a Elérhető referenciák lista mező, lásd a képernyőképet:
4. Ezután kattintson OK a párbeszédablak bezárásához most létre kell hoznia egy feladatot a VBA kód elindításához. Kérjük, menjen a Feladat tetején kattintson a gombra új feladat feladat létrehozásához:
(1.) In Tárgyt sor, akkor írja be a Tárgy nevét Születésnapi üdvözlő levél küldése;
(2.) Ezután kattintson Ismétlődés alatt a Feladat fül;
(3.) A Feladat megismétlődése párbeszédpanelen válassza ki Napi és adja meg 1 naponta lehetőség a Megismétlődési minta szakasz;
5. Ezután kattintson OK a párbeszédpanel bezárásához térjen vissza a feladatablakhoz, kérjük, állítson be egy emlékeztetőt az ismétlődő feladatról az alábbi képernyőképen:
6. Mostantól, amikor az emlékeztető riaszt, a makró azonnal aktiválódik. Megjelenik egy párbeszédpanel, amely emlékezteti Önt a születésnapi üdvözlet beszúrására a következő képernyőkép szerint:
7. Ezután kattintson OK gombra, üdvözlő levelet küldünk annak a partnernek, akinek ma születésnapja van.
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.