Outlook VBA教程:Shortcuts属性

返回指定Outlook 面板组中包含的快捷方式的OutlookBarShortcuts集合。

expression.Shortcuts

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

VBA示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例删除“OutLook 面板”中的所有空组。


Dim myOlApp As New Outlook.Application
Dim myOlBar As Outlook.OutlookBarPane
Dim myOlGroup As Outlook.OutlookBarGroup
Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
For x = myOlBar.Contents.Groups.Count To 1 Step -1
    Set myOlGroup = myOlBar.Contents.Groups.Item(x)
    If myOlGroup.Shortcuts.Count = 0 Then
        myOlBar.Contents.Groups.Remove x
    End If
Next x

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


Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
For x = myOlBar.Contents.Groups.Count To 1 Step -1
    Set myOlGroup = myOlBar.Contents.Groups.Item(x)
    If myOlGroup.Shortcuts.Count = 0 Then
        myOlBar.Contents.Groups.Remove x
    End If
Next

上页:Outlook VBA教程:Session属性 下页:Outlook VBA教程:ShowAsOutlookAB属性

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属性 Outlook VBA教程:Submitted属性
Outlook VBA教程:Suffix属性 Outlook VBA教程:SyncObjects属性
Outlook VBA教程:Tag属性 Outlook VBA教程:Target属性
Outlook VBA教程:TeamTask属性 Outlook VBA教程:TelexNumber属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号