จะค้นหาโฟลเดอร์ตามชื่อใน Outlook ได้อย่างไร?

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2024-08-28

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

ค้นหาโฟลเดอร์ตามชื่อใน Outlook ด้วยรหัส VBA

ค้นหาโฟลเดอร์ตามชื่อในบัญชีต่างๆใน Outlook โดย Kutools for Outlook

ค้นหาโฟลเดอร์ตามชื่อใน Outlook ด้วยรหัส VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถค้นหาโฟลเดอร์ที่ระบุตามชื่อได้อย่างง่ายดาย

หมายเหตุ: คุณต้องจำชื่อโฟลเดอร์เพื่อใช้รหัส VBA นี้

1 กด อื่น ๆ + F11 บนแป้นพิมพ์เพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นดับเบิลคลิกที่ไฟล์ Project1 > วัตถุ Microsoft Outlook > นี้OutlookSession เพื่อเปิด Project1 - ThisOutlookSession หน้าต่าง. ดูภาพหน้าจอ:

ภาพหน้าจอของขั้นตอนการค้นหาโฟลเดอร์ตามชื่อใน Outlook ด้วยโค้ด VBA

3. คัดลอกและวางโค้ด VBA ต่อไปนี้ลงในหน้าต่าง Project1 - ThisOutlookSession

VBA: ค้นหาโฟลเดอร์ตามชื่อ

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function

4. จากนั้นกด F5 บนแป้นพิมพ์เพื่อเรียกใช้รหัส VBA

5 ใน แมโคร ใหคลิกปุ the ม วิ่ง ปุ่ม

ภาพหน้าจอของขั้นตอนที่ 2 เกี่ยวกับการค้นหาโฟลเดอร์ตามชื่อใน Outlook ด้วยโค้ด VBA

6. ในการโผล่ขึ้นมา ค้นหาโฟลเดอร์ โปรดพิมพ์ชื่อโฟลเดอร์ในกล่องข้อความจากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

ภาพหน้าจอของขั้นตอนที่ 3 เกี่ยวกับการค้นหาโฟลเดอร์ตามชื่อใน Outlook ด้วยโค้ด VBA

7. จากนั้นก Microsoft Outlook กล่องโต้ตอบจะปรากฏขึ้นจะแสดงเส้นทางของโฟลเดอร์ที่คุณต้องการจากนั้นคลิกที่ไฟล์ ใช่ ปุ่ม

ภาพหน้าจอของขั้นตอนที่ 4 เกี่ยวกับการค้นหาโฟลเดอร์ตามชื่อใน Outlook ด้วยโค้ด VBA

8. จากนั้นโฟลเดอร์อีเมลที่ระบุจะเปิดขึ้นทันที

หมายเหตุ: รหัส VBA นี้สามารถใช้ได้กับ Outlook 2007, 2010 และ 2013

ค้นหาโฟลเดอร์ตามชื่อในบัญชีต่างๆใน Outlook โดย Kutools for Outlook

หากคุณไม่เก่ง VBA คุณสามารถลอง Kutools สำหรับ Outlook's ไปที่ ยูทิลิตี้ซึ่งสามารถค้นหาและค้นหาโฟลเดอร์ที่มีชื่อหรืออักขระเฉพาะจากนั้นไปที่โฟลเดอร์โดยตรง

👉 Kutools for Outlook มี รุ่นฟรี ตอนนี้ใคร 70+ คุณสมบัติฟรีตลอดอายุการใช้งาน. ดาวน์โหลดเวอร์ชันฟรีทันที.

ติดตั้งฟรี Kutools สำหรับ Outlook แล้วทำตามขั้นตอนด้านล่าง:

1 คลิก Kutools พลัส > ไปที่.