(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 支援與意見反應。