كيفية الحصول على قائمة المجلدات في Outlook؟

في بعض الأحيان ، يمكن للبنية الشجرية لجميع مجلدات البريد (بما في ذلك المجلدات الشخصية التي تم إنشاؤها) في جزء التنقل تقديم بعض المساعدة لمستخدمي Outlook أثناء عملهم. لسرد مجلدات بنية الشجرة بأكملها بسرعة ، يمكن أن تساعدك التعليمات البرمجية لـ VBA. في هذا البرنامج التعليمي ، يمكنك معرفة كيفية الحصول على قائمة المجلدات بسهولة باستخدام رمز VBA.

احصل على قائمة المجلدات في Outlook برمز VBA

احصل على قائمة المجلدات في Outlook برمز VBA

للحصول على قائمة المجلدات في Outlook برمز VBA ، يرجى القيام بما يلي.

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

2. ثم انقر نقرًا مزدوجًا فوق ملف Project1 > كائن Microsoft Outlook > هذه الجلسة لفتح مشروع 1 - ThisOutlookSession نافذة او شباك. انظر لقطة الشاشة:

3. ثم انسخ والصق رمز VBA أدناه في نافذة Project1 - ThisOutlookSession.

VBA: احصل على قائمة المجلدات في Outlook

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4. اضغط على F5 على لوحة المفاتيح لبدء تشغيل رمز VBA.

5. الآن أ الماكرو ينبثق مربع الحوار ، الرجاء النقر فوق يجري .

6. انتظر تشغيل الماكرو. ثم يتم سرد قائمة جميع مجلدات البريد الإلكتروني الخاصة بك في نافذة رسالة جديدة تم إنشاؤها على الفور. يمكنك طباعته بسهولة. انظر لقطة الشاشة:

ملاحظة: يمكن تطبيق رمز VBA هذا على Outlook 2007 و 2010 و 2013.

---

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

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

اقرأ أكثر... التحميل الان...