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

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

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

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

علامة تبويب Office - قم بتمكين التحرير والتصفح المبوب في المكتب ، وجعل العمل أسهل بكثير ...
Kutools for Outlook - يجلب 100 ميزة متقدمة قوية إلى Microsoft Outlook
  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي تعدد رسائل البريد الإلكتروني حسب القواعد ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عندما تحاول الرد على الكل إذا كان عنوان بريدك في قائمة BCC ؛ تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد ؛ الرد على العديد من رسائل البريد الإلكتروني في وقت واحد ؛ إضافة تحية تلقائية عند الرد إضافة التاريخ والوقت تلقائيًا إلى الموضوع ...
  • أدوات المرفقات: فصل تلقائي ، ضغط الكل ، إعادة تسمية الكل ، حفظ تلقائي للكل ... تقرير سريع، عد الرسائل المختارة ، إزالة رسائل البريد وجهات الاتصال المكررة ...
  • أكثر من 100 ميزة متقدمة سوف حل معظم مشاكلك في Outlook 2021 - 2010 أو Office 365. الميزات الكاملة نسخة تجريبية مجانية مدتها 60 يومًا.

السهم الأزرق الحق فقاعةاحصل على قائمة المجلدات في 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.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (2)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
العمل بشكل مثالي مع OLK 365 ، شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
للحصول على حجم المجلدات كيف تفعل ذلك؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL