วิธีขยายโฟลเดอร์ทั้งหมดโดยอัตโนมัติด้วย VBA เมื่อเริ่มต้น Outlook ของคุณ

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

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

ขยายโฟลเดอร์ทั้งหมดโดยอัตโนมัติเมื่อเริ่มต้น Outlook

1. เริ่มต้นด้วยการกด“ Alt + F11” ใน Outlook ของคุณเพื่อเข้าถึงตัวแก้ไข VBA
2. จากนั้นในหน้าต่างใหม่ให้ใส่รหัสลงในโปรเจ็กต์“ ThisOutlookSession”

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. หลังจากนั้นปิดตัวแก้ไข VBA
4. จากนั้นออกจากแอปพลิเคชัน Outlook อย่างถูกต้อง
5. จากนั้น เปิดโปรแกรม Outlook เมื่อถึงจุดนี้ มาโครจะทำงานโดยอัตโนมัติ
6. หลังจาก Outlook เริ่มทำงาน คุณจะเห็นว่าโฟลเดอร์ทั้งหมดถูกขยายออก ดังแสดงในรูปด้านล่าง

เก็บมาโครที่เป็นอันตรายทั้งหมดไว้ที่ Bay

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

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

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