求指点：怎么给outlook加一个自定义工具栏

Rishden

打算给outlook加一个自定义工具栏，上面放置自定义按钮，每个按钮下面对应一段代码，请指点怎么实现。我会VBA，多谢！

闻启学

1. Sub CreateNewbar()
   
2. '//创建 工具栏
   
3.     Dim cmb As CommandBar, ct As CommandBarButton
   
4.     Set cmb = Application.ActiveExplorer.CommandBars.Add(Name:="New", Position:=msoBarTop)    '//新建工具栏
   
5.     cmb.Visible = True
   
6.     Set ct = cmb.Controls.Add(Type:=msoControlButton)    '//新建按钮
   
7.     With ct
   
8.         .Caption = "自动回复"
   
9.         .FaceId = 80
   
10.         .OnAction = "getMailReplyTO" '//过程名称
    
11.         .Style = msoButtonIconAndCaption
    
12.     End With
    
13. 
    
14. End Sub

复制代码

你看下