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 لهذه النصيحة.

المقال السابق المقالة القادمة

نصائح الأعلى