كيف يمكنني فتح مربع حوار الملف بسرعة لإدراج مرفق في Outlook؟

عندما تريد إدراج مرفق في رسالة بريد إلكتروني قيد التأليف، فإنك عادةً تنقر على **إدراج > إرفاق ملف > تصفح هذا الكمبيوتر** لفتح مربع حوار «إدراج ملف»، ثم تبحث عن الملف المطلوب وتُدخله. في هذا البرنامج التعليمي، نقدّم لك رمزَي VBA يمكّنانك من فتح مربع حوار إدراج الملف بنقرة واحدة فقط!

فتح مربع حوار الملف بسرعة لإدراج مرفق باستخدام VBA

يمكن للرموز التالية من VBA تحقيق:

رمز VBA 1: فتح مجلد المستندات الافتراضي في جهازك
رمز VBA 2: فتح مجلد معيّن في جهازك

يرجى اتباع الخطوات التالية لإتمام هذه العملية.

1. افتح Outlook، ثم اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر علىأدوات > المراجع، ثم فعّل خانة الاختيار بجانبMicrosoft Scripting Runtime في مربع حوارالمراجع – Project1.

3. انقر علىإدراج > وحدة نمطية، ثم انسخ أحد رموز VBA التالية إلى نافذةالوحدة النمطية.

رمز VBA 1: فتح مجلد المستندات الافتراضي في جهازك

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

رمز VBA 2: فتح مجلد معيّن في جهازك

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

ملاحظات:

4. اضغط على مفاتيحAlt+Q لإغلاق نافذةMicrosoft Visual Basic for Applications.

الآن، ستحتاج إلى زرٍ لتشغيل الماكرو.

5. انقر علىالصفحة الرئيسية > إنشاء بريد إلكتروني جديدلإنشاء بريد إلكتروني جديد. في نافذة الرسالة، انقر علىتخصيص شريط أدوات الوصول السريع > المزيد من الأوامر.

6. في مربع حوارخيارات Outlook، قم بالتهيئة كما يلي:

7. اترك البرنامج النصي محدّدًا في المربع الأيمن، ثم انقر على زرتعديل. في مربع حوارتعديل الزر، عيّن زرًا جديدًا لهذا البرنامج النصي، ثم انقر علىموافق.

8. انقر علىموافقفي مربع حوارخيارات Outlookلحفظ التغييرات.

9. بعد ذلك، يُضاف الزر الذي حددته في الخطوة 7 إلىشريط أدوات الوصول السريع. عند تأليف رسالة بريد إلكتروني، إذا أردت إدراج مرفق، يمكنك ببساطة النقر على هذا الزر لفتح مجلدتصفحواختيار الملف الذي تريد إدراجه.

---

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

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

🤖KUTOOLS AI:يستخدم تقنية ذكاء اصطناعي متقدمة للتعامل مع رسائل البريد الإلكتروني بسلاسة، بما في ذلك الرد عليها، وتلخيصها، وتحسينها، وتوسيعها، وترجمتها، وصياغتها.

📧أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لبروتوكولي POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/مخفية وفق القواعد عند إرسال البريد الإلكتروني / التحويل التلقائي (قاعدة متقدمة) / إضافة التحيّة تلقائيًّا / تقسيم رسائل البريد الإلكتروني ذات المستلمين المتعددين تلقائيًّا إلى رسائل فردية...

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

📁المرفقات الاحترافية: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...

👩🏼‍🤝‍👩🏻جهات الاتصال والتقويم: إضافة جهات اتصال دفعةً واحدة من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...

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

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بشدة: Kutools for Office (5 في 1)

نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!

• ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
• 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
• 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة