Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як экспартаваць і надрукаваць спіс усіх тэчак і ўкладзеных тэчак у Outlook?

Наогул кажучы, вы можаце націснуць Ctrl + 6 Клавішы для прагляду спісу ўсіх тэчак на панэлі навігацыі ў Outlook. Тым не менш, вы не можаце раздрукаваць спіс тэчак. Гэты артыкул прадставіць два сцэнара VBA для экспарту і друку спісу ўсіх тэчак і іх ўкладзеных тэчак у Outlook.

Адзін націсніце, каб паказаць агульная колькасць элементаў ва ўсіх тэчках на панэлі навігацыі ў Outlook,

Як правіла, Outlook паказвае колькасць непрачытаных элементаў у кожнай тэчцы на панэлі навігацыі. Але, Kutools для праграмы Outlook Усе тэчкі Паказваць агульная колькасць элементаў функцыя можа дапамагчы вам паказаць агульная колькасць элементаў ва ўсіх тэчках толькі з адным пстрычкай мышы. Націсніце для 60-дзённай бясплатнай пробнай версіі без абмежаванняў!
усе тэчкі паказваюць агульная колькасць KTO 9.00

Kutools для Outlook,: 100 + New Advanced Tools для Outlook.
ўкладка Упраўленне: Ўключыць укладкамі Рэдагаванне і прагляду ў Бюро, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Прынясіце Старое меню і панэлі інструментаў Назад у офіс 2007, 2010, 2013, 2016 і 2019.

стрэлка сіняга правага бурбалкі Экспарт і раздрукаваць спіс усіх тэчак Outlook, і іх укладзеныя папкі ў новае паведамленне электроннай пошты

Гэты метад будзе ўвесці VBA, каб экспартаваць спіс усіх тэчак і іх ўкладзеных тэчак у названай ўліковага запісу электроннай пошты ў новае паведамленне электроннай пошты ў Outlook, а затым вы можаце раздрукаваць спіс тэчак лёгка.

1. прэс Alt + F11 ключы, каб адкрыць Microsoft Visual Basic для прыкладанняў вокны.

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. У выкаціліся дыялогавым акне Выбар тэчкі, абярыце уліковы запіс электроннай пошты спіс тэчак, якія вы хочаце надрукаваць, чый, і націсніце OK кнопка. Глядзіце скрыншот:

5. А цяпер спіс тэчак названай ўліковага запісу электроннай пошты капіюецца ў новае паведамленне электроннай пошты як ніжэй скрыншоце паказана. Калі ласка, націсніце Размовы > друк друкаваць скапіяваны спіс тэчак.

6. Пасля друку, калі ласка, зачыніце новае паведамленне электроннай пошты без захавання.


стрэлка сіняга правага бурбалкі Экспарт і раздрукаваць спіс усіх тэчак Outlook, мурашка там укладзеныя папкі ў Нататніку

Гэты метад будзе ўвесці VBA, каб экспартаваць спіс усіх тэчак і іх ўкладзеных тэчак у названай ўліковага запісу электроннай пошты з Outlook, у Блокнот, а затым вы можаце раздрукаваць спіс тэчак Outlook, у Нататніку лёгка.

1. прэс Alt + F11 ключы, каб адкрыць Microsoft Visual Basic для прыкладанняў вокны.

2. пстрычка Уставіць > Модулі, А затым устаўце ніжэй VBA кода ў новым акне модуля.

VBA: Экспарт спісу ўсіх тэчак і ўкладзеных тэчак Outlook, Outlook, з ў Блокнот

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 падыходзіць. Калі ласка, націсніце ды або кнопку няма Кнопка, як вам трэба.

А цяпер тэкставы файл з імем, як Outlook, тэчкі створаны і захаваны на працоўным стале, як паказана ніжэй скрыншоце паказана на малюнку.

5. Двойчы пстрыкніце, каб адкрыць новы тэкставы файл, а затым націсніце Размовы > друк раздрукаваць экспартаваны спіс перспектыўных тэчак.


стрэлка сіняга правага бурбалкіАртыкулы па Тэме



Kutools для Outlook,

Больш 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.