Preskoči na glavno vsebino

Kako izvoziti in natisniti seznam vseh map in podmap v Outlooku?

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


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 Outlooku, nato pa lahko seznam map enostavno natisnete.

1. Pritisnite druga + F11 za odpiranje okna 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 novo e-poštno sporočilo 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 tega VBA.

4. V pogovornem oknu Izberi mapo izberite e-poštni račun, katerega seznam map želite natisniti, in kliknite OK . Oglejte si posnetek zaslona:

5. Zdaj je seznam map določenega e-poštnega računa kopiran v novo e-poštno sporočilo, kot je prikazano spodaj. Prosim kliknite file > Tiskanje za tiskanje kopiranega seznama map.

6. Po tiskanju zaprite novo e-poštno sporočilo, ne da bi ga shranili.


Izvozite in natisnite seznam vseh Outlookovih map in tam podmape v Beležnici

Ta metoda bo uvedla VBA za izvoz seznama vseh map in njihovih podmap v določenem e-poštnem računu iz Outlooka v Beležnico, nato pa lahko seznam Outlookovih map v Beležnici enostavno natisnete.

1. Pritisnite druga + F11 za odpiranje okna 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 iz Outlooka v Beležnico

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 tega VBA. Nato v otvoritvenem pogovornem oknu Select Folder izberite e-poštni račun, katerega seznam map želite izvoziti in natisniti, in kliknite OK . Oglejte si posnetek zaslona:

4. Nato se prikaže pogovorno okno Output Folder Tree. Kliknite Da gumb ali Ne gumb, kot ga potrebujete.

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

5. Dvokliknite, da odprete novo besedilno datoteko, in nato kliknite file > Tiskanje za tiskanje izvoženega seznama map Outlook.

Z enim klikom prikažete skupno število elementov v vseh mapah v podoknu za krmarjenje v Outlooku

Outlook običajno prikaže število neprebranih elementov v vsaki mapi v podoknu za krmarjenje. Ampak, Kutools za Outlook Vse mape prikazujejo skupno število elementov Funkcija vam lahko pomaga prikazati skupno število elementov v vseh mapah z enim samim klikom.


vse mape prikazujejo skupno število do 9.00

Povezani članki


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you so much for this very valuable post. It really helped me a lot as outlook is still not able to show the folder structure!
This comment was minimized by the moderator on the site
Saved us a ton of time. Thanks for the detailed instructions. Worked like a charm! :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
Most excellent tip. Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations