एक्सेल शीट का उपयोग करके मेल भेजकर हैप्पी बिरहडेट की शुभकामनाएं

समस्या निवारण

मेरे पास एक एक्सेल शीट है जिसमें मेंबर ऑफ बर्थ और ई-मेल आईडी दर्ज है। और मैं उन्हें मेल द्वारा बर्थडे विश करना चाहता हूं। इसके लिए हर बार मुझे आज की तारीख के लिए शीट फ़िल्टर की जांच करनी होगी और फिर व्यक्तिगत रूप से मेल भेजना होगा।

यह मैक्रो आपके लिए ऐसा करने में आपकी मदद करता है। आपको अपनी एक्सेल शीट खोलनी होगी और मैक्रो को चलाना होगा।

कोड

मान लीजिए कि कॉलम C में उस व्यक्ति का नाम है,

जन्म तिथि कॉलम डी में,

और कॉलम E में ई-मेल आईडी।

 उप bdMail () डिम आउटएप ऑब्जेक्ट के रूप में डिम आउटमेल, ऑब्जेक्ट डिम सेल के रूप में रेंज डिम अंतिम डिमो के रूप में लंबे समय के रूप में दिनांक आवेदन के रूप में निकलता है। स्क्रीनअपिंग = गलत सेट आउटएप = CreateObject ("Outlook-Application") OutApp.Session.Logon lastRow = Range ("") A "& Rows.Count)। And (xlUp) .Row ऑन एरर GoTo क्लीनअप फॉर ए सेल इन ए सेल इन रेंज (" D2: D "& lastRow) dateCell = cell.Value if Day (dateCell) = दिन (तारीख) और महीना ( dateCell) = महीना (दिनांक) उसके बाद OutMail = OutApp.CreateItem (0) त्रुटि को फिर से शुरू करने के लिए OutMail .To = cell.Offset (0, 1) के साथ सेट करें। पर क्लिक करें। क्लिक करें। "जन्मदिन की शुभकामनाएं" 'यहाँ अपना संदेश डालें। = "प्रिय" और प्रकोष्ठों (सेल.रो, "सी")। मान _ & vbNewLine और vbNewLine और _ "दिन की कई खुशियाँ लौटें" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "चीयर्स, " और vbNewLine & _ "राहुल"। त्रुटि के साथ समाप्त होता है GoTo 0 सेट आउटमेल = कुछ भी समाप्त नहीं होता है यदि अगला सेल क्लीनअप: सेट आउटप = कुछ भी नहीं। 
पिछला लेख अगला लेख

शीर्ष युक्तियाँ