Outlook VBA教程:Contents属性

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

expression.Contents

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

VBA示例

本 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

上页:Outlook VBA教程:ContactNames属性 下页:Outlook VBA教程:ConversationIndex属性

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

Outlook VBA教程:ConversationIndex属性 Outlook VBA教程:ConversationTopic属性
Outlook VBA教程:CopyLike属性 Outlook VBA教程:Count属性
Outlook VBA教程:CreationTime属性 Outlook VBA教程:CurrentFolder属性
Outlook VBA教程:CurrentGroup属性 Outlook VBA教程:CurrentItem属性
Outlook VBA教程:CurrentUser属性 Outlook VBA教程:CurrentView属性
Outlook VBA教程:CustomerID属性 Outlook VBA教程:CustomViewsOnly属性
Outlook VBA教程:DateCompleted属性 Outlook VBA教程:DayOfMonth属性
Outlook VBA教程:DayOfWeekMask属性 Outlook VBA教程:DefaultItemType属性
Outlook VBA教程:DefaultMessageClass属性 Outlook VBA教程:DeferredDeliveryTime属性
Outlook VBA教程:DelegationState属性 Outlook VBA教程:Delegator属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号