Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano i-export at i-print ang listahan ng lahat ng mga folder at mga subfolder sa Outlook?

Sa pangkalahatan, maaari mong pindutin Ctrl + 6 key upang tingnan ang listahan ng lahat ng mga folder sa Navigation Pane sa Outlook. Gayunpaman, hindi mo ma-print ang listahan ng mga folder. Ang artikulong ito ay magpapakilala ng dalawang mga script ng VBA upang i-export at i-print ang listahan ng lahat ng mga folder at ang kanilang mga subfolder sa Outlook.

Isang pag-click upang ipakita ang kabuuang bilang ng mga item sa lahat ng mga folder sa Navigation Pane sa Outlook

Karaniwan, ipinakita ng Outlook ang mga bilang ng mga hindi pa nababasang item sa bawat folder sa Navigation Pane. Ngunit, ang Kutools para sa Outlook Lahat ng Folder Ipakita ang Kabuuang Bilang ng mga Item ang tampok na maaaring makatulong sa iyo na ipakita ang kabuuang bilang ng mga item sa lahat ng mga folder na may isang click lamang. Mag-click para sa 60-araw na libreng pagsubok nang walang limitasyon!
ipinapakita ng lahat ng mga folder ang kabuuang bilang kto 9.00

Kutools para sa Outlook: 100 + Bagong Advanced na Mga Tool para sa Outlook.
Tab ng Tanggapan: Paganahin ang Pag-edit ng Tab at Pag-browse sa Opisina, Tulad ng Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Dalhin ang mga Old Menu at Toolbars Bumalik sa Office 2007, 2010, 2013, 2016 at 2019.

arrow blue right bubble I-export at i-print ang listahan ng lahat ng mga folder ng Outlook at ang kanilang mga subfolder sa bagong email

Ang pamamaraan na ito ay magpapakilala sa isang VBA upang i-export ang listahan ng lahat ng mga folder at ang kanilang mga subfolder sa isang tinukoy na email account sa isang bagong email sa Outlook, at pagkatapos ay maaari mong i-print ang listahan ng mga folder madali.

1. Pindutin ang Alt + F11 key upang buksan ang window ng Microsoft Visual Basic para sa Mga Application.

2. click Isingit > Module, at pagkatapos ay i-paste sa ibaba ang VBA code sa bagong window ng Module.

VBA: I-export ang listahan ng mga folder at mga subfolder sa isang bagong email sa 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. Pindutin ang F5 susi na patakbuhin ang VBA na ito.

4. Sa popping out Piliin ang dialog box na Folder, mangyaring piliin ang email account na ang listahan ng mga folder na gusto mong i-print, at i-click ang OK na pindutan. Tingnan ang screenshot:

5. At ngayon ang listahan ng folder ng tinukoy na email account ay kinopya sa isang bagong email tulad ng screenshot sa ibaba. Paki-klik talaksan > Print upang i-print ang nakopyang listahan ng mga folder.

6. Pagkatapos ng pag-print, pakisara ang bagong email nang hindi nagse-save.


arrow blue right bubble I-export at i-print ang listahan ng lahat ng mga folder ng Outlook na may mga subfolder sa Notepad

Ang pamamaraan na ito ay magpapakilala sa isang VBA upang i-export ang listahan ng lahat ng mga folder at ang kanilang mga subfolder sa isang tinukoy na email account mula sa Outlook papunta sa Notepad, at pagkatapos ay maaari mong i-print ang listahan ng mga folder ng Outlook sa Notepad madali.

1. Pindutin ang Alt + F11 key upang buksan ang window ng Microsoft Visual Basic para sa Mga Application.

2. click Isingit > Module, at pagkatapos ay i-paste sa ibaba ang VBA code sa bagong window ng Module.

VBA: I-export ang listahan ng lahat ng mga folder at subfolder ng Outlook mula sa Outlook papunta sa 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. Pindutin ang F5 susi na patakbuhin ang VBA na ito. Susunod sa pambungad na Piliin ang dialog ng dialog ng Folder, mangyaring piliin ang email account na ang listahan ng folder na nais mong i-export at i-print, at i-click ang OK na pindutan. Tingnan ang screenshot:

4. Pagkatapos ay darating ang dialog box na Output Folder Tree. Paki-click ang Oo pindutan o Hindi pindutan na kailangan mo.

At ngayon isang Text file na pinangalanan bilang Outlook-Folder Nilikha at na-save sa iyong desktop tulad ng screenshot sa ibaba.

5. I-double click upang buksan ang bagong file ng teksto, at pagkatapos ay mag-click talaksan > Print upang i-print ang nai-export na listahan ng mga folder ng pananaw.


arrow blue right bubbleKaugnay na Artikulo



Kutools para sa Outlook

Higit sa 100 Advanced na Mga Function para sa Outlook 2010, 2013, 2016, 2019 at 365

screen shot kutools para sa pananaw maliit na maliit para sa banner 201812

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar

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.