Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
x

or

Làm thế nào để xuất khẩu và in danh sách tất cả các thư mục và thư mục con trong Outlook?

Nói chung, bạn có thể nhấn Ctrl + 6 phím để xem danh sách tất cả các thư mục trên Bảng điều khiển trong Outlook. Tuy nhiên, bạn không thể in danh sách thư mục. Bài viết này sẽ giới thiệu hai kịch bản VBA để xuất và in danh sách tất cả các thư mục và các thư mục con của chúng trong Outlook.

Một cú nhấp chuột để hiển thị tổng số các mục trong tất cả các thư mục trên Bảng điều khiển trong Outlook

Thông thường, Outlook hiển thị số mục chưa đọc trong mỗi thư mục trên Bảng Điều hướng. Tuy nhiên, Kutools cho Outlook Tất cả các thư mục Hiển thị Tổng Số mục có thể giúp bạn hiển thị tổng số mục trong tất cả các thư mục chỉ với một cú nhấp chuột. Nhấp vào 60 ngày dùng thử miễn phí mà không bị giới hạn!
tất cả các thư mục hiển thị tổng số người 9.00

Kutools cho Outlook: 100 + Các công cụ nâng cao mới cho Outlook.
Tab Office: Bật tính năng Chỉnh sửa và Duyệt qua Tab trong Văn phòng, Giống như Chrome, Firefox, IE 8 / 9 / 10.
Menu Cổ điển: Mang theo menu cũ và thanh công cụ Quay lại đến Văn phòng 2007, 2010, 2013, 2016 và 2019.

mũi tên màu xanh bên phải Xuất và in danh sách tất cả các thư mục Outlook và các thư mục con của chúng trong email mới

Phương pháp này sẽ giới thiệu một VBA để xuất danh sách tất cả các thư mục và các thư mục con của họ trong một tài khoản email đã chỉ định vào một email mới trong Outlook, và sau đó bạn có thể in danh sách các thư mục một cách dễ dàng.

1. nhấn Khác + F11 chìa khóa để mở cửa sổ Microsoft Visual Basic cho ứng dụng.

2. nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào cửa sổ Module mới.

VBA: Xuất danh sách thư mục và thư mục con trong một email mới trong 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. nhấn F5 chìa khóa để chạy VBA này.

4. Trong hộp thoại Chọn thư mục đang bật ra, vui lòng chọn tài khoản email có danh sách thư mục mà bạn muốn in và nhấp vào OK nút. Xem ảnh chụp màn hình:

5. Và bây giờ, danh sách thư mục của tài khoản email được chỉ định sẽ được sao chép vào một email mới như hình ảnh dưới đây. Hãy nhấp Tập tin > In để in danh sách các thư mục sao chép.

6. Sau khi in, vui lòng đóng email mới mà không cần lưu.


mũi tên màu xanh bên phải Xuất và in danh sách tất cả các thư mục Outlook có chứa các thư mục con trong Notepad

Phương pháp này sẽ giới thiệu một VBA để xuất danh sách tất cả các thư mục và các thư mục con của chúng trong một tài khoản email cụ thể từ Outlook sang Notepad, và sau đó bạn có thể in danh sách các thư mục Outlook trong Notepad một cách dễ dàng.

1. nhấn Khác + F11 chìa khóa để mở cửa sổ Microsoft Visual Basic cho ứng dụng.

2. nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào cửa sổ Module mới.

VBA: Xuất danh sách tất cả các thư mục Outlook và các thư mục con từ Outlook sang 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. nhấn F5 chìa khóa để chạy VBA này. Tiếp theo trong hộp thoại Chọn thư mục Chọn, vui lòng chọn tài khoản email có danh sách thư mục mà bạn muốn xuất và in và nhấp vào OK nút. Xem ảnh chụp màn hình:

4. Sau đó hộp thoại Cặp thư mục đầu ra đang đến. Hãy nhấp vào Vâng nút hoặc Không nút như bạn cần.

Và bây giờ là một tập tin văn bản tên là Outlook-Thư mục được tạo ra và lưu trên màn hình của bạn như hình ảnh chụp màn hình dưới đây.

5. Nhấp đúp để mở tập tin văn bản mới, và sau đó nhấp vào Tập tin > In để in danh sách xuất khẩu của các thư mục outlook.


mũi tên màu xanh bên phảiBài viết liên quan



Kutools cho Outlook

Nhiều hơn các chức năng nâng cao 100 cho Outlook 2010, 2013, 2016, 2019 và 365

kutools chụp màn hình cho triển vọng nhỏ cho banner 201812

Các tính năng khác | Tải xuống miễn phí | Chỉ có $ 39.00 cho hàng trăm chức năng

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.