Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas eksportida ja printida Outlooki kõigi kaustade ja alamkaustade loendit?

Üldiselt võite vajutada Ctrl + 6 klahvid, et vaadata kõigi Outlooki navigeerimispaanide kaustade loendit. Kuid te ei saa kataloogide loendit printida. See artikkel tutvustab kahte VBA-skripti Outlooki kõigi kaustade ja nende alamkaustade loendi eksportimiseks ja printimiseks.

Üks kliki, et kuvada Outlookis navigeerimispaanil kõikides kaustades olevate üksuste koguarv

Tavaliselt näitab Outlook mitmesuguseid postitusi igas navigeerimispaani kaustas. Kuid Kutools Outlooki jaoks Kõik kaustad näitavad ühikute koguarvu funktsioon aitab teil näidata kõigi kaustade üksuste koguarvu ainult ühe klõpsuga. Klõpsake 60-päeva tasuta prooviperioodiks ilma piiranguteta!
kõik kaustad näitavad koguarv kto 9.00

Outlooki Kutools: 100 + uued täpsemad tööriistad Outlooki jaoks.
Office'i vahekaart: Lubage Office'i vahelehtede redigeerimine ja sirvimine, Just nagu Chrome, Firefox, IE 8 / 9 / 10.
Klassikaline menüü: Viige vanad menüüd ja tööriistaribad tagasi Office 2007, 2010, 2013, 2016 ja 2019.

nool sinine parempoolne mull Uute e-kirjade eksportimine ja printimine kõigi Outlooki kaustade ja nende alamkaustade loendi kohta

Selle meetodiga tutvustatakse VBA-d, et eksportida Outlooki kõigi uute kaustade ja nende alamkaustade nimekiri määratud e-posti kontolt ja seejärel hõlpsasti kaustade loendit printida.

1. press muu + F11 võtmed, et avada Microsoft Visual Basic for Applications aken.

2. klõps Sisesta > moodulid, ja seejärel kleepige VBA koodi alla uude mooduli aknasse.

VBA: Outlooki uues e-kirjas eksportige kaustade ja alamkaustade loend

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. press F5 võtme käivitamiseks see VBA.

4. Avanevas valikus Vali kaustade dialoogiboks, palun valige e-posti konto, mille kaustade nimekiri soovite printida, ja klõpsake nuppu OK nuppu. Vaata pilti:

5. Nüüd kopeeritakse määratud e-posti konto kaustaloend uude e-posti aadressi, nagu allpool näidatud ekraanipildi. Palun klõpsake fail > trükk kopeeritud kaustade loendi printimiseks.

6. Pärast printimist sulgege uus meil, ilma salvestuseta.


nool sinine parempoolne mull Ekspordi ja trükkige nimekiri kõigist Outlooki kaustadest, mis asuvad Notepadis alamkataloogides

Selle meetodiga tutvustatakse VBA-d, et eksportida nimekirja kõikidest kaustadest ja nende alamkaustadest määratud e-posti kontolt Outlookist Notepadini ja seejärel saate hõlpsalt printida Outlooki kaustade loendi Notepadis.

1. press muu + F11 võtmed, et avada Microsoft Visual Basic for Applications aken.

2. klõps Sisesta > moodulid, ja seejärel kleepige VBA koodi alla uude mooduli aknasse.

VBA: eksporti Outlooki kaustade ja alamkaustade loend Outlookist Notepadile

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. press F5 võtme käivitamiseks see VBA. Avanevas dialoogiboksis Vali kaust valige dialoogiboksis e-posti konto, mille kaustade loendit soovite eksportida ja printida ning klõpsake nuppu OK nuppu. Vaata pilti:

4. Siis saabub väljund kausta puu dialoogiboks. Palun klõpsake jah nuppu või Ei nuppu kui vaja.

Ja nüüd on tekstifail nimega Outlooki kaustad on loodud ja salvestatud töölauale, nagu on näidatud allpool.

5. Uue tekstifaili avamiseks topeltklõpsake ja seejärel klõpsake fail > trükk eksporditavate väljavaadete kaustade loendi printimiseks.


nool sinine parempoolne mullseotud artiklid



Outlooki Kutools

Rohkem kui 100 täiustatud funktsioonid Outlooki 2010, 2013, 2016, 2019 ja 365 jaoks

ekraanipilt kutools jaoks banneri 201812 jaoks väikeseks

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks

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.