Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tista 'tesporta u tistampa l-lista tal-folders u s-subfolders kollha fl-Outlook?

B'mod ġenerali, tista 'tagħfas Ctrl + 6 ċwievet biex tara l-lista tal-folders kollha fuq il-Pane tan-Navigazzjoni fl-Outlook. Madankollu, ma tistax tistampa l-lista tal-folders. Dan l-artikolu se jintroduċi żewġ skripts VBA biex jesporta u jistampa l-lista tal-folders u s-subfolders kollha tagħhom f'Perfiċ.

Klikkell biex turi n-numri totali ta 'oġġetti fil-folders kollha fuq il-Pane tan-Navigazzjoni fl-Outlook

Normalment, Outlook juri n-numri ta 'oġġetti mhux maqtugħin f'kull folder fuq il-Pane tan-Navigazzjoni. Iżda, Kutools għall-Outlook's Il-folders kollha juru numru totali ta 'oġġetti Il-karatteristika tista 'tgħinek turi n-numri totali ta' oġġetti fil-folders kollha b'fattur wieħed biss. Ikklikkja għal prova b'xejn ta '60 mingħajr limitazzjoni!
Il-folders kollha juru n-numru totali kto 9.00

Kutools għall-Outlook: 100 + Għodod Avvanzati Ġodda għall-Outlook.
Uffiċċju Tab: Jippermettu Tabbed Editing u Browsing fl-Uffiċċju, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic: Ġib il-Menus Qadim u Toolbars Lura għall-Uffiċċju 2007, 2010, 2013, 2016 u 2019.

vleġġa bużżieqa tal-lemin blu Esporta u jistampa l-lista tal-folders kollha tal-Outlook u s-subfolders tagħhom f'email ġdid

Dan il-metodu se jintroduċi VBA biex jesporta l-lista tal-folders u s-subfolders kollha tagħhom f'kont tal-email speċifikat f'email ġdid f'Perhaps, u allura tista 'tipprintja l-lista ta' folders faċilment.

1. Istampa Alt + F11 Ċwievet biex tiftaħ it-tieqa Microsoft Visual Basic għal Applikazzjonijiet.

2. ikklikkja Daħħal > Moduli, u mbagħad paste taħt il-kodiċi VBA fit-tieqa l-ġdida tal-Modulu.

VBA: Esporta l-lista ta 'folders u subfolders f'email ġdid fl-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. Istampa F5 Ċavetta biex imexxu din il-VBA.

4. Fil-popping out Agħżel folder dialog box, jekk jogħġbok agħżel il-kont tal-email li l-lista ta 'folders li trid tipprintja, u kklikkja fuq OK buttuna. Ara l-screenshot:

5. U issa l-lista tal-folder tal-kont tal-email speċifikat hija kkupjata għal email ġdid kif jidher taħt il-screenshot muri. Jekk jogħġbok ikklikkja File > Stampa biex jistampa l-lista kkupjata ta 'folders.

6. Wara l-istampar, agħtaq l-email il-ġdid mingħajr tfaddil.


vleġġa bużżieqa tal-lemin blu Esporta u jistampa l-lista tal-folders kollha ta 'l-Outlook hemm is-subfolders fin-Notepad

Dan il-metodu se jintroduċi VBA biex jesporta l-lista tal-folders u s-subfolders kollha tagħhom f'kont tal-email speċifiku minn Outlook għal Notepad, u allura tista 'tipprintja l-lista ta' folders Outlook fin-Notepad faċilment.

1. Istampa Alt + F11 Ċwievet biex tiftaħ it-tieqa Microsoft Visual Basic għal Applikazzjonijiet.

2. ikklikkja Daħħal > Moduli, u mbagħad paste taħt il-kodiċi VBA fit-tieqa l-ġdida tal-Modulu.

VBA: Esporta l-lista tal-folders u subfolders kollha ta 'Outlook minn Outlook għal 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. Istampa F5 Ċavetta biex imexxu din il-VBA. Sussegwentement fil-kaxxa tal-ftuħ Select Folder dialog, agħżel il-kont tal-email li l-lista tal-folder tieghek trid tesporta u tistampa, u kklikkja fuqha OK buttuna. Ara l-screenshot:

4. Imbagħad il-kaxxa tad-Disinn tal-Folder Tree Tree toħroġ. Jekk jogħġbok ikklikkja fuq il- Iva buttuna jew Nru buttuna kif għandek bżonn.

U issa fajl Test imsemmi bħala Folders ta 'l-Outlook hija maħluqa u ffrankata fuq id-desktop tiegħek kif jidher taħt il-screenshot muri.

5. Ikklikkja darbtejn biex tiftaħ il-fajl tat-test il-ġdid File > Stampa biex jistampa l-lista esportata ta 'folders ta' prospetti.


vleġġa bużżieqa tal-lemin bluArtikli relatati



Kutools għall-Outlook

Aktar minn Funzjonijiet Avvanzati ta '100 għal Outlook 2010, 2013, 2016, 2019 u 365

kutools ta &#39;screen shot għall-prospetti ċkejkna għall-bandiera 201812

Karatteristiċi Aktar | Free download | Biss $ 39.00 għal mijiet ta 'funzjonijiet

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.