Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izvoziti in natisniti seznam vseh map in podmap v programu Outlook?

Na splošno lahko pritisnete Ctrl + 6 tipke za ogled seznama vseh map v podoknu za krmarjenje v programu Outlook. Vendar ne morete natisniti seznama map. Ta članek bo predstavil dva skripta VBA za izvoz in tiskanje seznama vseh map in njihovih podmap v Outlooku.

En klik, če želite prikazati skupno število elementov v vseh mapah v podoknu za krmarjenje v programu Outlook

Običajno Outlook prikazuje število neprebranih elementov v vsaki mapi v podoknu za krmarjenje. Ampak, Kutools za Outlook's Vse mape prikazujejo skupno število elementov funkcija vam lahko pomaga prikazati skupno število elementov v vseh mapah z enim samim klikom. Kliknite brezplačno preskusno različico 60-dan brez omejitev!
vse mape prikazujejo skupno število kto 9.00

Kutools za Outlook: 100 + Nova napredna orodja za Outlook.
Office Tab: Omogoči urejanje kartic in brskanje v Officeu, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Prinesite stare menije in orodne vrstice v Office 2007, 2010, 2013, 2016 in 2019.

puščica modra desno mehurček Izvozite in natisnite seznam vseh Outlookovih map in njihovih podmap v novem e-poštnem sporočilu

Ta metoda bo uvedla VBA za izvoz seznama vseh map in njihovih podmap v določenem e-poštnem računu v novo e-poštno sporočilo v programu Outlook, nato pa lahko preprosto natisnete seznam map.

1. Pritisnite druga + F11 da odprete okno Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduliin nato prilepite pod kodo VBA v novo okno modula.

VBA: izvozite seznam map in podmap v novem e-poštnem sporočilu v programu 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. Pritisnite F5 ključ za zagon te VBA.

4. V pojavnem pogovornem oknu Izberi mapo izberite e-poštni račun, katerega seznam map želite natisniti, in kliknite na OK gumb. Prikaz slike:

5. In zdaj je seznam map določenega e-poštnega računa kopiran v novo e-pošto, kot je prikazano spodaj. Prosimo, kliknite file > Tiskanje natisnete kopirani seznam map.

6. Po tiskanju zaprite novo e-pošto brez shranjevanja.


puščica modra desno mehurček Izvozite in natisnite seznam vseh Outlookovih map, v njih pa podmape v Notepad

Ta metoda bo uvedla VBA za izvoz seznama vseh map in njihovih podmap v določenem e-poštnem računu od Outlook na Notepad, nato pa lahko preprosto natisnete seznam imenikov Outlook v Notepad.

1. Pritisnite druga + F11 da odprete okno Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduliin nato prilepite pod kodo VBA v novo okno modula.

VBA: izvozite seznam vseh Outlookovih map in podmap v Outlook v 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. Pritisnite F5 ključ za zagon te VBA. Naslednje v pogovornem oknu Izberi mapo izberite izbirni e-poštni račun, katerega seznam map želite izvoziti in natisniti, in kliknite na OK gumb. Prikaz slike:

4. Nato prikaže pogovorno okno Tree Tree Output Folder Tree. Prosimo, kliknite na Da gumb ali Ne gumb, kot ga potrebujete.

In zdaj je datoteka z besedilom imenovana kot Outlook-mape je ustvarjen in shranjen na namizju, kot je prikazano spodaj.

5. Dvokliknite, da odprete novo besedilno datoteko in nato kliknite file > Tiskanje natisniti izvoženi seznam map Outlook.


puščica modra desno mehurčekPovezani članki



Kutools za Outlook

Več kot 100 napredne funkcije za Outlook 2010, 2013, 2016, 2019 in 365

zaslon strel kutools za napovedi majhen za banner 201812

Več funkcij | Brezplačen prenos | Samo $ 39.00 za stotine funkcij

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.