共用方式為

Outlook) (Explorer.ViewSwitch 事件

  • 發行項

因為使用者動作或透過程式碼的關係，當瀏覽器中的檢視變更時會發生此事件。

語法

expression。 ViewSwitch

表達 代表 Explorer 物件的 變數。

註解

Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。

範例

這個 Visual Basic for Applications (VBA) 範例會在使用者切換到 [自動預覽郵件] 檢視時，隱藏可見的預覽窗格。 範例程式碼必須放在類別模組中，而且 Initialize_handler 必須先呼叫常式，Microsoft Outlook 才能呼叫事件程序。

Dim WithEvents myOlExpl As Outlook.Explorer 
 
 
 
Sub Initialize_handler() 
 
 Set myOlExpl = Application.ActiveExplorer 
 
End Sub 
 
 
 
Private Sub myOlExpl_ViewSwitch() 
 
 If myOlExpl.CurrentView = "Messages with AutoPreview" And myOlExpl.IsPaneVisible(olPreview) = True Then 
 
 myOlExpl.ShowPane olPreview, False 
 
 End If 
 
End Sub

另請參閱

Explorer 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。