युक्ति: अन्य भाषाओं में Google-Translated आप यात्रा कर सकते हैं English इस लिंक का संस्करण
लॉग इन करें
x
or
x
x
रजिस्टर
x

or

Outlook के माध्यम से भेजने से पहले प्राप्तकर्ता पते कैसे जांचें?

कुछ समय में, आप आउटलुक के माध्यम से ई-मेल भेजते समय कुछ महत्वपूर्ण प्राप्तकर्ताओं को टू, सीसी या बीसीसी फ़ील्ड में जोड़ना याद कर सकते हैं। यहां, मैं यह देखने के लिए एक विधि पेश कर सकता हूं कि Outlook के माध्यम से भेजने से पहले विशिष्ट ईमेल पते जोड़े गए हैं या नहीं।

वीबीए कोड भेजने से पहले पते की जांच करें

सभी को जवाब में खुद को छोड़ दें

जब हम Outlook में सभी फ़ंक्शन के उत्तर का उपयोग करते हैं, तो हम आपके खाते को फ़ील्ड में भी जोड़ सकते हैं यदि आपके द्वारा प्राप्त किए गए ईमेल में आपके दो खाते हैं। इस मामले में, आप अपने खातों को टू और सीसी फ़ील्ड से हटाना चाहते हैं। आउटलुक के लिए Ktools's मेरा नाम आप इस नौकरी को जल्दी से हल करने के लिए एक पक्ष कर सकते हैं। केवल एक क्लिक की आवश्यकता है, Outlook में सभी myselft खातों को To और CC फ़ील्ड से निकाल दिया जाएगा। 45 दिनों के नि: शुल्क परीक्षण के लिए क्लिक करें!
डॉक्टर उत्तर खाते को बाहर कर दें
डॉक्टर तीर डॉव

दस्तावेज़ उत्तर 2 खाता बहिष्कृत करें
आउटलुक के लिए कुतुल्सः डज़ने वाले आसान आउटलुक ऐड-इन्स के साथ, 45 दिनों में बिना सीमा के लिए प्रयास करें।

वीबीए कोड भेजने से पहले पते की जांच करें

यहां मेरे पास दो कोड हैं जो आपको इस नौकरी को हल करने में मदद कर सकते हैं, आप किसी को भी अपनी जरूरत के अनुसार चुन सकते हैं।

1। दबाएँ Alt + F11 कश्मीरसक्षम करने के लिए eys अनुप्रयोगों के लिए Microsoft Visual Basic खिड़की.

2। डबल क्लिक करें ThisOutlookSession से Project1 कोड संपादक खोलने के लिए फलक, कोड के नीचे कोड कॉपी और पेस्ट करें।

वीबीए: भेजने से पहले फ़ील्ड में प्राप्तकर्ता का पता लगाएं

निजी उप एप्लिकेशन_इटेमसेन्ड (ऑब्जेक्ट के रूप में बायवॉल आइटम, बूलियन के रूप में रद्द करें) 'अपडेटबीएक्सेंडऑफिसएक्सएक्सएक्स डिम एक्सएड्रेसएआरआर () वैरिएंट डिम एक्सएड्रेस के रूप में स्ट्रिंग डिम एक्स रेसिएंट के रूप में प्राप्तकर्ता के रूप में डिम xPrompt स्ट्रिंग डिम xYesNo के रूप में पूर्णांक Dim xDictionary के रूप में Scripting.Dictionary त्रुटि पर फिर से शुरू करें xDictionary = नई Scripting.Dictionary xAddressArr = सरणी ( "example20180523@1.com", "example126@2.com", "example126@3.com") मैं = LBound (xAddressArr) UBound करने के लिए (xAddressArr) xDictionary.Add xAddressArr (मैं के लिए ), सही है मैं आइटम में प्रत्येक xRecipient के लिए। Recipients यदि xRecipient.Type = olTo तो xDictionary.Exists (xRecipient.Address) फिर xDictionary.Rrove xRecipient.Address End यदि अगला है तो xDictionary.Count = 126 फिर GoTo L0 I = 1 करने के लिए xDictionary.Count - 0 तो xAddress = "" तो फिर xAddress = xDictionary.Keys (i) वरना xAddress = xAddress + "," और xDictionary.Keys (i) अंत तो अगला i = xPrompt "आप को यह नहीं भेज रहे हैं: "और xAddress &"। क्या आप वाकई मेल भेजना चाहते हैं? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Outlook के लिए Kutools") xYesNo = vbNo फिर रद्द = सच L1 हैं: सेट xRecipient = कुछ भी नहीं सेट xDictionary = कुछ भी नहीं End Sub

1 भेजने से पहले दस्तावेज़ प्राप्तकर्ता का पता लगाएं

कोड में, आप बदल सकते हैं ("example1@126.com", "example2@126.com", "example3@126.com") वास्तविक प्राप्तकर्ताओं को आपको चाहिए।

3। फिर भी में अनुप्रयोगों के लिए Microsoft Visual Basic खिड़की, क्लिक करें टूल्स > संदर्भ। चेक माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम चेकबॉक्स में संदर्भ-Project1 संवाद।

2 भेजने से पहले दस्तावेज़ प्राप्तकर्ता का पता लगाएं डॉक्टर तीर सही 3 भेजने से पहले दस्तावेज़ प्राप्तकर्ता का पता लगाएं

4। क्लिक करें OK और कोड को बचाओ।

अब यदि ईमेल प्राप्त करते समय निर्दिष्ट प्राप्तकर्ता फ़ील्ड में नहीं दिखते हैं, तो ईमेल भेजने के लिए आपको याद दिलाने के लिए एक संवाद पॉप आउट हो जाएगा।
4 भेजने से पहले दस्तावेज़ प्राप्तकर्ता का पता लगाएं

उपरोक्त कोड के साथ, यह केवल ईमेल पते की जांच करता है सेवा मेरे फ़ील्ड, अगर आप चेक इन करना चाहते हैं सेवा मेरे, CC तथा बीसीसी फ़ील्ड, आप नीचे कोड का उपयोग कर सकते हैं।

वीबीए: भेजने से पहले प्राप्तकर्ता पते को / सीसी / बीसीसी क्षेत्रों में जांचें

निजी उप Application_ItemSend (ByVal मद वस्तु के रूप में, रद्द बूलियन के रूप में) 'त्रुटि पर UpdatebyExtendoffice20180523 मंद xRecipients Outlook.Recipients मंद xRecipient Outlook.Recipient मंद xPos पूर्णांक मंद xYesNo पूर्णांक मंद xPrompt स्ट्रिंग मंद xAddress स्ट्रिंग के रूप में के रूप में के रूप में के रूप में के रूप में के रूप में फिर से शुरू करें अगला तो मद। कक्षा <> olMail फिर बाहर निकलें उप सेट xRecipients = Item.Recipients xAddress = "example1@gmail.com" xRecipients में प्रत्येक xRecipient xPos = InStr (LCase (xRecipient.Address), xAddress) के लिए तो xPos = 0 फिर xPrompt = "आप भेजने यह "& xAddress &" पर है। क्या आप वाकई इसे भेजना चाहते हैं? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Outlook के लिए कुटूल") यदि xYesNo = vbNo फिर रद्द करें = सही अंत यदि अगला xRecipient End Sub

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



आउटलुक के लिए कुतुल्स

आउटलुक 100, 2010, 2013, 2016 और 2019 के लिए 365 से अधिक उन्नत कार्य

बैनर 201812 के लिए आउटलुक के लिए स्क्रीन शॉट कुटूल

अधिक सुविधाएँ | मुफ्त डाउनलोड | सैकड़ों कार्यों के लिए केवल $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.