Note: The other languages of the website are Google-translated. Back to English

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

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

มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL