KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفشياويانغتاريخ التعديل

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

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

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

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

  1. أولاً، أدرج زر أمر بالانتقال إلى «المطوّر» > «أدوات قديمة» > «زر الأمر (عنصر تحكم ActiveX)».

    ملاحظة:إذا لم تظهر لك علامة التبويب «المطوّر» في الشريط، فقم بزيارة:كيفية إظهار علامة التبويب «المطوّر» في شريط Word.

    علامة التبويب "المطور" مع تحديد مجموعة العناصر التحكم، ونقر "أدوات قديمة"، وزر "زر الأوامر" مُحدَّد
  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
    نافذة VBA مع لصق الكود المذكور أعلاه

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

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

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

🤖مزايا KUTOOLS AI: مساعد الذكاء الاصطناعي / مساعد الوقت الفعلي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل دفعة إلى PDF...

✏تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الصفوف والأعمدة في الجدول / تحويل الجدول إلى نص...

🧹تنظيف سهل: امسح بسهولةالمسافات الزائدة،فاصل المقطع،مربع النص، أوالروابط التشعبية. وللمزيد من أدوات الإزالة، انتقل إلى مجموعةإزالة...

➕إدراجات إبداعية: أدرجفواصل الآلاف،مربع اختيار،زر راديو،رمز QR،الباركود، أوصورًا متعددة! اكتشف المزيد في مجموعةإدراج...

🔍اختيارات دقيقة: حدد بدقةصفحات محددة / الجداول / الأشكال / فقرة عنوان. وعزّز تجربة التنقّل لديك باستخدامالمزيد من ميزات ال...تحديد

⭐تحسينات مميزة: التنقّل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين مستندات Windows / 11 أداة تحويلأدوات...

🌍يدعم أكثر من 40 لغة: استخدم كوتولز باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

Kutools for Word علامات تبويب على الشريط
 
 

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools