当前位置：文江博客话题详情

隐藏 Outlook 2003 中的内置“发送”按钮

发布于 2024-08-19 11:56:25 字数 174 浏览 9 评论 0原文

我使用的是ms-outlook 2003，我想隐藏内置的发送按钮并使用自定义按钮发送邮件。

由于我曾在 C、C++ 和 Java 上工作过，所以不知道如何在 VB/VBScript/VBA 上工作，任何人都可以告诉我如何隐藏此按钮以及如何从自定义按钮发送邮件、如何访问邮件（即收件人字段、主题字段、消息正文、附件等）。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

羅雙樹 2024-08-26 11:56:25

如果您想执行此操作，则必须通过按钮的 ID 获取对该按钮的引用。然后您可以控制它的属性，例如启用/禁用它。

Set oCommandBars = Item.GetInspector.CommandBars
Set oStandardBar = oCommandBars("Standard")

Counter = 1

For Counter = 1 To oStandardBar.Controls.Count
    If oStandardBar.Controls(Counter).ID = "1975" Then
        oStandardBar.Controls(Counter).Enabled = False
        Exit For
    End If
Next

但正如 Lazarus 所说，有很多方法可以给猫剥皮，所以可能多一点解释会有所帮助，您是在 Addin 中还是通过自动化等来执行此操作？

If you want to do this you have to get a reference to the button via its ID. Then you can control it properties such as enable / disable it.

Set oCommandBars = Item.GetInspector.CommandBars
Set oStandardBar = oCommandBars("Standard")

Counter = 1

For Counter = 1 To oStandardBar.Controls.Count
    If oStandardBar.Controls(Counter).ID = "1975" Then
        oStandardBar.Controls(Counter).Enabled = False
        Exit For
    End If
Next

But as Lazarus say's there are many ways to skin a cat so may be a little more explanation would help, are you doing this in and Addin or via Automation etc?

回复收藏 0 原文

~没有更多了~