यदि एक्सेल में एक निश्चित सेल को संशोधित किया गया है तो ईमेल कैसे भेजें?
यह आलेख आउटलुक के माध्यम से एक ईमेल भेजने के बारे में बात कर रहा है जब एक्सेल में एक निश्चित सीमा में एक सेल को संशोधित किया जाता है।
यदि किसी निश्चित श्रेणी में सेल को VBA कोड के साथ संशोधित किया गया है तो ईमेल भेजें
यदि किसी निश्चित श्रेणी में सेल को VBA कोड के साथ संशोधित किया गया है तो ईमेल भेजें
यदि आपको एक निश्चित वर्कशीट में श्रेणी A2:E11 में एक सेल संशोधित होने पर संलग्न सक्रिय कार्यपुस्तिका के साथ स्वचालित रूप से एक नया ईमेल बनाने की आवश्यकता है, तो निम्नलिखित VBA कोड आपकी मदद कर सकता है।
1. जिस वर्कशीट में आपको एक निश्चित सीमा में उसके संशोधित सेल के आधार पर ईमेल भेजने की आवश्यकता है, शीट टैब पर राइट-क्लिक करें और फिर क्लिक करें कोड देखें संदर्भ मेनू से. स्क्रीनशॉट देखें:
2. पॉप अप में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए वीबीए कोड को कोड विंडो में कॉपी और पेस्ट करें।
वीबीए कोड: यदि एक्सेल में निर्दिष्ट श्रेणी में सेल संशोधित है तो ईमेल भेजें
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xRg = Range("A2:E11")
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."
With xMailItem
.To = "Email Address"
.Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
नोट्स:
3। दबाएं ऑल्ट + Q को बंद करने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, श्रेणी A2:E11 में किसी भी सेल को संशोधित किया जाता है, अद्यतन कार्यपुस्तिका संलग्न के साथ एक नया ईमेल बनाया जाएगा। और सभी निर्दिष्ट फ़ील्ड जैसे विषय, प्राप्तकर्ता और ईमेल का मुख्य भाग ईमेल में सूचीबद्ध होंगे। कृपया ईमेल भेजें.
नोट: वीबीए कोड केवल तभी काम करता है जब आप आउटलुक को अपने ईमेल प्रोग्राम के रूप में उपयोग कर रहे हों।
संबंधित आलेख:
- एक्सेल में सेल वैल्यू के आधार पर स्वचालित रूप से ईमेल कैसे भेजें?
- जब वर्कबुक एक्सेल में सेव हो तो आउटलुक के माध्यम से ईमेल कैसे भेजें?
- एक्सेल में बटन क्लिक होने पर ईमेल कैसे भेजें?
- यदि एक्सेल में देय तिथि पूरी हो गई है तो ईमेल कैसे भेजें?
- एक्सेल में वर्कबुक अपडेट होने पर ईमेल रिमाइंडर या नोटिफिकेशन कैसे भेजें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!