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

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

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

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

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


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

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

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

1 คลิก รายละเอียด > เพิ่มคอลัมน์.
doc ไปที่เปิดโฟลเดอร์ของผลการค้นหา 1

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

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

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

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 คีย์เพื่อเปิดใช้งานรหัสตอนนี้ป้อนชื่อโฟลเดอร์ที่คุณต้องการไปในกล่องโต้ตอบ
doc ไปที่เปิดโฟลเดอร์ของผลการค้นหา 5

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


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

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

Kutools for Outlook , รวมถึง 100 + คุณสมบัติและเครื่องมือที่มีประสิทธิภาพสำหรับ Microsoft Outlook 2016, 2013, 2010 และ Office 365

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

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


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

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

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

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

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

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

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

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

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

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HI Guys,
Will this scroll the folder pane as well?  Most of the time the folder is selected but the folder location doesnt get scrolled to  in the folder pane?
Cheers,

This comment was minimized by the moderator on the site
Deleted emails Folder
This comment was minimized by the moderator on the site
Hi, Red McKenna, each account has each deleted forlder, it is called Deleted items.
This comment was minimized by the moderator on the site
Where is the deleted email folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations