كيف تتلقى إشعارًا بالبريد الإلكتروني عندما يفتح المستلم مرفق Excel الذي أرسلته؟
عند إرسال معلومات مهمة كمرفق ملف Excel، قد ترغب في معرفة ما إذا قام المستلم بفتح الملف. باستخدام VBA، يمكنك إنشاء كود يُطلِق إشعارًا تلقائيًّا عبر البريد الإلكتروني ليُرسَل إليك فور فتح المستلم للمصنف. سيوضح لك هذا الدليل كيفية إعداد هذه الوظيفة في Excel، لتتلقى تأكيدًا مباشرًا كلما تم الوصول إلى الملف المرفق.
إطلاق إشعار بريد إلكتروني عند فتح مرفق Excel باستخدام كود VBA
إطلاق إشعار بريد إلكتروني عند فتح مرفق Excel باستخدام كود VBA
ملاحظة:هذه الطريقة متاحة فقط عند استخدام Outlook كبرنامج بريدك الإلكتروني.
قبل إرسال ملف 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 باستخدام 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل