كيفية تطبيق زر لإرسال بريد إلكتروني مع إرفاق ملف Word الحالي؟

Author: Xiaoyang Last Modified: 2025-05-30

إذا كنت بحاجة إلى إرسال بريد إلكتروني من مستند Word باستخدام Outlook وإرفاق ملف Word الحالي، يمكنك إدراج زر أمر يرسل البريد الإلكتروني بنقرة واحدة - دون الحاجة لفتح Outlook يدويًا. يوضح هذا الدليل كيفية إعداده بسرعة وسهولة.

تطبيق زر لإرسال بريد إلكتروني مع إرفاق ملف Word الحالي

يرجى اتباع هذه الخطوات لتحقيق المهمة في مستند Word الخاص بك:

أولاً، قم بإدراج زر أمر. انتقل إلى "المطور" > "أدوات التراث" > "زر الأمر (ActiveX Control)".
ملاحظة: إذا لم تشاهد تبويب المطور في الشريط، قم بزيارة: كيفية عرض تبويب المطور في شريط Word.
حدد الزر، ثم انقر على "خصائص" تحت تبويب "المطور". في لوحة الخصائص، اكتب النص الذي تريد عرضه على الزر في حقل "التسمية".
أغلق لوحة الخصائص. بعد ذلك، انقر بزر الماوس الأيمن على الزر واختر "عرض الكود".

في نافذة "Microsoft Visual Basic for Applications"، قم بلصق الكود التالي بين علامات الإجراء الفرعية الموجودة:

Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
    .Subject = "Fax-data"
    .Body = "This is a test email."
    .To = "yy@addin99.com"
    .Importance = olImportanceNormal
    .Attachments.Add xDoc.FullName
    .Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True

ملاحظة: يمكنك تغيير الموضوع، محتوى الجسم، وعنوان البريد الإلكتروني للمستلم في الكود ليتناسب مع تفاصيل رسالتك الفعلية.

احفظ وأغلق محرر VBA. انقر على "وضع التصميم" في تبويب المطور لإيقاف تشغيله. الآن، عند النقر على زر الأمر، سيتم إنشاء بريد إلكتروني تلقائيًا في Outlook مع إرفاق مستند Word الحالي.
أخيرًا، انقر على زر "إرسال" في Outlook لإرسال الرسالة.