यदि किसी संपर्क का जन्मदिन आज है तो आउटलुक में उसे स्वचालित रूप से शुभकामना संदेश कैसे भेजें?

कभी-कभी, आप आउटलुक में उस संपर्क को स्वचालित रूप से एक शुभकामना संदेश भेजना चाह सकते हैं जब उसका जन्मदिन आज हो। यह एक कठिन काम होगा जब आप एक-एक करके संपर्क के जन्मदिन की जांच करेंगे और मैन्युअल रूप से ग्रीटिंग ईमेल भेजेंगे। इस लेख में, मैं इसे जल्दी और आसानी से हल करने के लिए एक वीबीए कोड पेश करूंगा।

आउटलुक में वीबीए कोड के साथ किसी संपर्क को उसके जन्मदिन के आधार पर स्वचालित रूप से शुभकामना संदेश भेजें

आउटलुक में वीबीए कोड के साथ किसी संपर्क को उसके जन्मदिन के आधार पर स्वचालित रूप से शुभकामना संदेश भेजें

यदि किसी संपर्क का जन्मदिन आज है तो उसे स्वचालित रूप से शुभकामना संदेश भेजने के लिए, पहले एक वीबीए कोड डालें, फिर आपको कोड को ट्रिगर करने के लिए एक आवर्ती कार्य बनाना होगा।

निम्नलिखित चरण आपकी सहायता कर सकते हैं:

1. आउटलुक लॉन्च करें, और फिर दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह आउटलुक सत्र से प्रोजेक्ट1(VbaProject.OTM) मोड खोलने के लिए फलक, और फिर निम्न कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें।

वीबीए कोड: जन्मदिन के आधार पर किसी संपर्क को स्वतः शुभकामना संदेश भेजें:

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. फिर क्लिक करें टूल्स > संदर्भ में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, बाहर निकली हुई सन्दर्भ-परियोजना1 संवाद बॉक्स, जाँचें माइक्रोसॉफ्ट वर्ड ऑब्जेक्ट लाइब्रेरी और माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम से विकल्प उपलब्ध संदर्भ सूची बॉक्स, स्क्रीनशॉट देखें:

4। तब दबायें OK संवाद बंद करने के लिए, अब, आपको VBA कोड को ट्रिगर करने के लिए एक कार्य बनाना चाहिए। कृपया पर जाएँ कार्य फलक, क्लिक करें नया कार्य कोई कार्य बनाने के लिए:

(में 1 subjecटी लाइन, आपको विषय को इस रूप में दर्ज करना चाहिए जन्मदिन शुभकामना मेल भेजें;

(2.) फिर क्लिक करें पुनरावृत्ति नीचे कार्य टैब;

(3.)में कार्य पुनरावृत्ति संवाद बॉक्स में, चयन करें दैनिक और निर्दिष्ट करें हर 1 दिन से विकल्प पुनरावृत्ति पैटर्न अनुभाग;

5। तब दबायें OK संवाद बॉक्स को बंद करने के लिए, कार्य विंडो पर वापस लौटें, कृपया आवर्ती कार्य के लिए एक अनुस्मारक सेट करें जैसा कि स्क्रीनशॉट में दिखाया गया है:

6. अब से, जब अनुस्मारक अलर्ट होगा, तो मैक्रो तुरंत चालू हो जाएगा। निम्नलिखित स्क्रीनशॉट में दिखाए गए अनुसार आपको जन्मदिन की शुभकामनाएं डालने की याद दिलाने के लिए एक संवाद बॉक्स खुलेगा:

7। तब दबायें OK बटन, जिस संपर्क का आज जन्मदिन है, उसे स्वचालित रूप से एक शुभकामना मेल भेजा जाएगा।

---

सर्वोत्तम कार्यालय उत्पादकता उपकरण

आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ

🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...

📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध)  /  ईमेल भेजने का शेड्यूल करें  /  ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी  /  स्वतः अग्रेषित (उन्नत नियम)   /  स्वतः ग्रीटिंग जोड़ें   /  बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...

📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें  /  विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें  /  डुप्लिकेट ईमेल हटाएँ  /  उन्नत खोज  /  फ़ोल्डरों को समेकित करें ...

📁 अनुलग्नक प्रो: बैच सहेजें  /  बैच अलग करना  /  बैच संपीड़न  /  ऑटो सहेजें   /  ऑटो डिटैच  /  ऑटो कंप्रेस ...

🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी   /  टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ  /  आउटलुक को बंद करने के बजाय छोटा करें ...

???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें  /   फ़िशिंग-रोधी ईमेल  /  🕘प्रेषक का समय क्षेत्र दिखाएं ...

👩🏼‍🤝‍👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें  /  किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें  /  जन्मदिन अनुस्मारक हटाएँ ...

के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।

विस्तार में पढ़ें       मुफ्त डाउनलोड      खरीद फरोख्त