كيفية إرسال تذكير أو إعلام بالبريد الإلكتروني إذا تم تحديث المصنف في Excel؟

في بعض الحالات ، قد تحتاج إلى تشغيل إعلام بالبريد الإلكتروني إلى مستلم محدد إذا كانت هناك بيانات محدثة في المصنف الذي أرسلته. ستوضح لك هذه المقالة طريقة تحقيق ذلك.

إرسال تذكير بالبريد الإلكتروني أو إعلام إذا تم تحديث المصنف برمز VBA

إرسال تذكير بالبريد الإلكتروني أو إعلام إذا تم تحديث المصنف برمز VBA

يرجى القيام بما يلي لإرسال تذكير أو إعلام بالبريد الإلكتروني إذا تم تحديث المصنف.

1. في المصنف ، افتح ورقة عمل محددة سترسل إشعارًا بالبريد الإلكتروني بناءً على البيانات المحدثة بالداخل.

2. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، وحدد عرض الرمز من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق الكود التالي في نافذة الكود. انظر لقطة الشاشة:

رمز فبا: إرسال تذكير أو إعلام بالبريد الإلكتروني إذا تم تحديث المصنف

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 والموضوع وكذلك الجسم في كود VBA حسب حاجتك.

3. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. بعد تحرير خلية في ورقة العمل ، أ كوتولس ل إكسيل سيظهر مربع الحوار كما هو موضح أدناه. إذا كنت ترغب في إرفاق المصنف المحدث بالبريد الإلكتروني ، فيرجى النقر فوق نعم زر. إذا لم يكن كذلك ، فانقر فوق لا .

5. ثم يتم إنشاء بريد إلكتروني تلقائيًا مع إرفاق المصنف المحدث أو بدونه. وجميع الحقول المحددة مدرجة أيضًا في البريد الإلكتروني. الرجاء الضغط على أرسل زر لإرساله.

ملاحظات: يعمل رمز VBA فقط عند استخدام Outlook كبرنامج بريد إلكتروني.

مقالات ذات صلة:

• كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
• كيفية إرسال بريد إلكتروني من خلال Outlook عندما يتم حفظ المصنف في Excel؟
• كيفية إرسال بريد إلكتروني إذا تم تعديل خلية معينة في Excel؟
• كيفية إرسال بريد إلكتروني إذا تم النقر فوق الزر في Excel؟
• كيفية إرسال بريد إلكتروني إذا تم الوفاء بتاريخ الاستحقاق في Excel؟