Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako izvesti i ispisati popis svih mapa i podmapa u programu Outlook?

Općenito, možete pritisnuti Ctrl + 6 da biste vidjeli popis svih mapa na navigacijskoj ploči u programu Outlook. Međutim, ne možete ispisati popis mapa. Ovaj članak će predstaviti dvije VBA skripte za izvoz i ispisati popis svih mapa i njihovih podmapa u programu Outlook.

Jedan klik da biste prikazali ukupan broj stavki u svim mapama na navigacijskoj ploči u programu Outlook

Obično Outlook prikazuje broj nepročitanih stavki u svakoj mapi na navigacijskoj ploči. Ali, Kutools za Outlook Sve mape pokazuju ukupan broj stavki značajka vam može pomoći prikazati ukupan broj stavki u svim mapama s jednim klikom. Kliknite besplatnu probnu verziju 60-a bez ograničenja!
sve mape pokazuju ukupan broj kto 9.00

Kutools za Outlook: 100 + Novi napredni alati za Outlook.
Kartica sustava Office: Omogućavanje uređivanja i pregledavanja karata u uredu, Baš kao i Chrome, Firefox, IE 8 / 9 / 10.
Klasični izbornik: Vraćanje starih izbornika i alatnih traka na Office 2007, 2010, 2013, 2016 i 2019.

strelica plava desna mjehurić Izvoz i ispis popisa svih Outlook mapa i njihovih podmapa u novu e-poštu

Ova metoda će uvesti VBA za izvoz popisa svih mapa i njihovih podmapa na određenom računu e-pošte u novu e-poštu u programu Outlook, a zatim možete jednostavno ispisati popis mapa.

1. tisak drugo + F11 tipke za otvaranje prozora programa Microsoft Visual Basic for Applications.

2. klik umetak > Moduli, a zatim zalijepite ispod VBA koda u novi prozor Modula.

VBA: Izvoz popis mapa i podmapa u novu e-poštu u 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. tisak F5 ključ za pokretanje ove VBA.

4. U dijaloškom okviru Odabir mape, odaberite račun e-pošte čiji popis mapa koje želite ispisati i kliknite OK dugme. Pogledajte snimak zaslona:

5. A sada se popis mapa navedenog računa e-pošte kopira u novu e-poštu, kao što je prikazano na slici. Molimo kliknite file > otisak za ispis kopiranog popisa mapa.

6. Nakon ispisa, zatvorite novu e-poštu bez spremanja.


strelica plava desna mjehurić Izvoz i ispis popisa svih Outlook mapa i mreznih podmapa u Notepad

Ova metoda će uvesti VBA za izvoz popisa svih mapa i njihovih podmapa na određenom računu e-pošte iz programa Outlook u Notepad, a zatim možete lako ispisati popis mapa programa Outlook u Notepad.

1. tisak drugo + F11 tipke za otvaranje prozora programa Microsoft Visual Basic for Applications.

2. klik umetak > Moduli, a zatim zalijepite ispod VBA koda u novi prozor Modula.

VBA: Izvozite popis svih Outlook mapa i podmapa iz programa Outlook u 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. tisak F5 ključ za pokretanje ove VBA. Dalje u otvaranju dijaloškog okvira Odaberi mapu, odaberite račun e-pošte čiji popis mapa želite izvesti i ispisati, a zatim kliknite gumb OK dugme. Pogledajte snimak zaslona:

4. Zatim dolazi dijaloški okvir Output Folder Tree. Molimo kliknite na Da gumb ili Ne kao što vam je potrebno.

A sada je tekstualna datoteka zove kao Outlook mape je stvoren i spremljen na radnoj površini kao što je prikazano na slici.

5. Dvaput kliknite da biste otvorili novu tekstualnu datoteku, a zatim kliknite file > otisak za ispis izvezenog popisa Outlook mapa.


strelica plava desna mjehurićVezani članci



Kutools za Outlook

Više od 100 naprednih funkcija za Outlook 2010, 2013, 2016, 2019 i 365

zaslon pucao kutools za Outlook mali za banner 201812

Dodatne mogućnosti | Besplatno preuzimanje | Samo $ 39.00 za stotine funkcija

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.