एक्सेल सेल में दिनांक के आधार पर शीघ्रता से ईमेल कैसे भेजें?
क्या आपने कभी एक्सेल सेल में दिनांक के आधार पर ईमेल भेजने का प्रयास किया है? उदाहरण के लिए, यहां कॉलम ए में तारीखों की एक सूची है, और फिर आप किसी प्राप्तकर्ता को विषय, संदेश का मुख्य भाग के साथ एक ईमेल भेजना चाहते हैं (दूसरों को सीसी और बीसीसी भी कर सकते हैं), आप इसे कैसे संभाल सकते हैं?
वीबीए के साथ तारीख के आधार पर ईमेल भेजें
वीबीए के साथ तारीख के आधार पर ईमेल भेजें
एक्सेल में दिनांक के आधार पर ईमेल भेजने के लिए, आप केवल मैक्रो कोड लागू कर सकते हैं।
1. उस शीट को सक्षम करें जिसमें डेटा और आपके द्वारा उपयोग की जाने वाली तारीख शामिल है, और दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे दिए गए कोड को रिक्त स्क्रिप्ट पर चिपकाएँ।
वीबीए: तिथि के अनुसार भेजें
Sub email()
'UpdatebyExtendoffice20170831
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
Dim xMail_Object, xMail_Single As Object
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xRgEach In xRg
If xRgEach.Value = Date Then
xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
If xEmail_Send_To = "" Then Exit Sub
xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
Set xMail_Object = CreateObject("Outlook.Application")
Set xMail_Single = xMail_Object.CreateItem(0)
With xMail_Single
.Subject = xEmail_Subject
.To = xEmail_Send_To
.cc = xEmail_Cc
.BCC = xEmail_Bcc
.Body = xEmail_Body
.Send
End With
End If
Next
End Sub
3। क्लिक करें रन बटन या प्रेस F5 कोड निष्पादित करने के लिए कुंजी, एक संवाद आपको दिनांक की सूची चुनने की याद दिलाने के लिए पॉप आउट होता है। स्क्रीनशॉट देखें:
4. ठीक पर क्लिक करें, और ईमेल विषय, प्रेषक का ईमेल पता, प्राप्तकर्ता का ईमेल पता, सीसी, बीसीसी और संदेश का मुख्य भाग निर्दिष्ट करना जारी रखें। स्क्रीनशॉट देखें:
5। क्लिक करें OK > OK आखिरी तक, और फिर ईमेल भेज दिया गया है।
नोट: प्रेषक का ईमेल पता आपके आउटलुक में डिफ़ॉल्ट खाता होना चाहिए।
मेलिंग सूची बनाएं और ईमेल भेजें |
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!