نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تصدير وطباعة قائمة كافة المجلدات والمجلدات الفرعية في أوتلوك؟

بشكل عام، يمكنك الضغط CTRL + 6 مفاتيح لعرض قائمة كافة المجلدات في جزء التنقل في أوتلوك. ومع ذلك، لا يمكنك طباعة قائمة المجلدات. سوف يعرض هذا المقال اثنين من البرامج النصية فبا لتصدير وطباعة قائمة كافة المجلدات ومجلداتها الفرعية في أوتلوك.

بنقرة واحدة لإظهار إجمالي عدد العناصر في كل المجلدات في جزء التنقل في أوتلوك

عادة، يعرض أوتلوك أرقام العناصر غير المقروءة في كل مجلد على جزء التنقل. ولكن، كوتولس ل أوتلوك كافة المجلدات إظهار العدد الإجمالي للعناصر ميزة يمكن أن تساعدك على إظهار إجمالي عدد العناصر في جميع المجلدات بنقرة واحدة فقط. انقر لمدة شنومك-يوم تجريبية مجانية دون قيود!
تظهر كافة المجلدات العدد الإجمالي كتو شنومك

كوتولس ل أوتلوك: شنومكس + أدوات متقدمة جديدة ل أوتلوك.
تبويب أوفيس: تمكين التحرير المبوب والتصفح في أوفيس، تماما مثل كروم، فايرفوكس، إي شنومكس / شنومكس / شنومكس.
القائمة الكلاسيكية: جلب القوائم القديمة وأشرطة الأدوات مرة أخرى إلى Office 2007 و 2010 و 2013 و 2016 و 2019.

السهم الأزرق الفقاعة اليمنى تصدير وطباعة قائمة كافة المجلدات أوتلوك ومجلداتها الفرعية في البريد الإلكتروني الجديد

ستقوم هذه الطريقة بإدخال فبا لتصدير قائمة كافة المجلدات ومجلداتها الفرعية في حساب بريد إلكتروني محدد إلى بريد إلكتروني جديد في أوتلوك، ومن ثم يمكنك طباعة قائمة المجلدات بسهولة.

1. صحافة قديم + F11 مفاتيح لفتح إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس.

2. انقر إدراج > وحدة، ثم قم بلصق رمز فبا أدناه في نافذة الوحدة النمطية الجديدة.

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

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 مفتاح لتشغيل هذا فبا.

4. في مربع الحوار تحديد مجلد مجلد، يرجى تحديد حساب البريد الإلكتروني الذي تريد طباعة المجلدات التي تريد طباعتها، ثم انقر فوق OK زر. انظر لقطة الشاشة:

5. والآن يتم نسخ قائمة مجلد حساب البريد الإلكتروني المحدد إلى بريد إلكتروني جديد كما هو مبين أدناه لقطة شاشة. من فضلك اضغط ملف > طباعة لطباعة القائمة المنسوخة من المجلدات.

6. بعد الطباعة، يرجى إغلاق البريد الإلكتروني الجديد بدون حفظ.


السهم الأزرق الفقاعة اليمنى تصدير وطباعة قائمة كافة المجلدات أوتلوك النمل هناك المجلدات الفرعية في المفكرة

ستقوم هذه الطريقة بإدخال فبا لتصدير قائمة كافة المجلدات ومجلداتها الفرعية في حساب بريد إلكتروني محدد من أوتلوك إلى المفكرة ثم يمكنك طباعة قائمة مجلدات أوتلوك في المفكرة بسهولة.

1. صحافة قديم + F11 مفاتيح لفتح إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس.

2. انقر إدراج > وحدة، ثم قم بلصق رمز فبا أدناه في نافذة الوحدة النمطية الجديدة.

فبا: تصدير قائمة كافة مجلدات أوتلوك المجلدات الفرعية من أوتلوك إلى المفكرة

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 مفتاح لتشغيل هذا فبا. التالي في مربع الحوار فتح مجلد الاختيار، يرجى تحديد حساب البريد الإلكتروني الذي تريد تصدير مجلد المجلد الخاص بك وطباعة، وانقر فوق OK زر. انظر لقطة الشاشة:

4. ثم إخراج مربع الحوار شجرة المجلد قادم. يرجى النقر فوق نعم زر أو لا زر ما تحتاج إليه.

والآن ملف نصي يسمى توقعات-المجلدات يتم إنشاؤها وحفظها على سطح المكتب الخاص بك كما هو مبين أدناه لقطة شاشة.

5. انقر نقرا مزدوجا لفتح الملف النصي الجديد، ثم انقر فوق ملف > طباعة لطباعة قائمة تصدير المجلدات التوقعات.


السهم الأزرق الفقاعة اليمنىمقالات ذات صلة



كوتولس ل أوتلوك

أكثر من 100 Advanced Functions لـ Outlook 2010 و 2013 و 2016 و 2019 و 365

لقطة شاشة kutools للنظرة صغيرة لراية 201812

المزيد من الميزات | تحميل مجانا | فقط شنومكس $ لمئات من الوظائف

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.