Application.ActiveExplorer メソッド (Outlook)

  • [アーティクル]

デスクトップ上の最上位の Explorer オブジェクトを返します。

構文

expression. ActiveExplorer

expressionApplicationオブジェクトを表す変数 。

戻り値

デスクトップの一番上の階層にあるエクスプローラーを表す Explorer オブジェクト。 エクスプローラーが実行されていない場合は、Nothing を返します。

注釈

このメソッドを使うと、ユーザーが表示している可能性の高い Explorer オブジェクトにアクセスできます。 また、このメソッドを使うと、エクスプローラーが開いているかどうかを確認できるため、エクスプローラーが開いていない場合は新しいエクスプローラーを開くなどの処理を行うことができます。

例

次の Microsoft Visual Basic for Applications (VBA) の例では、Selection プロパティによって返される Selection コレクションの Count プロパティと Item メソッドを使用して、アクティブなエクスプローラー ウィンドウで選択したすべてのメール アイテムの送信者を表示します。 このコードを実行するには、アクティブなエクスプローラー内で少なくとも 1 つのメール アイテムを選択しておく必要があります。

注:

タスクの依頼など、メール以外のアイテムを選択すると、エラーが発生します。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 のサポートおよびフィードバックを参照してください。