Note: The other languages of the website are Google-translated. Back to English

كيفية إرسال تذكير أو إعلام بالبريد الإلكتروني إذا تم تحديث المصنف في 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 كبرنامج بريد إلكتروني.


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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (20)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا وجد أي شخص هذه الصفحة يتساءل عن كيفية إرسال بريد إلكتروني من 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)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني CC أكثر من شخص في هذا؟ شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ليا ،
الرجاء إدخال عناوين البريد الإلكتروني مباشرةً في السطر .cc = "" وفصلهم بفاصلة منقوطة ، مثل .cc = "AAA@gmail.com ؛ BBB@gmail.com"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بنسخ الكود ولصقه تمامًا كما هو من هذه الصفحة ، ولكن عندما أقوم بإجراء تغيير على المستند الخاص بي ، أحصل على الرسالة "خطأ في بناء الجملة" وهذا السطر يبرز: Dim xOutApp As Object. سيكون موضع تقدير أي مساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جودي ،
هل ستقدم إصدار Excel الذي تستخدمه؟ شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بكم ، الكود يعمل بشكل رائع. ومع ذلك ، عندما تتغير خلية إلى أقل من نقطة العتبة عبر عملية ماكرو تنسخ وتلصق القيمة الأقل في الخلية المعينة ، لا يبدو أن الرمز يتم تشغيله.

أيضًا ، أود تطبيق هذا الرمز على عدة خلايا. هل يمكنني نسخ الرمز ولصقه عدة مرات وتغيير كل نسخة منسوخة لتناسب احتياجات كل خلية؟ هل هناك طريقة أفضل للقيام بذلك. لا أستطيع معرفة ذلك. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف ، لقد نشرت هذا في مقال خاطئ. سوف أنشر في المقال الصحيح
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما حاولت تغيير شيء ما في خلية ، ظهرت رسالة تطالبك بتكوين البريد الإلكتروني في Outlook وتستمر في طلب كلمة المرور الخاصة بي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا MJ ،
ما هو إصدار Excel الذي تستخدمه؟ هل يمكنك تقديم لقطة شاشة للموجه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالنسبة لي ، يعمل الرمز مرارًا وتكرارًا ، فهو يشبه حلقة لا تنتهي أبدًا. أغلق البريد الإلكتروني وأطلب منه إرساله مرة أخرى ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من فضلك ، أنا مرتبك بعض الشيء ولكن أين في الكود يكشف عن الورقة التي يتم تعديلها / تحديثها؟
أحاول كتابة رمز حيث يتم إرسال الجدول الموجود على ورقة معينة عند تعديل الجدول (أو بشكل أكثر تحديدًا عند إضافة الصفوف)
شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يكتشف الكود الموجود في المنشور جميع الخلايا في ورقة العمل بأكملها استنادًا إلى السطر الأول من "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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
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؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
HOLA CRISTAL ، ME GUSTARIA PONERME EN CONTACTO DIRECTO CONTIGO ، NE CESITO DE TU AYUDA EN EXCEL ، GRACIAS
تم تصغير هذا التعليق بواسطة المشرف على الموقع
HOLA CRISTAL ، ME GUSTARIA PONERME EN CONTACTO DIRECTO CONTIGO ، PARA PEDIR TU AYUDA EN PROBLEMITA EN UNA HOJA DE EXCEL
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا جيراردو مارتن أولفيرا ،
يمكنك مراسلتي عبر البريد الإلكتروني على zxm@addin99.com.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أي جزء من الكود يجب علي حذفه بحيث لا يرسل البريد الإلكتروني إلا عند النقر فوق "حفظ" وليس في كل إجراء؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا دونكه ،
في كود فبا ، يرجى استبدال السطر التالي:
.عرض
دوامة
.إرسال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أتابع تسجيل الشهادات في ورقة إكسل. أحتاج إلى الحصول على تذكير قبل انتهاء صلاحية الشهادات. الرجاء نصحي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا راهول راجان ،

هل تريد ظهور تذكير منبثق بناءً على تاريخ الخلية؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL