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

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

عندما نحتاج إلى إدراج مرفق في رسالة بريد إلكتروني مؤلفة ، فعادة ما نحتاج إلى النقر فوق إدراج> إرفاق ملف> تصفح هذا الكمبيوتر لفتح مربع الحوار "إدراج ملف" ، ثم البحث عن الملف الذي نحتاجه وإدخاله. في هذا البرنامج التعليمي ، نقدم رمزين من رموز VBA لمساعدتك في فتح مربع الحوار "إدراج ملف" بسهولة بنقرة واحدة فقط.

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

يمكن أن تحقق أكواد VBA التالية:

كود فبا 1: افتح مجلد المستندات الافتراضي في جهاز الكمبيوتر الخاص بك
كود فبا 2: افتح المجلد المحدد في جهاز الكمبيوتر الخاص بك

يرجى القيام بما يلي لإنجازه.

1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق الأدوات > مراجع، ثم تحقق من وقت تشغيل البرمجة لـ Microsoft في مربع المراجع - مشروع 1 صندوق المحادثة.

3. انقر إدراج > وحدة. ثم انسخ أحد رموز 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

كود فبا 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

الملاحظات:

1) يساعد رمز VBA 1 في فتح مجلد المستندات الافتراضي في جهاز الكمبيوتر الخاص بك.

2) في رمز VBA 2 ، يرجى تغيير مسار المجلد في السطر التالي إلى مسار المجلد الذي تحتاجه.
xFileDlg.InitialFileName = "C: \ Users \ Win10x64Test \ Desktop \ حفظ المرفقات \"
ثم سيتم فتح المجلد المحدد في كل مرة تقوم فيها بتشغيل هذا الرمز.

4. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

أنت الآن بحاجة إلى زر لتشغيل الماكرو.

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

6. في ال خيارات التوقعات مربع الحوار ، تحتاج إلى تكوين على النحو التالي.

شنومكس) في اختر الأوامر من القائمة المنسدلة ، حدد وحدات ماكرو.

6.2) حدد الماكرو الذي أضفته في الخطوة السابقة ؛

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

7. احتفظ بالبرنامج النصي المحدد في المربع الأيمن ، ثم انقر فوق الزر عدل زر. في ال زر التعديل في مربع الحوار ، قم بتعيين زر جديد للبرنامج النصي وانقر فوق OK.

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

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