全部显示

Contents 属性

返回相应于指定 Outlook 面板窗格的 OutlookBarStorage 对象。

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

示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例显示消息，其中列出 Outlook 面板中的组。

Dim myOlApp As New Outlook.Application
Dim myOlBar As Outlook.OutlookBarPane
Dim myOlGroups As Outlook.OutlookBarGroups
myMsg = "The groups in the Outlook Bar are:"
Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlGroups = myOlBar.Contents.Groups
For x = 1 To myOlGroups.Count
    myMsg = myMsg & Chr(13) & myOlGroups.Item(x)
Next x
MsgBox myMsg

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

myMsg = "The groups in the Outlook Bar are:"
Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlGroups = myOlBar.Contents.Groups
For x = 1 To myOlGroups.Count
    myMsg = myMsg & Chr(13) & myOlGroups.Item(x)
Next 
MsgBox myMsg