Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā eksportēt un drukāt sarakstu ar visām Outlook mapēs un apakšmapēs?

Vispārīgi runājot, jūs varat nospiest Ctrl + 6 taustiņi, lai skatītu visu mapju sarakstu navigācijas panelī programmā Outlook. Tomēr jūs nevarat izdrukāt mapju sarakstu. Šajā rakstā tiks ieviesti divi VBA skripti, lai eksportētu un izdrukātu sarakstu ar visām Outlook mapēs un to apakšmapēm.

Viens klikšķis, lai parādītu kopējo vienumu skaitu visās mapēs navigācijas panelī programmā Outlook

Parasti Outlook parāda nelasītu vienumu skaitu katrā mapē navigācijas panelī. Bet Kutools par Outlook Visi mapes parāda kopējo vienību skaitu funkcija var palīdzēt jums parādīt visu elementu kopējo skaitu visās mapēs ar tikai vienu klikšķi. Noklikšķiniet uz 60 dienas bezmaksas izmēģinājuma bez ierobežojumiem!
visas mapes rāda kopējo skaitu kto 9.00

Kutools for Outlook: 100 + jauni uzlaboti rīki Outlook.
Cilnē Office: Iespējot cilnes rediģēšanu un pārlūkošanu Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Klasiskā izvēlne: Novietojiet vecās izvēlnes un rīkjoslas atpakaļ uz Office 2007, 2010, 2013, 2016 un 2019.

bultiņa zils labais burbulis Jaunajā e-pastā eksportējiet un izdrukājiet visu Outlook mapju un to apakšmapes sarakstu

Ar šo metodi tiks ieviests VBA, kas eksportēs sarakstā visas mapes un to apakšmapes noteiktā e-pasta kontā uz jaunu e-pastu programmā Outlook, un pēc tam varat viegli izdrukāt mapju sarakstu.

1. Nospiediet cits + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logu.

2. klikšķis ielaidums > Moduļi, un pēc tam ielīmējiet zemāk VBA kodu jaunajā moduļa logā.

VBA: eksportējiet mapju un apakšmapes sarakstu jaunā Outlook e-pasta vēstulē

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. Nospiediet F5 atslēga, lai palaistu šo VBA.

4. Uznirstošajā logā atlasiet mapes dialoglodziņu, lūdzu, izvēlieties e-pasta kontu, kura mapju saraksts vēlaties drukāt, un noklikšķiniet uz OK poga Skatīt ekrānuzņēmumu:

5. Un tagad e-pasta konta mapju saraksts tiek kopēts uz jaunu e-pastu, kā parādīts attēlā. Lūdzu, noklikšķiniet fileja > drukāt drukāt kopēto mapju sarakstu.

6. Pēc drukāšanas, lūdzu, aizveriet jauno e-pastu, nesaglabājot.


bultiņa zils labais burbulis Eksportējiet un izdrukājiet visu Outlook mapju sarakstu, kas atrodas Notepad apakšmapēs

Šī metode ieviesīs VBA, lai eksportētu sarakstā visas mapes un to apakšmapes noteiktā e-pasta kontā no Outlook uz Notepad un pēc tam jūs viegli varat izdrukāt Outlook mapju sarakstu Notepad.

1. Nospiediet cits + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logu.

2. klikšķis ielaidums > Moduļi, un pēc tam ielīmējiet zemāk VBA kodu jaunajā moduļa logā.

VBA: eksportējiet visu Outlook mapju un apakšmapes sarakstu no programmas Outlook uz 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. Nospiediet F5 atslēga, lai palaistu šo VBA. Nākamajā dialoglodziņā Atvērt mapi, lūdzu, izvēlieties e-pasta kontu, kura mapju saraksts vēlaties eksportēt un drukāt, un noklikšķiniet uz OK poga Skatīt ekrānuzņēmumu:

4. Tad parādīsies izvades mapju koku dialoglodziņš. Lūdzu, noklikšķiniet uz pogu vai poga, ja jums nepieciešams.

Un tagad teksta fails ir nosaukts kā Outlook mapes tiek izveidots un saglabāts darbvirsmā, kā parādīts attēlā.

5. Dubultklikšķi, lai atvērtu jauno teksta failu, un pēc tam noklikšķiniet uz fileja > drukāt lai izdrukātu eksportēto perspektīvo mapju sarakstu.


bultiņa zils labais burbulisSaistītie raksti



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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.