जब वर्कबुक एक्सेल में सेव हो तो आउटलुक के माध्यम से ईमेल कैसे भेजें?
यह आलेख एक्सेल में एक विशिष्ट कार्यपुस्तिका सहेजे जाने पर आउटलुक के माध्यम से एक ईमेल भेजने के बारे में बात कर रहा है। कृपया वैसा ही करें जैसा ट्यूटोरियल दिखाता है।
जब कार्यपुस्तिका VBA कोड के साथ सहेजी जाए तो आउटलुक के माध्यम से एक ईमेल भेजें
जब कार्यपुस्तिका VBA कोड के साथ सहेजी जाए तो आउटलुक के माध्यम से एक ईमेल भेजें
एक्सेल में कार्यपुस्तिका सहेजे जाने पर आउटलुक के माध्यम से ईमेल भेजने के लिए, कृपया निम्नानुसार कार्य करें।
1. कृपया सबसे पहले कार्यपुस्तिका को एक्सेल मैक्रो-सक्षम कार्यपुस्तिका के रूप में सहेजें। क्लिक पट्टिका > इस रूप में सहेजें. में इस रूप में सहेजें संवाद बॉक्स में, कार्यपुस्तिका को सहेजने के लिए एक फ़ोल्डर का चयन करें, इसे फ़ाइल नाम बॉक्स में नाम दें, चुनें एक्सेल मैक्रो-सक्षम वर्कबुक से प्रकार के रूप में सहेजें ड्रॉप-डाउन सूची, और फिर क्लिक करें सहेजें बटन। स्क्रीनशॉट देखें:
2. एक्सेल मैक्रो-इनेबल्ड वर्कबुक खोलें जिसे आपने अभी सेव किया है, दबाएं ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया डबल क्लिक करें यह बाएँ बार में, फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें यह कोड विंडो. स्क्रीनशॉट देखें:
वीबीए कोड: कार्यपुस्तिका सहेजे जाने पर ईमेल भेजें
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
नोट: कृपया प्रतिस्थापित करें ईमेल प्राप्तकर्ता के ईमेल पते की पंक्ति में .To = "ईमेल पता", तथा आवश्यकतानुसार वीबीए कोड में सीसी, विषय और बॉडी फ़ील्ड बदलें।
3। दबाएं ऑल्ट + Q को बंद करने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, जब आप कार्यपुस्तिका को अद्यतन करते हैं और उसे सहेजते हैं, तो अद्यतन कार्यपुस्तिका संलग्न होने के साथ स्वचालित रूप से एक ईमेल बन जाएगा। कृपया क्लिक करें भेजें ईमेल भेजने के लिए बटन. स्क्रीनशॉट देखें:
नोट: वीबीए कोड केवल तभी काम करता है जब आप आउटलुक को अपने ईमेल प्रोग्राम के रूप में उपयोग करते हैं।
संबंधित आलेख:
- एक्सेल में सेल वैल्यू के आधार पर स्वचालित रूप से ईमेल कैसे भेजें?
- यदि एक्सेल में एक निश्चित सेल को संशोधित किया गया है तो ईमेल कैसे भेजें?
- एक्सेल में बटन क्लिक होने पर ईमेल कैसे भेजें?
- यदि एक्सेल में देय तिथि पूरी हो गई है तो ईमेल कैसे भेजें?
- एक्सेल में वर्कबुक अपडेट होने पर ईमेल रिमाइंडर या नोटिफिकेशन कैसे भेजें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!