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