आउटलुक में बाहरी डोमेन पर ईमेल भेजते समय चेतावनी कैसे प्राप्त करें?
आउटलुक का उपयोग करते समय, आप अपनी कंपनी के बाहर प्राप्तकर्ताओं को गलती से ईमेल भेजने से कैसे रोक सकते हैं? दरअसल, आउटलुक में बाहरी डोमेन पर ईमेल भेजते समय आप चेतावनी बॉक्स प्रदर्शित कर सकते हैं। यह आलेख इसे प्राप्त करने के लिए एक VBA विधि प्रस्तुत करेगा।
VBA कोड के साथ बाहरी डोमेन पर ईमेल भेजते समय चेतावनी प्राप्त करें
VBA कोड के साथ बाहरी डोमेन पर ईमेल भेजते समय चेतावनी प्राप्त करें
आउटलुक में बाहरी डोमेन पर ईमेल भेजते समय निम्नलिखित वीबीए कोड आपको चेतावनी प्राप्त करने में मदद कर सकता है। कृपया निम्नानुसार करें.
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह आउटलुक सत्र को खोलने के लिए यह आउटलुक सत्र (कोड) विंडो, और फिर नीचे दिए गए VBA कोड को विंडो में कॉपी करें। स्क्रीनशॉट देखें:
वीबीए कोड: बाहरी डोमेन पर ईमेल भेजते समय चेतावनी प्राप्त करें
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub
नोट: कोड में, "@addin99.com” वह आंतरिक ईमेल डोमेन है जिस पर आप ईमेल भेजेंगे। कृपया इसे आवश्यकतानुसार बदलें।
अब से, बाहरी ईमेल डोमेन (वीबीए कोड में आपके द्वारा निर्दिष्ट आंतरिक ईमेल डोमेन नहीं) पर ईमेल भेजने के लिए भेजें बटन पर क्लिक करते समय, एक चेतावनी बॉक्स नीचे स्क्रीनशॉट में दिखाए अनुसार पॉप अप होगा।
संबंधित आलेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!