एक्सेल में वर्कबुक अपडेट होने पर ईमेल रिमाइंडर या नोटिफिकेशन कैसे भेजें?
कुछ मामलों में, यदि आपके द्वारा भेजी गई कार्यपुस्तिका में डेटा अपडेट किया गया है तो आपको किसी निर्दिष्ट प्राप्तकर्ता को एक ईमेल अधिसूचना ट्रिगर करने की आवश्यकता हो सकती है। यह आलेख आपको इसे प्राप्त करने की विधि दिखाएगा.
यदि कार्यपुस्तिका VBA कोड के साथ अद्यतन की गई है तो ईमेल अनुस्मारक या अधिसूचना भेजें
यदि कार्यपुस्तिका VBA कोड के साथ अद्यतन की गई है तो ईमेल अनुस्मारक या अधिसूचना भेजें
यदि कार्यपुस्तिका अद्यतन है तो कृपया ईमेल अनुस्मारक या अधिसूचना भेजने के लिए निम्नानुसार कार्य करें।
1. कार्यपुस्तिका में, एक निर्दिष्ट कार्यपत्रक खोलें, आपको अंदर अद्यतन डेटा के आधार पर ईमेल अधिसूचना भेजी जाएगी।
2. शीट टैब पर राइट-क्लिक करें, और चुनें कोड देखें राइट क्लिक मेनू से. स्क्रीनशॉट देखें:
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्नलिखित कोड को कॉपी करें और कोड विंडो में पेस्ट करें। स्क्रीनशॉट देखें:
वीबीए कोड: यदि कार्यपुस्तिका अद्यतन है तो ईमेल अनुस्मारक या अधिसूचना भेजें
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Sub
नोट: ईमेल पते को पंक्ति में प्राप्तकर्ता ईमेल पते से बदलें .To = "ईमेल पता". और आवश्यकतानुसार वीबीए कोड में सीसी, विषय और बॉडी फ़ील्ड बदलें।
3। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
4. वर्कशीट में किसी सेल को एडिट करने के बाद a एक्सेल के लिए कुटूल नीचे दिखाए गए स्क्रीनशॉट के अनुसार डायलॉग बॉक्स पॉप अप होगा। यदि आप ईमेल में अद्यतन कार्यपुस्तिका संलग्न करना चाहते हैं, तो कृपया क्लिक करें हाँ बटन। यदि नहीं, तो क्लिक करें नहीं बटन.
5. फिर अद्यतन कार्यपुस्तिका संलग्न होने के साथ या उसके बिना भी एक ईमेल स्वचालित रूप से बन जाती है। और सभी निर्दिष्ट फ़ील्ड ईमेल में भी सूचीबद्ध हैं। कृपया क्लिक करें भेजें इसे भेजने के लिए बटन.
नोट: वीबीए कोड केवल तभी काम करता है जब आप आउटलुक को अपने ईमेल प्रोग्राम के रूप में उपयोग करते हैं।
संबंधित आलेख:
- एक्सेल में सेल वैल्यू के आधार पर स्वचालित रूप से ईमेल कैसे भेजें?
- जब वर्कबुक एक्सेल में सेव हो तो आउटलुक के माध्यम से ईमेल कैसे भेजें?
- यदि एक्सेल में एक निश्चित सेल को संशोधित किया गया है तो ईमेल कैसे भेजें?
- एक्सेल में बटन क्लिक होने पर ईमेल कैसे भेजें?
- यदि एक्सेल में देय तिथि पूरी हो गई है तो ईमेल कैसे भेजें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!