كيف يمكن إرسال تذكير أو إشعار عبر البريد الإلكتروني عند تحديث المصنف في Excel؟
قد تحتاج في بعض الحالات إلى إرسال إشعار عبر البريد الإلكتروني لمُستلم معيّن فور تحديث البيانات في المصنف الذي أرسلته. ويعرض لك هذا المقال كيفية تحقيق ذلك بسهولة وفعالية.
إرسال تذكير أو إشعار عبر البريد الإلكتروني إذا تم تحديث المصنف باستخدام كود VBA
إرسال تذكير أو إشعار عبر البريد الإلكتروني إذا تم تحديث المصنف باستخدام كود VBA
يرجى اتباع الخطوات التالية لإرسال تذكير أو إشعار عبر البريد الإلكتروني عند تحديث المصنف.
1. في المصنف، افتح ورقة العمل المحددة التي سيتم إرسال إشعار البريد الإلكتروني استنادًا إلى البيانات المُحدَّثة فيها.
2. انقر بزر الماوس الأيمن على لسان الورقة، ثم اخترعرض الكودمن قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:
2. في نافذةMicrosoft Visual Basic for Applications، انسخ والصق الكود التالي في نافذة الكود. انظر لقطة الشاشة:
كود VBA: إرسال تذكير أو إشعار عبر البريد الإلكتروني إذا تم تحديث المصنف
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Subملاحظة: استبدل عنوان البريد الإلكتروني في السطر.To = «عنوان البريد الإلكتروني»بعنوان بريد المستلم. كما يمكنك تعديل الحقول Cc (نسخة كربونية) والموضوع (Subject) ومحتوى الرسالة (Body) في كود VBA حسب احتياجاتك.
3. اضغط على مفاتيحAlt+Q لإغلاق نافذةMicrosoft Visual Basic for Applications.
4. بعد تعديل خلية في ورقة العمل، ستظهر نافذة حوارية منKutools لـ Excelكما هو موضح في لقطة الشاشة أدناه. إذا كنت ترغب في إرفاق المصنف المحدَّث مع البريد الإلكتروني، فانقر على زرنعم. أما إذا لم تكن ترغب بذلك، فانقر على زرلا.
5. بعد ذلك، سيتم إنشاء بريد إلكتروني تلقائيًا—مع أو بدون إرفاق المصنف المحدَّث—ويتضمن جميع الحقول المحددة. يُرجى النقر على زرإرساللإرساله.
ملاحظة: يعمل كود VBA فقط إذا كنت تستخدم Outlook كبرنامج بريدك الإلكتروني.
مقالات ذات صلة:
- كيف يمكن إرسال بريد إلكتروني تلقائيًا بناءً على قيمة معيّنة في خلية Excel؟
- كيف يمكن إرسال بريد إلكتروني عبر Outlook عند حفظ مصنف Excel؟
- كيف يمكن إرسال بريد إلكتروني تلقائيًا عند تعديل خلية معيّنة في Excel؟
- كيف يمكن إرسال بريد إلكتروني عند النقر على زر في Excel؟
- كيف يمكن إرسال بريد إلكتروني تلقائيًا عند استيفاء تاريخ الاستحقاق في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل