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

المؤلف: شياويانغ آخر تعديل: 2024-08-08

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

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

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

يرجى اتباع الخطوات التالية لحل هذه المهمة في ملف Word:

1. أولاً ، يجب إنشاء زر أمر ، الرجاء النقر فوق المطور > أدوات قديمة > زر الأمر (عنصر تحكم ActiveX)، انظر لقطة الشاشة:

2. حدد الزر وانقر عقارات تحت المطور علامة التبويب، في عقارات في الجزء ، اكتب نص التسمية التوضيحية الذي تريده في ملف شرح الحقل ، انظر لقطة الشاشة:

3. ثم أغلق ملف عقارات جزء الآن ، انقر بزر الماوس الأيمن فوق الزر واختر عرض الرمز، انظر لقطة الشاشة:

4. وبعد ذلك ، في الشاشة المعروضة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق الكود أدناه بين النصوص الأصلية ، انظر لقطة الشاشة:

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

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

5. ثم ، احفظ وأغلق هذا الرمز ، انقر فوق وضع التصميم لإيقاف وضع التصميم. الآن ، عند النقر فوق زر الأمر الذي قمت بإنشائه ، سيتم إنشاء بريد إلكتروني باستخدام مستند Word الحالي كمرفق ، انظر لقطة الشاشة: