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

بشكل عام، يمكنك الضغط على مفتاحَي «Ctrl» + "6" لعرض قائمة جميع المجلدات في جزء التنقل في Outlook. ومع ذلك، لا يُمكنك طباعة قائمة المجلدات مباشرةً. تقدّم هذه المقالة نصّين برمجيّين مكتوبَين بلغة VBA لتصدير وطباعة قائمةٍ بكامل المجلدات والمجلدات الفرعية الخاصة بك في Outlook.

• تصدير وطباعة قائمة جميع مجلدات Outlook ومجلداتها الفرعية في إنشاء بريد إلكتروني جديد
• تصدير وطباعة قائمة جميع مجلدات Outlook ومجلداتها الفرعية في المفكرة (Notepad)

---

تصدير وطباعة قائمة جميع مجلدات Outlook ومجلداتها الفرعية في إنشاء بريد إلكتروني جديد

تعرض هذه الطريقة نصًّا برمجيًّا مكتوبًا بلغة VBA لتصدير قائمة تحتوي على جميع المجلدات والمجلدات الفرعية الخاصة بحساب بريد إلكتروني معيّن، وإنشاء رسالة بريد إلكتروني جديدة في Outlook تتضمّن هذه القائمة. بعد ذلك، يمكنك طباعة قائمة المجلدات بكل سهولة.

1. اضغط «Alt» + "F11" لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر «Insert» > «Module»، ثم الصق كود VBA التالي في نافذة الوحدة الجديدة.

VBA: تصدير قائمة المجلدات والمجلدات الفرعية في إنشاء بريد إلكتروني جديد في Outlook

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.MailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)
Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

For i = CurrentFolder.Folders.Count To 1 Step -1
    Set oFolder = CurrentFolder.Folders(i)
    sFolderPaths = oFolder.FolderPath
    gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
    If oSubFolder.Name <> "Deleted Items" Then
        ProcessFolder oSubFolder
    End If
Next
End Sub

3. اضغط "F5" لتشغيل كود VBA.

4. في مربّع الحوار المنبثق «Select Folder»، اختر حساب البريد الإلكتروني الذي ترغب في طباعة قائمة مجلداته، ثم انقر «OK».

5. سيتم نسخ قائمة مجلدات الحساب المحدد إلى نافذة إنشاء بريد إلكتروني جديد كما هو موضح أدناه. انقر «File» > «Print» لطباعة قائمة المجلدات.

6. بعد الطباعة، أغلق نافذة إنشاء البريد الإلكتروني الجديد دون حفظها.

---

تصدير وطباعة قائمة جميع مجلدات Outlook ومجلداتها الفرعية في المفكرة (Notepad)

تعرض هذه الطريقة نصًّا برمجيًّا مكتوبًا بلغة VBA لتصدير قائمة تحتوي على جميع المجلدات والمجلدات الفرعية من حساب بريد إلكتروني معيّن في Outlook مباشرةً إلى المفكرة (Notepad)، لتتمكّن بعد ذلك من طباعة القائمة بسهولة.

1. اضغط «Alt» + "F11" لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر «Insert» > «Module»، ثم الصق كود VBA التالي في نافذة الوحدة الجديدة.

VBA: تصدير قائمة جميع مجلدات Outlook والمجلدات الفرعية من Outlook إلى المفكرة (Notepad)

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

Set objOutlook = CreateObject("Outlook.Application")
Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
    Set Folders = F.Folders
    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
    If Result = 6 Then
        gCreateTree = True
    Else
        gCreateTree = False
    End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
    gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders Folders

    Set F = Nothing
    Set Folders = Nothing
    Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F
For Each F In Folders
    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
    CreateFolderTree = Mid(OLKfolderpath, 3)
Else
    Dim i, x, OLKprefix
    i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))
    For x = gBase To i
        OLKprefix = OLKprefix & "-"
    Next
    CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. اضغط "F5" لتشغيل الـ VBA. في مربّع الحوار «Select Folder» الذي يظهر، اختر حساب البريد الإلكتروني الذي تريد تصدير قائمة مجلداته وطباعتها، ثم انقر «OK».

4. سيظهر مربّع حوار «Output Folder Tree». انقر «Yes» أو «No» وفقًا لرغبتك في تضمين مسافات التحديد الشجري (tree indentation).

الآن، تم إنشاء ملف نصي باسم «Outlook-Folders» وحفظه على سطح المكتب كما هو موضح أدناه:

5. انقر مرتين لفتح ملف نصي جديد، ثم اختر «File» > «Print» لطباعة القائمة المصدرة لمجلدات Outlook.

مقالات ذات صلة

إظهار أو إخفاء عرض قائمة المجلدات في Outlook