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

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

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

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

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

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

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 كبرنامج بريد إلكتروني.

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (20)

لا يوجد تقييم. كن أول من يقيم!

جيك بيرجر

منذ حوالي 4 سنوات

#25614

تم تصغير هذا التعليق بواسطة المشرف على الموقع

إذا وجد أي شخص هذه الصفحة يتساءل عن كيفية إرسال بريد إلكتروني من Excel باستخدام CDO ، فقد جمعت مستند Google معًا - كيفية إرسال بريد إلكتروني من Excel باستخدام Gmail (https://docs.google.com/document/d/1u5VLzCApU3k4-9Vp9LEfqyFZ6u9tAY0avNPYN_1FsN4/edit?usp=sharing) مع رمز على GitHub gist (https://gist.github.com/bergerjac/7355d4e528fa6c64a02dc494f3d241a1)

رد

ليا

منذ حوالي 3 سنوات

#29457

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل يمكنني CC أكثر من شخص في هذا؟ شكرًا

رد

كريستال ليا

منذ حوالي 3 سنوات

#29458

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا ليا ،
الرجاء إدخال عناوين البريد الإلكتروني مباشرةً في السطر .cc = "" وفصلهم بفاصلة منقوطة ، مثل .cc = "AAA@gmail.com ؛ BBB@gmail.com"

رد

بلغ

جودي

منذ حوالي 3 سنوات

#30132

تم تصغير هذا التعليق بواسطة المشرف على الموقع

لقد قمت بنسخ الكود ولصقه تمامًا كما هو من هذه الصفحة ، ولكن عندما أقوم بإجراء تغيير على المستند الخاص بي ، أحصل على الرسالة "خطأ في بناء الجملة" وهذا السطر يبرز: Dim xOutApp As Object. سيكون موضع تقدير أي مساعدة.

رد

بلغ

كريستال جودي

منذ حوالي 3 سنوات

#30133

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا جودي ،
هل ستقدم إصدار Excel الذي تستخدمه؟ شكرا لك على تعليقك.

رد

بلغ

جيمس كروك

منذ حوالي 2 سنوات

#31978

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

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

رد

جيمس كروك

منذ حوالي 2 سنوات

#31979

تم تصغير هذا التعليق بواسطة المشرف على الموقع

آسف ، لقد نشرت هذا في مقال خاطئ. سوف أنشر في المقال الصحيح

رد

منذ حوالي 2 سنوات

#33337

تم تصغير هذا التعليق بواسطة المشرف على الموقع

عندما حاولت تغيير شيء ما في خلية ، ظهرت رسالة تطالبك بتكوين البريد الإلكتروني في Outlook وتستمر في طلب كلمة المرور الخاصة بي.

رد

كريستال MJ

منذ حوالي 2 سنوات

#33338

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا MJ ،
ما هو إصدار Excel الذي تستخدمه؟ هل يمكنك تقديم لقطة شاشة للموجه؟

رد

بلغ

ضيف

منذ حوالي سنة واحدة

#34762

تم تصغير هذا التعليق بواسطة المشرف على الموقع

بالنسبة لي ، يعمل الرمز مرارًا وتكرارًا ، فهو يشبه حلقة لا تنتهي أبدًا. أغلق البريد الإلكتروني وأطلب منه إرساله مرة أخرى ...

رد

ضيف

منذ حوالي 8 أشهر

#38048

تم تصغير هذا التعليق بواسطة المشرف على الموقع

من فضلك ، أنا مرتبك بعض الشيء ولكن أين في الكود يكشف عن الورقة التي يتم تعديلها / تحديثها؟
أحاول كتابة رمز حيث يتم إرسال الجدول الموجود على ورقة معينة عند تعديل الجدول (أو بشكل أكثر تحديدًا عند إضافة الصفوف)
شكرا!

رد

كريستال ضيف

منذ حوالي 8 أشهر

#38124

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،
يكتشف الكود الموجود في المنشور جميع الخلايا في ورقة العمل بأكملها استنادًا إلى السطر الأول من "Private Sub Worksheet_Change (ByVal Target As Range)".
إذا كنت تريد إرسال بريد إلكتروني مع جدول معين عند تعديله ، فيمكنك تجربة VBA التالي.
ملاحظة: الرجاء تغيير "Table1" إلى اسم الجدول الخاص بك.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2022/5/27
    Dim xYesOrNo As Integer
    Dim xTableName As String
    Dim xTableRg As Range
    Dim I, J As Long
    Dim xEmailBody As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    
    xTableName = "Table1" 'The name of the table you will send when it is modified
    Set xTableRg = ActiveSheet.ListObjects(xTableName).Range
    If Intersect(Target, xTableRg) Is Nothing Then Exit Sub

    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xTableRg.Rows.Count
        For J = 1 To xTableRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xTableRg.Cells(I, J).Value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "XXX@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
End Sub

رد

بلغ

ماتياس كريستال

منذ حوالي 5 أشهر

#39319

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Hola cristal، donde dice Private Sub Worksheet_Change، deberia poner el nombre de mi excel o no؟
Los rangos de (I، J) cambiarlos por los valores de celdas que yo dese estar mirando si cambian؟

رد