كيفية إرسال بريد إلكتروني من خلال Outlook عندما يتم حفظ المصنف في Excel؟
تتحدث هذه المقالة عن إرسال بريد إلكتروني عبر Outlook عند حفظ مصنف معين في Excel. يرجى القيام بما يظهر في البرنامج التعليمي.
أرسل بريدًا إلكترونيًا عبر Outlook عندما يتم حفظ المصنف برمز VBA
أرسل بريدًا إلكترونيًا عبر Outlook عندما يتم حفظ المصنف برمز VBA
لإرسال بريد إلكتروني عبر Outlook عند حفظ المصنف في Excel ، يرجى القيام بما يلي.
1. يرجى حفظ المصنف كمصنف Excel Macro-Enabled في البداية. انقر قم بتقديم > حفظ باسم. في حفظ باسم في مربع الحوار ، حدد مجلدًا لحفظ المصنف ، وقم بتسميته في المربع اسم الملف ، وحدد مصنف Excel ممكن بماكرو من حفظ كنوع القائمة المنسدلة ، ثم انقر فوق حفظ زر. انظر لقطة الشاشة:
2. افتح مصنف Excel Macro-Enabled الذي قمت بحفظه الآن ، اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء النقر المزدوج ThisWorkbook في الشريط الأيسر ، ثم انسخ والصق رمز VBA أدناه في ملف ThisWorkbook نافذة التعليمات البرمجية. انظر لقطة الشاشة:
رمز فبا: أرسل بريدًا إلكترونيًا عند حفظ المصنف
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 والموضوع بالإضافة إلى حقول الجسم في رمز VBA حسب حاجتك.
3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند تحديث المصنف وحفظه ، سيتم إنشاء بريد إلكتروني تلقائيًا مع إرفاق المصنف المحدث. الرجاء النقر فوق أرسل زر لإرسال البريد الإلكتروني. انظر لقطة الشاشة:
ملاحظات: يعمل رمز VBA فقط عند استخدام Outlook كبرنامج بريد إلكتروني.
مقالات ذات صلة:
- كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم تعديل خلية معينة في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم النقر فوق الزر في Excel؟
- كيفية إرسال بريد إلكتروني إذا تم الوفاء بتاريخ الاستحقاق في Excel؟
- كيفية إرسال تذكير أو إعلام بالبريد الإلكتروني إذا تم تحديث المصنف في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!