Note: The other languages of the website are Google-translated. Back to English

كيفية فتح مربع حوار الملف بسرعة لإدراج مرفق في 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 إلى ملف شريط أدوات الوصول السريع. عند إنشاء رسالة بريد إلكتروني ، إذا كنت ترغب في إدراج مرفق ، يمكنك فقط النقر فوق هذا الزر لفتح ملف تصفح المجلد وحدد الملف الذي تريد إدراجه.


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة