إنشاء إعلامات البريد الإلكتروني لتحديثات ورقة Excel

عند العمل على شبكة مشتركة ، من الشائع جدًا للعديد من الموظفين الوصول إلى الملفات العامة وتغييرها على مدار اليوم. تشرح هذه المقالة كيفية تطبيق ماكرو في Microsoft 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
نهاية الفرعية