Excel - يتم إعلامك عن طريق البريد عند تحديث المصنف المشترك

القضية

لدي مصنف Excel مخزّن على محرك أقراص شبكة ويستخدمه عدة مستخدمين. أحتاج إلى ماكرو يرسل إشعارًا (بالبريد) في كل مرة يقوم فيها شخص بتحديث ورقة Excel. كيف يمكن تنفيذ هذا؟

حل

سيرسل هذا الماكرو رسالة بريد إلكتروني تلقائيًا إلى أي عنوان / عناوين كلما تم حفظ المصنف:

 Work Sub Workbook_BeforeSave (ByVal SaveAsUI as Boolean، _
الغاء منطقية
قاتمة الإجابة كسلسلة
answer = MsgBox ("هذا هو المكان الذي وضعت فيه النص لمطالبة المستخدم إذا كان يريد حفظه أو لا" vbYesNo ، "هنا هو عنوان هذا المربع")
إذا كانت الإجابة = vbNo ، فقم بإلغاء = True
إذا كانت الإجابة = vbYes ثم
'فتح الاشياء نوع التوقعات
تعيين OutlookApp = CreateObject ("Outlook.Application")
تعيين OlObjects = OutlookApp.GetNamespace ("MAPI")
تعيين newmsg = OutlookApp.CreateItem (olMailItem)
إضافة المستلمين
'newmsg.Recipients.Add ("الاسم هنا")
newmsg.Recipients.Add ("  ")
'إضافة الموضوع
newmsg.Subject = " سطر موضوع البريد الإلكتروني التلقائي هنا "
إضافة الجسم
newmsg.Body = "نص البريد الإلكتروني التلقائي هنا"
عرض newmsg.Display
إرسال رسالة newmsg.Send
إعطاء التشكل من الرسالة المرسلة
MsgBox "إدراج اختبار مربع التأكيد هنا" ، "عنوان مربع التأكيد"
إنهاء إذا
احفظ المستند
"Me.Worksheets.Save
نهاية الفرعية

بفضل shark2000br لهذه النصيحة.