共用方式為

(Outlook) 的 Application.ActiveExplorer 方法

  • 發行項

會傳回桌面上最上層的 Explorer 物件。

語法

expression。 ActiveExplorer

expression 代表 Application 物件的變數。

傳回值

代表桌面上最上層檔案總管的 Explorer。 如果沒有使用中的檔案總管，則會傳回 Nothing。

註解

使用此方法來傳回使用者很有可能檢視的 Explorer 物件。 此方法對於判斷何時沒有作用中的瀏覽器也很有用，從而可以開啟新的物件。

範例

下列 Microsoft Visual Basic for Applications (VBA) 範例會使用Selection屬性所傳回之Selection集合的Count屬性和Item方法，來顯示使用中檔案總管視窗中選取之所有訊息項目的寄件者。 若要執行此範例，至少必須在使用中檔案總管視窗中選定一個郵件項目。

注意事項

如果您選取訊息項目以外的專案，例如工作要求，可能會收到錯誤，因為TaskRequestItem物件的SenderName屬性不存在。

Sub GetSelectedItems() 
 
 Dim myOlExp As Outlook.Explorer 
 
 Dim myOlSel As Outlook.Selection 
 
 Dim MsgTxt As String 
 
 Dim x As Integer 
 
 
 
 MsgTxt = "You have selected items from: " 
 
 Set myOlExp = Application.ActiveExplorer 
 
 Set myOlSel = myOlExp.Selection 
 
 For x = 1 To myOlSel.Count 
 
 MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";" 
 
 Next x 
 
 MsgBox MsgTxt 
 
End Sub

另請參閱

Application 物件

支援和意見反應

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