ไปยังเนื้อหาหลัก
 

วิธีการส่งออกและพิมพ์รายการโฟลเดอร์และโฟลเดอร์ย่อยทั้งหมดใน Outlook

ผู้เขียน: เคลลี่ แก้ไขล่าสุด: 2024-09-02

โดยทั่วไปคุณสามารถกด Ctrl + 6 ปุ่มเพื่อดูรายการโฟลเดอร์ทั้งหมดบนบานหน้าต่างนำทางใน Outlook อย่างไรก็ตามคุณไม่สามารถพิมพ์รายการโฟลเดอร์ได้ บทความนี้จะแนะนำสคริปต์ VBA สองสคริปต์เพื่อส่งออกและพิมพ์รายการโฟลเดอร์ทั้งหมดและโฟลเดอร์ย่อยใน Outlook


ส่งออกและพิมพ์รายการโฟลเดอร์ Outlook และโฟลเดอร์ย่อยทั้งหมดในอีเมลใหม่

วิธีนี้จะแนะนำ VBA เพื่อส่งออกรายการโฟลเดอร์ทั้งหมดและโฟลเดอร์ย่อยในบัญชีอีเมลที่ระบุไปยังอีเมลใหม่ใน Outlook จากนั้นคุณสามารถพิมพ์รายการโฟลเดอร์ได้อย่างง่ายดาย

1 กด อื่น ๆ + F11 ปุ่มเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลใหม่

VBA: ส่งออกรายการโฟลเดอร์และโฟลเดอร์ย่อยในอีเมลใหม่ใน 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 กด F5 กุญแจสำคัญในการเรียกใช้ VBA นี้

4. ในกล่องโต้ตอบ Select Folder ที่เปิดขึ้นมาโปรดเลือกบัญชีอีเมลที่มีรายการโฟลเดอร์ที่คุณต้องการพิมพ์จากนั้นคลิก OK ปุ่ม. ดูภาพหน้าจอ:

ขั้นตอนการส่งออกและพิมพ์รายการโฟลเดอร์ Outlook ทั้งหมดและโฟลเดอร์ย่อยในอีเมลใหม่โดยใช้ VBA

5. และตอนนี้รายการโฟลเดอร์ของบัญชีอีเมลที่ระบุจะถูกคัดลอกไปยังอีเมลใหม่ตามภาพด้านล่างที่แสดง กรุณาคลิก เนื้อไม่มีมัน > พิมพ์ เพื่อพิมพ์รายการโฟลเดอร์ที่คัดลอก

ขั้นตอนการส่งออกและพิมพ์รายการโฟลเดอร์ Outlook ทั้งหมดและโฟลเดอร์ย่อยในอีเมลใหม่โดยใช้ VBA

6. หลังจากพิมพ์แล้วโปรดปิดอีเมลใหม่โดยไม่บันทึก


ส่งออกและพิมพ์รายการโฟลเดอร์ Outlook ทั้งหมดและโฟลเดอร์ย่อยใน Notepad

วิธีนี้จะแนะนำ VBA เพื่อส่งออกรายการโฟลเดอร์ทั้งหมดและโฟลเดอร์ย่อยในบัญชีอีเมลที่ระบุจาก Outlook ไปยัง Notepad จากนั้นคุณสามารถพิมพ์รายการโฟลเดอร์ Outlook ใน Notepad ได้อย่างง่ายดาย

1 กด อื่น ๆ + F11 ปุ่มเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลใหม่

VBA: ส่งออกรายการโฟลเดอร์ Outlook และโฟลเดอร์ย่อยทั้งหมดจาก Outlook ไปยัง 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 กด F5 กุญแจสำคัญในการเรียกใช้ VBA นี้ ถัดไปในกล่องโต้ตอบเลือกโฟลเดอร์เปิดโปรดเลือกบัญชีอีเมลที่มีรายการโฟลเดอร์ที่คุณต้องการส่งออกและพิมพ์จากนั้นคลิก OK ปุ่ม. ดูภาพหน้าจอ:

ขั้นตอนการส่งออกและพิมพ์รายการโฟลเดอร์ Outlook ทั้งหมดและโฟลเดอร์ย่อยใน Notepad โดยใช้ VBA

4. จากนั้นกล่องโต้ตอบ Output Folder Tree จะมา กรุณาคลิกที่ไฟล์ ใช่ หรือ ไม่ ปุ่มตามที่คุณต้องการ

ขั้นตอนการส่งออกและพิมพ์รายชื่อโฟลเดอร์ Outlook ทั้งหมดและโฟลเดอร์ย่อยใน Notpad โดยใช้ VBA

และตอนนี้ไฟล์ Text ชื่อ โฟลเดอร์ Outlook ถูกสร้างและบันทึกไว้บนเดสก์ท็อปของคุณตามภาพด้านล่างที่แสดง

ขั้นตอนการส่งออกและพิมพ์รายการโฟลเดอร์ Outlook ทั้งหมดและโฟลเดอร์ย่อยใน Notepad โดยใช้ VBA

5. ดับเบิลคลิกเพื่อเปิดไฟล์ข้อความใหม่จากนั้นคลิก เนื้อไม่มีมัน > พิมพ์ เพื่อพิมพ์รายการโฟลเดอร์ Outlook ที่ส่งออก

AI Mail Assistant ใน Outlook: การตอบกลับที่ชาญฉลาดยิ่งขึ้น การสื่อสารที่ชัดเจนยิ่งขึ้น (เวทย์มนตร์เพียงคลิกเดียว!) ฟรี

ปรับปรุงงาน Outlook ประจำวันของคุณด้วย AI Mail Assistant จาก Kutools for Outlook เครื่องมืออันทรงพลังนี้เรียนรู้จากอีเมลที่ผ่านมาของคุณเพื่อให้การตอบกลับที่ชาญฉลาดและแม่นยำ เพิ่มประสิทธิภาพเนื้อหาอีเมลของคุณ และช่วยให้คุณร่างและปรับแต่งข้อความได้อย่างง่ายดาย
ที่จับอีเมล doc ai

คุณสมบัตินี้รองรับ:

  • การตอบกลับอัจฉริยะ: รับการตอบกลับที่สร้างขึ้นจากการสนทนาที่ผ่านมาของคุณ ปรับแต่ง แม่นยำ และพร้อมใช้งาน
  • เนื้อหาที่ได้รับการปรับปรุง: ปรับแต่งข้อความอีเมลของคุณโดยอัตโนมัติเพื่อความชัดเจนและผลกระทบ
  • องค์ประกอบที่ง่ายดาย: เพียงระบุคำหลัก แล้วปล่อยให้ AI จัดการที่เหลือด้วยสไตล์การเขียนที่หลากหลาย
  • ส่วนขยายอัจฉริยะ: ขยายความคิดของคุณด้วยคำแนะนำที่คำนึงถึงบริบท
  • สรุป: รับภาพรวมโดยย่อของอีเมลขนาดยาวทันที
  • การเข้าถึงทั่วโลก: แปลอีเมลของคุณเป็นภาษาต่างๆ ได้อย่างง่ายดาย

คุณสมบัตินี้รองรับ:

  • การตอบกลับอีเมลอัจฉริยะ
  • เนื้อหาที่ปรับให้เหมาะสม
  • แบบร่างตามคำหลัก
  • ส่วนขยายเนื้อหาอัจฉริยะ
  • การสรุปอีเมล
  • การแปลหลายภาษา

เหนือสิ่งอื่นใดคุณสมบัตินี้คือ อย่างสมบูรณ์ ฟรี ตลอดไป! อย่ารอช้า—ดาวน์โหลด AI Mail Assistant ตอนนี้และเพลิดเพลิน!

บทความที่เกี่ยวข้อง

แสดงหรือซ่อนมุมมองรายการโฟลเดอร์ใน Outlook


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!

สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!

🤖 Kutools AI : ใช้เทคโนโลยี AI ขั้นสูงเพื่อจัดการอีเมลได้อย่างง่ายดาย รวมถึงการตอบกลับ การสรุป การเพิ่มประสิทธิภาพ การขยาย การแปล และการเขียนอีเมล

📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมล  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เตือนคุณเมื่อมีอีเมลสำคัญมาถึง  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

ปลดล็อค Kutools for Outlook ทันทีด้วยการคลิกเพียงครั้งเดียว—ฟรีอย่างถาวร- อย่ารอช้า ดาวน์โหลดตอนนี้และเพิ่มประสิทธิภาพของคุณ!

kutools สำหรับคุณสมบัติ Outlook1 kutools สำหรับคุณสมบัติ Outlook2