كيفية إرسال بريد إلكتروني عبر Outlook عند حفظ المصنف في Excel؟
توضح هذه الدليل كيفية إرسال بريد إلكتروني تلقائيًا عبر Outlook كلما تم حفظ مصنف معين في Excel. باستخدام كود VBA بسيط، يمكنك التأكد من أن التحديثات على المصنف يتم مشاركتها بسلاسة.
إرسال بريد إلكتروني عبر Outlook عند حفظ المصنف باستخدام كود VBA
إرسال بريد إلكتروني عبر Outlook عند حفظ المصنف باستخدام كود VBA
لإرسال بريد إلكتروني عبر Outlook عند حفظ المصنف في Excel، يرجى اتباع الخطوات التالية.
1. أولاً، احفظ المصنف كمصنف Excel مُمكّن الماكرو. انقر فوق ملف > حفظ باسم. في مربع الحوار حفظ باسم، اختر مجلدًا لحفظ المصنف، وأدخل اسمًا في مربع اسم الملف، وحدد مصنف Excel مُمكّن الماكرو من قائمة نوع الحفظ المنسدلة، ثم انقر فوق زر الحفظ. انظر إلى لقطة الشاشة:
2. افتح مصنف Excel مُمكّن الماكرو الذي قمت بحفظه للتو، واضغط على مفاتيح Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.
2. في نافذة Microsoft Visual Basic for Applications، يرجى النقر نقرًا مزدوجًا على ThisWorkbook في الشريط الأيسر، ثم انسخ والصق الكود التالي VBA في نافذة كود ThisWorkbook. انظر إلى لقطة الشاشة:
كود VBA: إرسال بريد إلكتروني عند حفظ المصنف
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
ملاحظة: استبدل عنوان البريد الإلكتروني بعنوان البريد الإلكتروني للمستلم في السطر .To = "عنوان البريد الإلكتروني". قم بتعديل الحقول Cc وSubject وBody في كود VBA حسب الحاجة.
3. اضغط على مفاتيح Alt + Q معًا لإغلاق نافذة Microsoft Visual Basic for Applications.
من الآن فصاعدًا، في كل مرة تقوم فيها بتحديث المصنف وحفظه، سيتم إنشاء بريد إلكتروني تلقائيًا مع المصنف المحدث مرفقًا به. يرجى النقر على زر الإرسال لإرسال البريد الإلكتروني. انظر إلى لقطة الشاشة:
ملاحظة: يعمل هذا الكود VBA فقط إذا كنت تستخدم Outlook كبرنامج بريدك الإلكتروني.
مقالات ذات صلة:
- كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم تعديل خلية معينة في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم النقر على زر في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم الوصول إلى تاريخ الاستحقاق في Excel؟
- كيفية إرسال تذكير أو إشعار بالبريد الإلكتروني إذا تم تحديث المصنف في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد