एक्सेल - साझा वर्कबुक अपडेट होने पर मेल द्वारा सूचित किया जाए

मुद्दा

मेरे पास एक एक्सेल वर्कबुक है जो एक नेटवर्क ड्राइव पर संग्रहीत है और कई उपयोगकर्ताओं द्वारा उपयोग की जाती है। मुझे एक मैक्रो की आवश्यकता है जो हर बार जब कोई एक्सेल शीट अपडेट करता है तो एक अधिसूचना (मेल द्वारा) भेजेगा। इसे कैसे लागू किया जा सकता है?

उपाय

जब भी कार्यपुस्तिका सहेजी जाती है, तो यह मैक्रो स्वचालित रूप से किसी भी पते / पते पर एक ईमेल भेजेगा:

निजी उप कार्यपुस्तिका_BeforeSave (बूलियन के रूप में बायवाल सेवएएसयूआई, _

बूलियन के रूप में रद्द करें)

मंद उत्तर के रूप में स्ट्रिंग

उत्तर = MsgBox ("यह वह जगह है जहां आप उपयोगकर्ता को संकेत देने के लिए टेक्स्ट डालते हैं यदि वह" vbYesNo, "यहां सहेजना चाहता है या नहीं" उस बॉक्स का शीर्षक है)

यदि उत्तर = vbNo तो रद्द करें = सत्य

अगर जवाब = vbYes तब

खुले आउटलुक प्रकार सामान

OutlookApp सेट करें = CreateObject ("Outlook.Application")

OlObjects = OutlookApp.GetNamespace ("MAPI") सेट करें

सेट newmsg = OutlookApp.CreateItem (olMailItem)

'पावती जोड़ें

'newmsg.Recipients.Add ("यहाँ नाम")

newmsg.Recipients.Add (" ")

'विषय जोड़ें

newmsg.Subject = " यहां ऑटो ईमेल की विषय पंक्ति "

'शरीर जोड़ो