Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mengeksport dan mencetak senarai semua folder dan subfolder dalam Outlook?

Secara umumnya, anda boleh menekan Ctrl + 6 kekunci untuk melihat senarai semua folder pada Navigasi Pane di Outlook. Walau bagaimanapun, anda tidak boleh mencetak senarai folder. Artikel ini akan memperkenalkan dua skrip VBA untuk mengeksport dan mencetak senarai semua folder dan subfoldernya dalam Outlook.

Satu klik untuk menunjukkan jumlah bilangan item dalam semua folder pada Navigasi Pane di Outlook

Biasanya, Outlook menunjukkan bilangan item yang belum dibaca dalam setiap folder pada Navigation Pane. Tetapi, Kutools untuk Outlook Semua Folder Tunjukkan Jumlah Jumlah Item ciri boleh membantu anda memaparkan jumlah bilangan item dalam semua folder dengan hanya satu klik. Klik untuk percubaan percuma 60-hari tanpa batasan!
semua folder menunjukkan nombor total kto 9.00

Kutools untuk Outlook: 100 + Alat Advanced Baru untuk Outlook.
Tab Pejabat: Dayakan Pengeditan dan Penyemakan Tab di Pejabat, Sama seperti Chrome, Firefox, IE 8 / 9 / 10.
Menu Klasik: Bawa Menu Lama dan Bar Alat Kembali ke Office 2007, 2010, 2013, 2016 dan 2019.

anak panah gelembung kanan biru Eksport dan cetak senarai semua folder Outlook dan subfoldernya dalam e-mel baru

Kaedah ini akan memperkenalkan VBA untuk mengeksport senarai semua folder dan subfolder mereka dalam akaun e-mel tertentu ke e-mel baru di Outlook, dan kemudian anda boleh mencetak senarai folder dengan mudah.

1. Akhbar Alt + F11 kunci untuk membuka tetingkap Microsoft Visual Basic for Applications.

2. klik Memasukkan > Modul, dan kemudian tampal di bawah kod VBA ke dalam tetingkap Modul baru.

VBA: Eksport senarai folder dan subfolder dalam e-mel baru dalam 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. Akhbar F5 kunci untuk menjalankan VBA ini.

4. Dalam kotak dialog Pilih Folder Pilih, sila pilih akaun e-mel yang mana senarai folder yang anda ingin cetak, dan klik OK butang. Lihat tangkapan skrin:

5. Dan kini senarai folder akaun e-mel yang dinyatakan disalin ke e-mel baru seperti screenshot yang ditunjukkan di bawah. Sila klik File > Cetak untuk mencetak senarai folder yang disalin.

6. Selepas mencetak, sila tutup e-mel baru tanpa menyimpan.


anak panah gelembung kanan biru Eksport dan cetak senarai semua folder Outlook ant di sana subfolder di Notepad

Kaedah ini akan memperkenalkan VBA untuk mengeksport senarai semua folder dan subfolder mereka dalam akaun e-mel tertentu dari Outlook ke Notepad, dan kemudian anda boleh mencetak senarai folder Outlook dalam Notepad dengan mudah.

1. Akhbar Alt + F11 kunci untuk membuka tetingkap Microsoft Visual Basic for Applications.

2. klik Memasukkan > Modul, dan kemudian tampal di bawah kod VBA ke dalam tetingkap Modul baru.

VBA: Eksport senarai semua folder Outlook dan subfolder dari Outlook ke 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. Akhbar F5 kunci untuk menjalankan VBA ini. Seterusnya dalam kotak dialog Pilih Folder Pilih, pilih akaun e-mel yang senarai folder anda mahu eksport dan cetak, dan klik OK butang. Lihat tangkapan skrin:

4. Kemudian kotak dialog Output Tree Tree akan datang. Sila klik Ya butang atau Tidak butang yang anda perlukan.

Dan kini fail Teks dinamakan sebagai Outlook-Folders dicipta dan disimpan di desktop anda seperti screenshot di bawah ditunjukkan.

5. Klik dua kali untuk membuka fail teks baru, kemudian klik File > Cetak untuk mencetak senarai folder pandangan yang dieksport.


anak panah gelembung kanan biruArtikel yang berkaitan



Kutools untuk Outlook

Lebih daripada Fungsi Lanjutan 100 untuk Outlook 2010, 2013, 2016, 2019 dan 365

kutools pukulan skrin untuk outlook kecil untuk sepanduk 201812

Lebih Ciri-ciri | Muat turun percuma | Hanya $ 39.00 untuk beratus-ratus fungsi

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.