求助：Outlook 2000中如何为事件(event)撰写代码？

musicland

我在编写Outlook中的事件处理时遇到了麻烦：我要处理的是NewInspector事件，例程中要求把代码放在类模块中，可是我不知道什么是类模块、怎么用它。还请大家帮个忙，最好能写一段简明的代码，小弟先谢了！

musicland

谢谢版主的回复！ 这段代码我在VBA帮助文档和MSDN中已看了，我不明白的不是代码本身，而是：1、什么是类模块；2、怎样使用类模块。我本以为是用“插入”－“类模块”，然后把这些代码全放在新插入的类模块中，但是却几次没成功。版主能不能给我讲一下怎么用上面这段代码吗？谢谢！

musicland

版主你好： 我想处理NewInspector事件的目的是想在新建一封邮件时控制窗口上的工具条（加上自己定义的，并在邮件窗口显示之前取得联系人列表）。现在我虽然想了一个变通的办法把这个效果实现了，但还是对事件处理不通。MSDN中的很多其它事件处理例程我用的时候也没效果，所以想借此问一下，尤其是关于类模块的用法。 我刚刚把上面说的那个效果做了一个宏出来，马上帖到论坛上，还请版主看了后帮我改进一下。

loadhigh

我将这些代码加入了outlook里运行了一下,没发现有啥变化。 “闻道有先后，术业有专攻”，我对outlook的了解多数还是关于email方面，office组件 的属性、事件太多了，我一般只用一些常用的属性，没有用过的或不了解的都是通过 看帮 助和示例以及运行示例或适当的改变示例的代码，观察运行後的效果来了解的。 就这些代码和查看帮助，这些代码的执行效果是改变当NewInspector事件发生时，改变 “工具栏”里菜单项里“standard”、“formatting”的显示属性，使其可见。 你能不能描述一下你为什么要用这个NewInspector事件或你用NewInspector事件为了达到什么样的目的？

loadhigh

编辑程序不一定要拘泥于以上的例子，关键要看代码里的内容。 你可以这样试试看，将代码改成这样： Sub Application_NewInspector(ByVal Inspector As Outlook.Inspector) Inspector.CommandBars.Item("Standard").Visible = True Inspector.CommandBars.Item("Formatting").Visible = True End Sub

loadhigh

NewInspector 事件示例 本示例在检查器打开时显示检查器的“常用”工具栏和“格式”工具栏。示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。 Dim myOlApp As New Outlook.Application Public WithEvents myOlInspectors As Outlook.Inspectors Public Sub Initialize_handler() Set myOlInspectors = myOlApp.Inspectors End Sub Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector) Inspector.CommandBars.Item("Standard").Visible = True Inspector.CommandBars.Item("Formatting").Visible = True End Sub