Explorer.Selection プロパティ (Outlook)

  • [アーティクル]

エクスプ ローラー] ウィンドウで選択されているアイテムを含む Selection オブジェクトを返します。 読み取り専用です。

構文

式。選択

式 'Explorer' オブジェクトを表す変数。

注釈

エクスプローラーの選択範囲は、ビュー リスト、To-Do バーの予定リストまたはタスク リスト、または予定表ビューの日毎のタスク リストになります。 詳細については、「 Location プロパティ」を参照してください。

Selection プロパティにはスレッド ヘッダー オブジェクトは含まれません。 Selection.GetSelection メソッドを呼び出し、引数として olConversationHeaders を指定して、エクスプローラーで選択されている会話ヘッダー オブジェクトを取得します。

現在のフォルダーにフォルダー ホーム ページが表示されている場合、このプロパティは空のコレクションを返します。 また、Today などのグループ ヘッダーや会話グループ ヘッダーが選択されている場合、返される Selection オブジェクトの Count プロパティは 0 です。

例

次の Microsoft Visual Basic for Applications (VBA) の例では、アクティブなエクスプ ローラーで選択した各項目の差出人が表示されます。 Count プロパティと、アクティブなエクスプ ローラーで選択されているすべてのメッセージの送信者を表示する Explorer.Selection プロパティによって返される Selection オブジェクトの Item メソッドを使用します。

Sub GetSelectedItems() 
 
 Dim myOlExp As Outlook.Explorer 
 
 Dim myOlSel As Outlook.Selection 
 
 Dim mySender As Outlook.AddressEntry 
 
 Dim oMail As Outlook.MailItem 
 
 Dim oAppt As Outlook.AppointmentItem 
 
 Dim oPA As Outlook.PropertyAccessor 
 
 Dim strSenderID As String 
 
 Const PR_SENT_REPRESENTING_ENTRYID As String = _ 
 
 "http://schemas.microsoft.com/mapi/proptag/0x00410102" 
 
 Dim MsgTxt As String 
 
 Dim x As Long 
 
 
 
 MsgTxt = "Senders of selected items:" 
 
 Set myOlExp = Application.ActiveExplorer 
 
 Set myOlSel = myOlExp.Selection 
 
 For x = 1 To myOlSel.Count 
 
 If myOlSel.Item(x).Class = OlObjectClass.olMail Then 
 
 ' For mail item, use the SenderName property. 
 
 Set oMail = myOlSel.Item(x) 
 
 MsgTxt = MsgTxt & oMail.SenderName & ";" 
 
 ElseIf myOlSel.Item(x).Class = OlObjectClass.olAppointment Then 
 
 ' For appointment item, use the Organizer property. 
 
 Set oAppt = myOlSel.Item(x) 
 
 MsgTxt = MsgTxt & oAppt.Organizer & ";" 
 
 Else 
 
 ' For other items, use the property accessor to get the sender ID, 
 
 ' then get the address entry to display the sender name. 
 
 Set oPA = myOlSel.Item(x).PropertyAccessor 
 
 strSenderID = oPA.GetProperty(PR_SENT_REPRESENTING_ENTRYID) 
 
 Set mySender = Application.Session.GetAddressEntryFromID(strSenderID) 
 
 MsgTxt = MsgTxt & mySender.Name & ";" 
 
 End If 
 
 Next x 
 
 Debug.Print MsgTxt 
 
End Sub

関連項目

Explorer オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。