+ -
当前位置:首页 → 问答吧 → 在OUTLOOK2003工具栏中该入如何添加按钮?

在OUTLOOK2003工具栏中该入如何添加按钮?

时间:2010-09-20

来源:互联网

大家都是在EXCEL中添加按钮
在OUTLOOK2003中该入如何添加按钮?先不说功能。

作者: seturyo   发布时间: 2010-09-20

是想用VBA添加按钮,怎么搞?

作者: seturyo   发布时间: 2010-09-21

看帮助,

搜搜论坛的帖子

作者: dsd999   发布时间: 2010-09-21

Sub aaFindBar()
        Dim aaCommandBar As CommandBar

        Set aaCommandBar = Outlook.ActiveExplorer.CommandBars.Add("aa", msoBarTop)
        aaCommandBar.Visible = True
End Sub

作者: grassking   发布时间: 2010-09-21

Sub aaFindBar()
        Dim aaCommandBar As CommandBar
        Dim bbCommandButton As CommandBarControl
        Set aaCommandBar = Outlook.ActiveExplorer.CommandBars.Add("aa", msoBarTop)
        aaCommandBar.Visible = True

        bbCommandButton  = aaCommandBar .Controls.Add(msoControlButton)
        bbCommandButton.Caption = "bb"
End Sub

作者: grassking   发布时间: 2010-09-21

引用:
原帖由 grassking 于 2010-9-21 17:20 发表
Sub aaFindBar()
        Dim aaCommandBar As CommandBar
        Dim bbCommandButton As CommandBarControl
        Set aaCommandBar = Outlook.ActiveExplorer.CommandBars.Add("aa", msoBarTop)
        a ...
好用!!!!

作者: seturyo   发布时间: 2010-09-24