كيفية إرسال رسائل البريد الإلكتروني مباشرة من Excel باستخدام VBA،
. طريقة إرسال رسائل البريد الإلكتروني مباشرة من Excel باستخدام VBA،
يسرنا في موقعنا موقع(( النورس العربي ))ان نطرح لكم اهم ملخصات، وشروح، وبحوث، وحلول يحتاج إليها الطالب المثالي لمراجعتها حيث نجد البعض منها بحاجة إلى الفهم والتركيز عند قرأتها وأخرى يجب حفظها شفهيا ومن هذة العلوم الذي يبحث عنها أغلبية الطلبة ما سنطرحه لكم في موضوعنا هذا وهي إجابة السؤال المطلوب على النحو التالي...كيفية إرسال رسائل البريد الإلكتروني مباشرة من Excel باستخدام VBA،
الإجابة الصحيحة هي : :.
كيفية إرسال رسائل البريد الإلكتروني مباشرة من Excel باستخدام VBA، مما يسهل إرسال التقارير والإشعارات تلقائيًا!
لماذا نحتاج إلى إرسال البريد الإلكتروني تلقائيًا؟
✅ تسهيل إرسال التقارير اليومية أو الإشعارات دون تدخل يدوي.
✅ تحسين كفاءة العمل من خلال أتمتة عملية إرسال البريد.
✅ توفير الوقت والجهد عند التعامل مع عدد كبير من الرسائل.
كود VBA لإرسال بريد إلكتروني عبر Outlook:
الكود التالي يقوم بإرسال بريد إلكتروني تلقائيًا بضغطة زر: ✨
Sub SendEmail()
Dim OutApp As Object, OutMail As Object
' إنشاء تطبيق Outlook
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "example@email.***" ' ضع البريد الإلكتروني هنا
.CC = "" ' نسخة إلى (اختياري)
.BCC = "" ' نسخة مخفية إلى (اختياري)
.Subject = "اختبار VBA - إرسال بريد إلكتروني" ' عنوان البريد
.Body = "هذه رسالة مرسلة من Excel باستخدام VBA!" ' نص الرسالة
.Attachments.Add "C:\Report.pdf" ' إضافة مرفق (اختياري)
.Send ' إرسال البريد
End With
' تحرير الكائنات
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "تم إرسال البريد الإلكتروني بنجاح!", vbInformation, "نجاح"
End Sub
ماذا تعلمنا اليوم؟
✅ كيفية إرسال بريد إلكتروني مباشرة من Excel باستخدام VBA.
✅ تحديد المرسل إليه والموضوع ومحتوى الرسالة تلقائيًا.
✅ إمكانية إضافة مرفقات لإرسال التقارير والملفات المهمة.