كيفية تلقي إشعار عبر البريد الإلكتروني عندما يقوم المستلم بفتح مرفق Excel الخاص بك؟

عند إرسال معلومات مهمة في مرفق ملف Excel، قد يكون من المفيد معرفة ما إذا كان المستلم قد فتح الملف أم لا. باستخدام VBA، يمكنك إنشاء كود يُفعّل إشعارًا تلقائيًا عبر البريد الإلكتروني ليتم إرساله لك بمجرد أن يقوم المستلم بفتح المصنف. ستعلمك هذه الدليل كيفية إعداد هذه الوظيفة في Excel، مما يتيح لك تلقي تأكيد كلما تم الوصول إلى الملف المرفق.

تفعيل إشعار عبر البريد الإلكتروني عند فتح مرفق Excel باستخدام كود VBA

تفعيل إشعار عبر البريد الإلكتروني عند فتح مرفق Excel باستخدام كود VBA

قبل إرسال ملف Excel هذا، يجب أن تقوم بإنشاء الكود التالي:

1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. ثم انقر نقرًا مزدوجًا فوق ThisWorkbook أسفل قسم VBAProject لفتح وحدة فارغة، وبعد ذلك قم بنسخ ولصق الكود التالي في الوحدة:

كود VBA: إرسال بريد إلكتروني عند فتح ملف Excel:

Private Sub Workbook_Open()
'Updateby Extendoffice
    Dim olkObj As Object
    Dim olkEm As Object
    Dim strbody As String
    Set olkObj = CreateObject("Outlook.Application")
    Set olkEm = olkObj.CreateItem(0)
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              ThisWorkbook.Name & vbNewLine & _
              "was opened by" & vbNewLine & _
              Environ("username")
    On Error Resume Next
    With olkEm
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "File opened"
        .Body = strbody
        .Send
    End With
    On Error GoTo 0
    Set olkEm = Nothing
    Set olkObj = Nothing
End Sub

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

3. بعد ذلك، احفظ هذا المصنف بصيغة ملف Excel Macro-Enabled Workbook، انظر إلى لقطة الشاشة:

4. وبعد ذلك، أرسل رسالة تحتوي على هذا المرفق إلى المستلمين الذين تحتاجهم، عندما يقوم المستلمون بتنزيل وفتح ملف Excel هذا وتفعيل الكود، سيتم إرسال بريد إلكتروني إليك تلقائيًا لإعلامك بأن الملف تم فتحه ومن قام بفتحه كما هو موضح في لقطة الشاشة التالية: