Skip to main content

كيفية فتح مجلد معين في Outlook من Excel؟

Author: Xiaoyang Last Modified: 2025-08-06

هل سبق لك أن حاولت فتح مجلد معين في Outlook من ملف Excel، مثل فتح مجلد "البريد الوارد"، أو مجلد "جهات الاتصال"، أو أي مجلد آخر؟ في هذه المقالة، سأتحدث عن كيفية فتح مجلد Outlook المطلوب من مصنف Excel.

فتح مجلد معين في Outlook من ملف Excel باستخدام كود VBA


فتح مجلد معين في Outlook من ملف Excel باستخدام كود VBA

يمكن أن يساعدك الكود التالي لـ VBA على فتح مجلد معين في Outlook من ورقة عمل Excel، يرجى اتباع الخطوات التالية:

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

2. انقر فوق "إدراج" > "وحدة"، والصق الماكرو التالي في "نافذة الوحدة".

كود VBA: فتح مجلد معين في Outlook من ملف Excel:

Sub OpenOutlookFolder()
    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
    xFolder.Display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub
End Sub

ملاحظة: في الكود أعلاه، يمكنك تغيير "البريد الوارد" في سطر الكود "Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)" إلى أي اسم مجلد آخر تريد فتحه.

3. بعد ذلك، انقر فوق "أدوات" > "المراجع" في نافذة "Microsoft Visual Basic for Applications"، وفي مربع الحوار المنبثق "References-Project1"، قم بتحديد خيار "مكتبة كائنات Microsoft Outlook" من قائمة "المراجع المتاحة". انظر إلى لقطة الشاشة:

check Microsoft Outlook Object Library option in References dialog box

4. ثم انقر فوق "موافق" لإغلاق مربع الحوار، واضغط على مفتاح "F5" لتشغيل هذا الكود، وسيتم فتح مجلد Outlook المحدد على الفور.


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

أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!

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

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

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

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

🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...

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

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

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

افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

kutools for outlook features1 kutools for outlook features2