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

هل سبق لك أن حاولت فتح مجلد معين في 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" من قائمة "المراجع المتاحة". انظر إلى لقطة الشاشة:

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

---

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

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

جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!

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

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

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

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

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

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

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

افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

قائمة ميزات أدوات Kutools لـ Outlook تحميل الإصدار المجاني الترقية إلى الإصدار الاحترافي