Outlook VBA教程:ShortcutAdd事件

当将新快捷方式添加到Outlook 面板组中时发生。该事件在 VBScript 中不可用。

Sub object_ShortcutAdd(ByVal NewShortcut As OutlookBarShortcut)

object  该表达式的值为OutlookBarShortcuts集合对象。

NewShortcut  必选的OutlookBarShortcut对象。要添加的快捷方式。

VBA示例

本示例在将“日历”快捷方式添加到 Outlook 面板的第一个组中时,更改快捷方式的名称。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim myOlApp As New Outlook.Application
Dim WithEvents myOlSCuts As Outlook.OutlookBarShortcuts
Dim myOlBar As Outlook.OutlookBarPane
Sub Initialize_handler()
    Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
    Set myOlSCuts = myOlBar.Contents.Groups.Item(1).Shortcuts
End Sub
Private Sub myOlSCuts_ShortcutAdd(ByVal NewShortcut As Outlook.OutlookBarShortcut)
    Dim myNS As Outlook.NameSpace
    Set myNS = myOlApp.GetNamespace("MAPI")
    If NewShortcut.Target.Name = "Calendar" Then
        NewShortcut.Name = myNS.CurrentUser & "'s Schedule"
    End If
End Sub

上页:Outlook VBA教程:Send事件 下页:Outlook VBA教程:Snooze事件

Outlook VBA教程:ShortcutAdd事件:相关链接

Outlook VBA教程:Snooze事件 Outlook VBA教程:Startup事件
Outlook VBA教程:SyncEnd事件 Outlook VBA教程:SyncStart事件
Outlook VBA教程:ViewAdd事件 Outlook VBA教程:ViewRemove事件
Outlook VBA教程:ViewSwitch事件 Outlook VBA教程:Write事件
Outlook VBA教程:隐藏的语言元素 Outlook VBA教程:新增事件(按字母顺序排列)
Outlook VBA教程:新增事件(按对象排列) Outlook VBA教程:新增方法(按字母顺序排列)
Outlook VBA教程:新增方法(按对象排列) Outlook VBA教程:新增对象
Outlook VBA教程:新增属性(按字母顺序排列) Outlook VBA教程:新增属性(按对象排列)
Outlook VBA教程:Outlook 项目对象 Outlook VBA教程:OLE 程序标识符
Outlook VBA教程:Activate方法 Outlook VBA教程:ActiveExplorer方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号