Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe kan u alle dopgehou en subgidse in Outlook uitvoer en druk?

Oor die algemeen kan jy druk Ctrl + 6 sleutels om die lys van alle dopgehou in die navigasiekanaal in Outlook te sien. U kan egter nie die lys dopgehou druk nie. In hierdie artikel word twee VBA-scripts geïntroduceerd om die lys van alle dopgehou en hul submappen in Outlook uit te druk en te druk.

Een kliek om die totale aantal items in alle dopgehou in die Navigasiepaneel in Outlook te vertoon

Normaalweg vertoon Outlook die aantal ongelese items in elke gids in die Navigasiepaneel. Maar, Kutools vir Outlook Alle dopgehou Wys totale aantal items funksie kan u help om die totale aantal items in alle dopgehou met slegs een kliek te vertoon. Kliek vir 60-dag gratis toets sonder beperking!
alle dopgehou toon totale getal kto 9.00

Kutools for Outlook: 100 + Nuwe Gevorderde Tools vir Outlook.
Office Tab: Aktiveer Tabbedigering en blaai in Office, Net soos Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Bring Ou Spyskaarte en Toolbars terug na Office 2007, 2010, 2013, 2016 en 2019.

pyl blou regte borrel Voer en druk die lys van alle Outlook-dopgehou en hul subgidse in 'n nuwe e-pos

Met hierdie metode word 'n VBA ingestel om die lys van alle dopgehou en hul subgidse in 'n gespesifiseerde e-posrekening uit te voer na 'n nuwe e-pos in Outlook, en dan kan u die lys van dopgehou maklik druk.

1. Press alt + F11 sleutels om die Microsoft Visual Basic for Applications venster oop te maak.

2. Klik Plaas > module, en plak dan onder VBA-kode in die nuwe Module-venster.

VBA: Voer die lys van dopgehou en subgidse uit in 'n nuwe e-pos in 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. Press F5 sleutel om hierdie VBA uit te voer.

4. Kies in die dialoogkassie Kies gids die kieslys van die e-posrekening wie se lys van dopgehou jy wil druk, en klik die OK knoppie. Sien skermkiekie:

5. En nou word die vouerlys van die gespesifiseerde e-posrekening gekopieer na 'n nuwe e-pos soos hieronder aangedui. Klik asseblief File > Print Om die gekopieerde lys van dopgehou te druk.

6. Na die druk, sluit asseblief die nuwe e-pos sonder om te stoor.


pyl blou regte borrel Voer die lys van alle Outlook-dopgehou uit en druk die submappe in Notepad

Hierdie metode stel 'n VBA bekend om die lys van alle dopgehou en hul subgidse in 'n gespesifiseerde e-pos rekening van Outlook na Notepad uit te voer. Dan kan u die lys van Outlook-dopgehou in die Notepad maklik druk.

1. Press alt + F11 sleutels om die Microsoft Visual Basic for Applications venster oop te maak.

2. Klik Plaas > module, en plak dan onder VBA-kode in die nuwe Module-venster.

VBA: Voer die lys van alle Outlook-dopgehou en subgidse uit Outlook na Notepad uit

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 sleutel om hierdie VBA uit te voer. Volgende in die opening kieslys dialoogkassie, kies asseblief die e-pos rekening wie se vouerlys u wil uitvoer en druk en klik op die OK knoppie. Sien skermkiekie:

4. Dan kom die Output Folder Tree dialoogkassie aan die gang. Klik asseblief op die Ja knoppie of Geen knoppie as wat jy nodig het.

En nou 'n teks lêer genaamd as Outlook-dopgehou word op jou lessenaar geskep en gestoor, soos hieronder aangedui.

5. Dubbelklik om die nuwe tekslêer oop te maak en klik dan File > Print om die uitgevoerde lys van Outlook-vouers te druk.


pyl blou regte borrelverwante Artikels



Kutools for Outlook

Meer as 100 Gevorderde funksies vir Outlook 2010, 2013, 2016, 2019 en 365

skermskut kutools vir uitsig klein vir banner 201812

Meer funksies | Gratis aflaai | Slegs $ 39.00 vir honderde funksies

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.