จะไปอย่างรวดเร็วและเปิดโฟลเดอร์ของผลการค้นหาใน 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 และทำให้การทำงานง่ายขึ้นมาก

• CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
• คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
• ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
• เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
• อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook

อ่านเพิ่มเติม ... ดาวน์โหลดเดี๋ยวนี้...