Ugrás a tartalomra

 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


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

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? 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 ProKö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.

 

 

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good morning,
I've set this up exactly as outlined, I have Kutools installed, however, there's no Macro popup when the reminder activates. What information can I provide you to help me solve this?
This comment was minimized by the moderator on the site
how he come to know who's birthday is today.you not mention, from where he pick detail of the employee.one more thing, i want to send birthday mail to all employee email id.
This comment was minimized by the moderator on the site
I am using this code with outlook 2016. Followed all the steps but kutool popup is not coming as mentioned in last step
This comment was minimized by the moderator on the site
hay alguna forma para mac?
This comment was minimized by the moderator on the site
Buen día, podría indicar cómo el código obtiene y valida la fecha de nacimiento??? . Otra consulta es si funciona para una lista de usuarios. Es decir que valide sus fechas de nacimiento y les envíe automáticamente saludos de cumpleaños. Muchas gracias
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations