จะไปอย่างรวดเร็วและเปิดโฟลเดอร์ของผลการค้นหาใน Outlook ได้อย่างไร?

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

ไปที่และเปิดโฟลเดอร์ของผลการค้นหาด้วย VBA

ไปที่และเปิดโฟลเดอร์ของผลการค้นหาด้วยคลิกขวา

ไปที่และเปิดโฟลเดอร์ของผลการค้นหาด้วย VBA

ใน Outlook ไม่มีฟังก์ชันในตัวที่สามารถจัดการงานนี้ได้ยกเว้นรหัส VBA

ก่อนใช้รหัส VBA คุณต้องแสดงชื่อโฟลเดอร์ในผลการค้นหา

1 คลิก รายละเอียด > เพิ่มคอลัมน์.

2 ใน แสดงคอลัมน์ โต้ตอบและใน เลือกคอลัมน์ที่มีอยู่จาก รายการแบบเลื่อนลงเลือก ฟิลด์จดหมายทั้งหมดแล้วเลือก ในโฟลเดอร์ ใน คอลัมน์ที่มี รายการ.

3 คลิก เพิ่ม ที่จะเพิ่ม ในโฟลเดอร์ ไปยัง แสดงคอลัมน์เหล่านี้ตามลำดับนี้ จากนั้นคลิก ขยับขึ้น ปุ่มเพื่อย้าย ในโฟลเดอร์ถึง ด้านบน.

4 คลิก OK เพื่อปิดกล่องโต้ตอบ ขณะที่คุณกำลังค้นหาอีเมลชื่อโฟลเดอร์จะปรากฏในผลการค้นหา

5. ตอนนี้กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างโมดูลใหม่

6. คัดลอกและวางโค้ดด้านล่างลงในโมดูล

VBA: ไปที่โฟลเดอร์ตามชื่อ

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7 กด F5 คีย์เพื่อเปิดใช้งานรหัสตอนนี้ป้อนชื่อโฟลเดอร์ที่คุณต้องการไปในกล่องโต้ตอบ

8 คลิก OKกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณทราบตำแหน่งของโฟลเดอร์คลิก ใช่ เพื่อไปที่โฟลเดอร์โดยตรงหรือคลิก ไม่ ยกเลิก.

ไปที่และเปิดโฟลเดอร์ของผลการค้นหาด้วยคลิกขวา

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

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

หลังจากค้นหาแล้วให้คลิกขวาที่ผลลัพธ์ที่คุณต้องการเปิดโฟลเดอร์จากนั้นเลือก เปิดโฟลเดอร์ จากเมนูบริบท

---

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

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

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

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

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

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

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

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

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

อ่านเพิ่มเติม       ดาวน์โหลดฟรี      การซื้อ