*這裡所說的 "Outlook" 是指 "Microsoft Office (我用的是2003版)" 裡的 Outlook，不是 Outlook Express。Outlook Express 不支援 VBA。

Sub HideAllPreviewPanes()

Dim myNameSpace As Outlook.NameSpace

Dim myFolder As Outlook.MAPIFolder

Dim c As Variant, arrC As Variant

arrC = Array(olFolderInbox, olFolderOutbox, olFolderJunk)

Set myNameSpace = Application.GetNamespace("MAPI")

For Each c In arrC

    Set myFolder = myNameSpace.GetDefaultFolder(c)

    Call HideFolderPreviewPane(myFolder)

Next c

End Sub

Sub HideFolderPreviewPane(ByRef thisFolder As Outlook.MAPIFolder)

Dim subFolder As Outlook.MAPIFolder

Set Application.ActiveExplorer.CurrentFolder = thisFolder

Do
    i = i + 1

    DoEvents

Loop Until i = 9999 'Delay

Application.ActiveExplorer.ShowPane olPreview, False

If thisFolder.Folders.Count <> 0 Then

    For Each subFolder In thisFolder.Folders

        Call HideFolderPreviewPane(subFolder)

    Next subFolder

End If


End Sub

在 HideAllPreviewPanes() 裡，用迴圈重覆呼叫HideFolderPreviewPane()，分別處理收件匣、寄件匣、垃圾郵件這三個資料夾。你若讀過 把 email 附件檔全部存入一個資料夾 這篇文章，就知道 "olFolderInbox, olFolderOutbox, olFolderJunk" 這三個常數的意義。

因為資料夾可能有子資料夾，子資料夾又可能有孫資料夾，無法預期有幾層，所以我用 "遞迴呼叫 (Recursion Call)" 的做法寫 HideFolderPreviewPane() ，也就是如果有子資料夾， HideFolderPreviewPane() 就呼叫它自己來處理子資料夾。