Outlook VBA教程:Selection属性

返回由在当前视图中所选项目组成的Selection对象。

expression.Selection

expression  必选。该表达式返回Explorer对象。

说明

如果当前文件夹是文件系统文件夹,或者当前显示的是“Outlook 今日”或具有当前 Web 视图的任何文件夹,该属性将返回空集。

VBA示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例使用由 Selection属性返回的Selection集合的Count属性和Item方法来显示在活动的浏览器窗口中选定的所有邮件的发件人。


Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim MsgTxt As String
MsgTxt = "You have selected items from" & Chr(13) & Chr(13)
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
    MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & Chr(13)
Next x
MsgBox MsgTxt

如果使用 VBScript,则不必创建Application对象。本示例说明如何使用 VBScript 执行相同任务。


MsgTxt = "You have selected items from" & Chr(13) & Chr(13)
Set myOlSel = Application.ActiveExplorer.Selection
For x = 1 To myOlSel.Count
    MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & Chr(13)
Next
MsgBox MsgTxt

上页:Outlook VBA教程:SelectedMailingAddress属性 下页:Outlook VBA教程:SenderName属性

Outlook VBA教程:Selection属性:相关链接

Outlook VBA教程:SenderName属性 Outlook VBA教程:Sensitivity属性
Outlook VBA教程:Sent属性 Outlook VBA教程:SentOn属性
Outlook VBA教程:SentOnBehalfOfName属性 Outlook VBA教程:Session属性
Outlook VBA教程:Shortcuts属性 Outlook VBA教程:ShowAsOutlookAB属性
Outlook VBA教程:ShowOn属性 Outlook VBA教程:Size属性
Outlook VBA教程:Spouse属性 Outlook VBA教程:Standard属性
Outlook VBA教程:Start属性 Outlook VBA教程:StartDate属性
Outlook VBA教程:StartTime属性 Outlook VBA教程:Status属性
Outlook VBA教程:StatusOnCompletionRecipients属性 Outlook VBA教程:StatusUpdateRecipients属性
Outlook VBA教程:StoreID属性 Outlook VBA教程:Subject属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号