เคล็ดลับ: ภาษาอื่น ๆ ได้รับการแปลโดย Google คุณสามารถเยี่ยมชม English รุ่นของลิงก์นี้
เข้าสู่ระบบ
x
or
x
x
สมัครสมาชิก
x

or

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

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

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

Kutools สำหรับ Outlook: 100 + เครื่องมือขั้นสูงใหม่ สำหรับ Outlook
แท็บ Office: เปิดใช้งานการแก้ไขแบบแท็บและเรียกดูใน Officeเช่นเดียวกับ Chrome, Firefox, IE 8 / 9 / 10
เมนูคลาสสิก: นำเมนูเก่าและแถบเครื่องมือกลับ ไปที่ Office 2007, 2010, 2013, 2016 และ 2019

ลูกศรสีฟ้าด้านขวาขยายโฟลเดอร์ทั้งหมดโดยอัตโนมัติเมื่อเริ่ม Outlook ด้วย VBA

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

1 กด อื่น ๆ + F11 คีย์พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 ขยาย โครงการ 1 และ วัตถุ Microsoft Outlook ในบานหน้าต่างโครงการดับเบิลคลิกเพื่อเปิด ThisOutlookSession จากนั้นวางรหัส VBA ด้านล่างลงในนั้น

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

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3 บันทึกรหัสและปิดหน้าต่าง Microsoft Visual Basic for Applications

จากนี้ไปเมื่อเริ่ม Outlook ใหม่โฟลเดอร์ทั้งหมดจะถูกขยายโดยอัตโนมัติใน Outlookหมายเหตุ: VBA นี้ไม่สามารถเปิดโฟลเดอร์ค้นหาที่ยุบได้เมื่อเริ่มต้น Outlook ใหม่


ลูกศรสีฟ้าด้านขวาบทความที่เกี่ยวข้อง



Kutools สำหรับ Outlook

มากกว่าฟังก์ชั่นขั้นสูง 100 สำหรับ Outlook 2010, 2013, 2016, 2019 และ 365

screen shot kutools สำหรับ outlook เล็ก ๆ สำหรับแบนเนอร์ 201812

คุณสมบัติอื่น ๆ | ดาวน์โหลดฟรี | เพียง $ 39.00 สำหรับหลายร้อยฟังก์ชัน

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Selvi · 6 months ago
    Thank you so much.. It solved my problem. :)