نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

نحوه صادرات و چاپ لیست تمام پوشه ها و پوشه ها در Outlook چیست؟

به طور کلی، شما می توانید فشار دهید کلیدهای Ctrl + 6 کلید برای مشاهده لیست تمام پوشه ها در صفحه ناوبری در چشم انداز. با این حال، شما نمی توانید لیست پوشه ها را چاپ کنید. این مقاله دو اسکریپت VBA را برای صادرات و چاپ لیست تمام پوشه ها و زیر پوشه های آنها در Outlook معرفی خواهد کرد.

یک کلیک برای نشان دادن تعداد کل اقلام در همه پوشه ها در صفحه ناوبری در چشم انداز

به طور معمول، چشم انداز اعداد موارد خوانده نشده در هر پوشه در صفحه ناوبری را نشان می دهد. اما Kutools برای چشم انداز تمام پوشه ها تعداد کل آیتم ها را نشان می دهند این ویژگی می تواند به شما کمک کند کل اشیا را در همه پوشه ها تنها با یک کلیک نشان دهید. برای محاکمه آزاد روز 60 روز بدون محدودیت کلیک کنید!
تمام پوشه ها نشان دهنده تعداد کل kto 9.00 می باشد

Kutools برای چشم انداز: 100 + ابزار پیشرفته جدید برای چشم انداز.
دفتر تب: فعال کردن ویرایش و مرور نواربندی در دفتر، درست مانند Chrome، Firefox، IE 8 / 9 / 10.
منوی کلاسیک: منوی های قدیمی و نوارهای ابزار را بازگردانید به دفتر 2007، 2010، 2013، 2016 و 2019.

فلش آبی راست حباب صادرات و چاپ لیست تمام پوشه های چشم انداز و زیر پوشه های خود را در ایمیل های جدید

این روش یک VBA را برای صادرات لیست تمام پوشه ها و پوشه های زیر در یک حساب ایمیل مشخص به یک ایمیل جدید در Outlook معرفی می کند و سپس می توانید لیست پوشه ها را به آسانی چاپ کنید.

1 مطبوعات دگرساز + F11 کلید برای باز کردن پنجره مایکروسافت ویژوال بیسیک برای برنامه.

2. کلیک قرار دادن > ماژول ها، و سپس زیر کد 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 در پنجره ظاهر شدن کادر محاوره ای Folder را انتخاب کنید، لطفا حساب ایمیل که لیست پوشه هایی که می خواهید چاپ کنید، را انتخاب کنید و روی آن کلیک کنید OK دکمه. تصویر را ببینید:

5 و اکنون لیست پوشه ای از حساب ایمیل مشخص شده به یک ایمیل جدید کپی می شود که تصویر زیر نشان داده شده است. لطفا کلیک کنید پرونده > چاپ برای چاپ لیست کپی شده از پوشه ها.

6 پس از چاپ، لطفا ایمیل جدید را بدون ذخیره کردن بسته کنید.


فلش آبی راست حباب صادرات و چاپ لیست تمام پوشه های چشم انداز در زیر پوشه ها در Notepad وجود دارد

این روش یک VBA را برای صادرات لیست تمام پوشه ها و پوشه های زیر در یک حساب ایمیل مشخص از Outlook به Notepad معرفی می کند و سپس می توانید لیستی از پوشه های Outlook را در Notepad به راحتی چاپ کنید.

1 مطبوعات دگرساز + F11 کلید برای باز کردن پنجره مایکروسافت ویژوال بیسیک برای برنامه.

2. کلیک قرار دادن > ماژول ها، و سپس زیر کد 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. بعدا در کادر بازشوی کادر محاوره ای Folder انتخاب کنید، لطفا حساب ایمیل که لیست پوشه ای که می خواهید آن را صادر کنید و چاپ کنید انتخاب کنید و روی آن کلیک کنید OK دکمه. تصویر را ببینید:

4 سپس کادر محاوره ای Output Folder در حال آمدن است. لطفا کلیک کنید بله دکمه یا نه دکمه به عنوان شما نیاز دارید.

و اکنون یک فایل متنی به نام چشم انداز پوشه ها بر روی دسکتاپ شما ایجاد شده و ذخیره می شود همانطور که تصویر زیر نشان داده شده است.

5 برای باز کردن فایل متنی جدید دوبار کلیک کنید، سپس روی آن کلیک کنید پرونده > چاپ برای چاپ لیست صادر شده از پوشه های چشم انداز چاپ.


فلش آبی راست حبابمقالات مرتبط



Kutools برای چشم انداز

بیشتر از توابع پیشرفته 100 برای چشم انداز 2010، 2013، 2016، 2019 و 365

kutools روی صفحه نمایش برای چشم انداز کوچک برای بنر 201812

از ویژگی های بیشتر | دانلود رایگان | فقط $ 39.00 برای صدها توابع

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.