मुझे दिन के एक निश्चित समय पर कुछ ईमेल भेजने की आवश्यकता है और इसे हर दिन करने की आवश्यकता है। मैं इसे आउटलुक के साथ कैसे कर सकता हूं?
Delay delivery
एक विशिष्ट समय पर मेल भेजने में मदद करता है; लेकिन कल के लिए भेजे जाने वाले नए मेल कैसे बनाएं?
मुझे दिन के एक निश्चित समय पर कुछ ईमेल भेजने की आवश्यकता है और इसे हर दिन करने की आवश्यकता है। मैं इसे आउटलुक के साथ कैसे कर सकता हूं?
Delay delivery
एक विशिष्ट समय पर मेल भेजने में मदद करता है; लेकिन कल के लिए भेजे जाने वाले नए मेल कैसे बनाएं?
जवाबों:
ठीक है, यहाँ यह करने के लिए एक तरह से त्वरित स्पष्टीकरण है। इसे आउटलुक VBA संपादक में मैक्रो सेट करने की आवश्यकता है। यदि आपने पहले कभी ऐसा नहीं किया है, तो थोड़ा सा सेटअप करना होगा जिसे आपको पहले करना होगा। (ध्यान दें कि आउटलुक के लिए मैक्रोज़ बनाना कठिन नहीं है, ऐसी कई जगहें हैं जहाँ गलतियाँ हो सकती हैं जिससे भ्रम और हताशा हो सकती है। यदि आप इस पर एक शुरुआत कर रहे हैं और जारी रखना चाहते हैं, तो मैं अत्यधिक ध्यान से पूरे MSDN पृष्ठ को पढ़ने की सलाह देता हूँ। नीचे दिए गए पहले चरण में जुड़ा हुआ है।)
1. VBA संपादक खोलें।
आउटलुक रिबन बार पर, डेवलपर टैब पर क्लिक करें (इसे यहां सक्षम करें ), और फिर क्लिक करें Visual Basic
। यदि आपके रिबन पट्टी पर डेवलपर टैब नहीं है, तो आपको इसे सक्षम करना होगा। इस MSDN पृष्ठ पर दिए गए निर्देशों का संदर्भ लें ("डेवलपर टैब को सक्षम करने के लिए लेबल किए गए अनुभाग पर स्क्रॉल करें। नोट: आपको" मैक्रो को सक्षम करने के लिए "लेबल वाले उस साइट के अनुभाग को भी पढ़ना चाहिए)। Visual Basic
बटन दबाने से एक नया एप्लिकेशन खुल जाएगा (VBA संपादक); खुला ThisOutlookSession
, बीच में बड़ा फलक है जहाँ आपका मैक्रो जाएगा।
उपयोग करने के लिए, VBA संपादक खोलने के लिए Alt + F11 दबाएँ और फिर कोड को कॉपी करके ThisOutlookSession में पेस्ट करें। ( संदर्भ )
2. मैक्रो फलक के निचले भाग पर निम्न मैक्रो चिपकाएँ।
'Original function written by Diane Poremsky: http://www.slipstick.com/developer/send-email-outlook-reminders-fires/
Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If
If Item.Categories <> "Automated Email Sender" Then
Exit Sub
End If
objMsg.To = Item.Location
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
objMsg.Send
Set objMsg = Nothing
End Sub
3. एक नई श्रेणी बनाएँ।
नई बनाई गई श्रेणी ( कैसे ) को बुलाया जाना चाहिए Automated Email Sender
(यह एक मनमाना शीर्षक है, लेकिन यदि आप इसे बदलते हैं, तो इसे मैक्रो में भी बदलना सुनिश्चित करें)।
4. कैलेंडर अपॉइंटमेंट बनाएं।
प्राप्तकर्ता ईमेल को "स्थान" फ़ील्ड में रखें।
नियुक्ति के "विषय" फ़ील्ड का उपयोग ईमेल के विषय क्षेत्र के रूप में किया जाएगा।
नियुक्ति का "निकाय" ईमेल का मुख्य भाग होगा।
आप जो भी शेड्यूल चाहते हैं, उस पर पुन: नियुक्ति के लिए अपॉइंटमेंट सेट करें। एक अनुस्मारक सेट करना सुनिश्चित करें।
अनुस्मारक समय सेट करें
इसके अलावा, पिछले चरण में आपके द्वारा बनाई गई श्रेणी को असाइन करना न भूलें।
स्थान क्षेत्र में अपना ईमेल पता डालकर पहले इसका परीक्षण करें।
बस! जब तक आपकी मैक्रो सुरक्षा सेटिंग्स सही सेट नहीं हो जाती हैं, तब तक यह मैक्रो ईमेल को स्वचालित रूप से भेजने का कारण होगा जब भी निर्दिष्ट श्रेणी के साथ एक नियुक्ति पर एक रिमाइंडर प्राप्त होता है।
Application_Reminder
) देखें। यह एक बिल्ट-इन आउटलुक ईवेंट हैंडलर है जो रिमाइंडर से आग लगने पर आउटलुक द्वारा स्वचालित रूप से कॉल किया जाता है। तो रिमाइंडर वह ट्रिगर है जो यह काम करता है।
objMsg = Application.CreateItemFromTemplate("C:\Users\[USER]\AppData\Roaming\Microsoft\Templates\Test.oft")
।