วิธีการค้นหาและแทนที่คำเฉพาะในชื่อโฟลเดอร์ Outlook ทั้งหมด

โซลูชัน Outlook September 29, 2025

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

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

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

ค้นหาแบทช์และแทนที่คำเฉพาะในชื่อโฟลเดอร์ Outlook ทั้งหมด

เมื่อเริ่มแรก starโปรแกรม Outlook ของคุณ
จากนั้นกดปุ่ม“ Alt + F11” ในหน้าต่างหลักของ Outlook
ถัดไปในหน้าต่างตัวแก้ไข Outlook VBA ให้เปิดโมดูลที่ไม่ได้ใช้
จากนั้นคัดลอกรหัส VBA ต่อไปนี้ลงในหน้าต่างโมดูลนี้

Public strFind, strReplace As String

Private Sub FindReplaceWordsinFolderNames()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    'You need to input the specific words for find and replace
    strFind = InputBox("Enter the specific words you want to change.")
    strReplace = InputBox("Enter the specific words you want to change to. (Case Sensitive)")
 
    For Each objFolder In objFolders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Complete!", vbExclamation, "Rename Folders"
End Sub
 
Private Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    On Error Resume Next
    If InStr(LCase(objCurrentFolder.Name), LCase(strFind)) > 0 Then
       'Find and replace the specific words
       objCurrentFolder.Name = Replace(LCase(objCurrentFolder.Name), LCase(strFind), strReplace)
    End If
 
    'Process all folders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

หลังจากนั้นคุณควรตรวจสอบให้แน่ใจว่าอนุญาตให้ใช้มาโครใน Outlook ของคุณได้
สุดท้ายคุณสามารถคลิกไอคอน“ Run” ในแถบเครื่องมือแล้วกดปุ่ม F5 เพื่อเรียกใช้มาโครใหม่
หลังจากนั้นคุณจะต้องป้อนคำเฉพาะเพื่อค้นหาและแทนที่
ในครั้งเดียวคำเฉพาะทั้งหมดในชื่อโฟลเดอร์ Outlook จะถูกแทนที่เช่นภาพหน้าจอต่อไปนี้:

แก้ไขปัญหาข้อมูล PST ที่น่าวิตก

เมื่อพูดถึงปัญหา PST เช่นข้อผิดพลาด PST ต่างๆหรือไฟล์ PST ที่ไม่สามารถเข้าถึงได้ almost ทุกคนจะรู้สึกตื่นตระหนกและมักจะหลีกเลี่ยงหัวข้อนี้ อย่างไรก็ตามมันเป็นเรื่องธรรมดาใน Outlook เพื่อหลีกเลี่ยงปัญหา PST ดังกล่าวอย่างมีประสิทธิภาพคุณควรสำรองไฟล์ PST เป็นระยะ นอกจากนี้ยังแนะนำให้มีศักยภาพ ซ่อม PST เครื่องมือในบริเวณใกล้เคียงเช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซม sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.