كيف يمكنني فتح مجلد 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. انقر فوق «Insert» > «Module»، ثم الصق الماكرو التالي في «نافذة الوحدة النمطية».

كود 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

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

3. بعد ذلك، في نافذة «Microsoft Visual Basic for Applications»، انقر فوق «Tools» > «References»، ثم في مربع الحوار المنبثق "References - Project1"، فعّل خيار «Microsoft Outlook Object Library» من قائمة «Available References». راجع لقطة الشاشة التالية:

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