Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како извести и штампати листу свих фасцикли и подфолдера у програму Оутлоок?

Уопштено говорећи, можете притиснути Цтрл + 6 тастере да бисте видели листу свих фолдера у окну за навигацију у програму Оутлоок. Међутим, не можете да одштампате листу фасцикли. Овај чланак ће представити двије ВБА скрипте за извоз и штампање листе свих фасцикли и њихових потфасцикли у програму Оутлоок.

Један клик да бисте приказали укупан број ставки у свим директоријима у окну за навигацију у програму Оутлоок

Обично Оутлоок приказује бројеве непрочитаних ставки у свакој фасцикли у окну за навигацију. Али, Кутоолс за Оутлоокове Све мапе показују укупан број ставки функција може вам помоћи да прикажете укупан број ставки у свим директоријима само једним кликом. Кликните за КСНУМКС-дан бесплатно пробно без ограничења!
сви фолдери показују укупан број кто КСНУМКС

Кутоолс за Оутлоок: КСНУМКС + Нови напредни алати за Оутлоок.
Оффице Таб: Омогућите уређивање језичака и прегледање у канцеларији, Јуст Лике Цхроме, Фирефок, ИЕ КСНУМКС / КСНУМКС / КСНУМКС.
Цлассиц Мену: Донесите старе меније и алатне траке назад у Оффице КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС.

стрелица плави десни балон Извозите и одштампајте листу свих Оутлоок фасцикли и њихових потфасцикли у новој е-пошти

Овај метод ће представити ВБА за извоз листе свих фасцикли и њихових потфасцикли на одређени е-маил налог у нову е-пошту у Оутлоок-у, а затим можете лако штампати листу фасцикли.

КСНУМКС. Притисните други + ФКСНУМКС тастере за отварање прозора Мицрософт Висуал Басиц за апликације.

КСНУМКС. клик Убацити > Модули, а затим налепите испод ВБА кода у нови прозор Модула.

ВБА: Извози листу фасцикли и потфасцикли у нову е-пошту у програму Оутлоок

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

КСНУМКС. Притисните F5 кључ за покретање овог ВБА.

КСНУМКС. У поп-у дијалогу Изабери фасциклу изаберите рачун за е-пошту чија листа фолдера желите да одштампате и кликните на OK дугме. Погледајте снимак екрана:

КСНУМКС. А сада се листа мапе одређеног налога е-поште копира у нову е-пошту као приказано испод екрана. кликните Фајл > штампа да одштампате копирану листу фолдера.

КСНУМКС. Након штампања, затворите нову е-пошту без чувања.


стрелица плави десни балон Извозите и одштампајте листу свих Оутлоок фасцикли и потфасцикли у Нотепад

Овај метод ће представити ВБА за извоз листе свих фасцикли и њихових потфасцикли на одређени налог е-поште од Оутлоок-а до Нотепад-а, а затим можете једноставно да одштампате листу Оутлоок директоријума у ​​нотепаду.

КСНУМКС. Притисните други + ФКСНУМКС тастере за отварање прозора Мицрософт Висуал Басиц за апликације.

КСНУМКС. клик Убацити > Модули, а затим налепите испод ВБА кода у нови прозор Модула.

ВБА: Извези листу свих Оутлоок фасцикли и подфолдера из Оутлоок у Нотепад

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

КСНУМКС. Притисните F5 кључ за покретање овог ВБА. Затим у дијалогу за отварање Селецт Фолдер изаберите е-маил налог чија листа мапа желите да извезете и одштампате, а затим кликните на дугме OK дугме. Погледајте снимак екрана:

КСНУМКС. Затим долази дијалог бок Оутпут Фолдер Трее. Молимо кликните на да дугме или Не дугме колико вам је потребно.

И сада текстуална датотека названа као Оутлоок-Фолдерс је креиран и сачуван на вашој радној површини као што је приказано испод екрана.

КСНУМКС. Двапут кликните да отворите нову текстуалну датотеку, а затим кликните на дугме Фајл > штампа да одштампате извезену листу Оутлоок директоријума.


стрелица плави десни балонПовезани чланци



Кутоолс за Оутлоок

Више од КСНУМКС напредних функција за Оутлоок КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

сцреен схот кутоолс фор оутлоок тини за баннер КСНУМКС

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција

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.