Microsoft Office Outlook 2003 完全揭密

在 Microsoft Outlook 2000 之前，在 Outlook 中开发代码应用程序的唯一选择就是使用 Microsoft Visual Basic Scripting Edition (VBScript)。尽管这允许进行某些自定义，但是在 Outlook 2000 中引入 VBA 可允许开发人员对整个产品进行更高级别的控制，以及与 Office 家族的其他成员进行更方便的集成。VBA 在许多重要方面都不同于 VBScript。最明显的是，VBA 是一个更友好的工作环境。这是因为存在随 VBA 引擎提供的编辑器，还因为 VBA 比 VBScript 更接近功能完善的编程语言（如 Visual Basic）。

在 Outlook 中，VBA 和 VBScript 之间的重要区别与您在何处使用这两种语言有关。与 VBScript 相比，VBA 可让您对 Outlook 进行更强的控制，前者只允许您在特定的自定义窗体后面工作。在 VBA 中，您可以在应用程序级别工作，在该级别，您可以控制 Outlook 各个区域之间的许多交互，还可以自动执行几乎所有的界面操作。

在许多启用了 VBA 的应用程序中，如果您在其中的某个应用程序中进行过编程，则会比较熟悉 Outlook 中的 VBA 环境。该环境与所有 Office 产品以及许多第三方应用程序中所使用的环境相同。

VBA 环境是作为独立于主 Outlook 应用程序环境的窗口来寄宿的。要从 Outlook 中打开 VBA 编辑器窗口，请依次选择 Tools、Macro 和 Visual Basic Editor。

该环境由许多窗口和工具栏组成，图 A2-1 显示了其中的一些窗口和工具栏。“项目”、“属性”和“调试”窗口是 VBA 环境所必需的，并且可以停靠在该环境的边缘。代码编辑器和窗体编辑器作为多文档界面 (MDI) 窗口运行，这类似于多个文档在 Word 或 Microsoft Excel 中的显示方法。它们全都出现在外壳程序中，您可以使用“窗口”菜单在它们之间进行方便的切换。要查看或隐藏其中的任何窗口，请使用“视图”菜单。

图 A2-1. VBA 环境包含许多窗口和工具栏。

“项目”窗口

“项目”窗口显示您使用的项目和文件。构成一个项目的文件以树的形式排列在“项目”窗口的“项目”条目下。

下面是项目树中不同部分的说明：

注由于对如何以及为何使用类模块来以面向对象的方式开发应用程序的讨论非常复杂，因此本文不对此进行介绍。我建议您查询有关开发面向对象应用程序的书籍，以便了解相应的方法，并通过使用类在 Outlook 应用程序中应用这些技巧。有关该主题的一本有用的书是 Programming Microsoft Visual Basic .NET（Microsoft Press，2002 年），其作者是 Francesco Balena。

按照下列步骤向 VBA 项目中添加新文件：

有关重命名的说明，请参阅下面的“属性窗口”。

尽管“项目”窗口中的文件都作为单独的项目显示和列出，但是它们并不作为单独的文件存储，而是作为它们在 Outlook 中存储的占位符存储。然而，您可以将它们作为单独的文件导入和导出，以允许在其他应用程序中使用它们。请按照下列步骤导出文件：

还可以将任何 VB 或 VBA 模块或者类文件导入到 Outlook 项目中。请按照下列步骤导入文件：

您开发的所有 VBA 代码都保存在 VBAProject.OTM 文件中。在默认情况下，该 OTM 文件位于 C:\Documents And Settings\<username>\Application Data\Microsoft\Outlook 中。

注 如果您希望分发某个应用程序，则应当将该应用程序作为组件对象模型 (COM) 外接程序（而非 VBA 应用程序）来开发。

“属性”窗口

在“属性”窗口中，可以检查和修改所选对象的任何可配置属性。对于在“项目”窗口中选择的任何文件，Name 属性都会出现在“属性”窗口中，您可以在其中更改文件的名称。此窗口在您构建 VB 窗体时会变得相当复杂，这是因为该窗体以及放到其上的每个控件都与许多属性相关联。

例如，在向该项目中添加 Module 类型文件后，应该按照下列步骤来更改文件的 Name 属性：

为了演示一组更复杂的属性，现在向该项目中添加一个 UserForm 类型文件。请注意，现在“属性”窗口填满了可自定义的属性（请参见 A2-2）。

图 A2-2. 窗体和控件具有许多可在“属性”窗口中更改的属性。

调试窗口

您可以使用许多调试工具来调试 VBA 应用程序。使用这些工具，可以在执行中的代码内检查和修改对象的状态。这些工具连同相应的信息一起出现在屏幕底部的不同调试窗口中。您可以通过选择“视图”然后选择相应的工具来打开调试窗口。代码必须处于中断模式，才能使用调试工具。要在代码执行时进入中断模式，可按 Ctrl+Break，或者通过选择感兴趣的一行代码并按 F9 来设置断点。当正在执行的代码到达断点时，环境将进入中断模式，您就可以使用调试工具了。

调试工具包含下列窗口：

注 要查看“立即”窗口，请参见下面的图 A2-1。“立即”窗口显示在 VBA 环境的底部。

有关如何使用调试工具的深入讨论，请查阅 Microsoft Office 2000/Visual Basic for Applications Fundamentals（Microsoft Press，1999 年），该书的作者是 David Boctor。

“代码”窗口

当您在“项目”窗口中双击某个文件时，会在屏幕的主区域中打开一个新窗口。如果您选择了 Module、ClassModule 或 ThisOutlookSession，则会显示“代码”窗口。使用此窗口，可以向 Outlook 中添加代码。

“对象”窗口

如果您在“项目”窗口中双击某个窗体，就会打开“对象”窗口，并显示该窗体的图形视图。要显示该窗体的代码，请执行下列操作之一：

VBA 工具栏

在构建 VBA 应用程序时可以使用三个特殊的工具栏。大多数通过单击工具栏按钮就可以使用的功能也可以在菜单上使用，并且通常也可以通过快捷组合键来访问。

在对 VBA 环境感到满意后，就可以查看 Outlook 的对象模型了。如果您熟悉其他 Office 应用程序中的对象模型，就会注意到 Outlook 对象模型稍有不同。这主要是由于 VBA 出现得比较晚，而且 Outlook 作为应用程序所扮演的角色有所不同。然而，其他 Office 应用程序（如 Word 和 Excel）是在其中宿主和操作其他对象（文档、工作簿和工作表）的框架，而 Outlook 本身就很像是一个应用程序。

整本书可能对 Outlook 对象模型中的 30 多种对象和集合进行了描述。本部分只介绍最初开发应用程序时所必需的关键对象和集合。使用 Microsoft Visual Basic 帮助（在 VBA 编辑器中通过按 F1 来访问），可以找到有关 Outlook 对象模型中其他对象的信息。

下面简要介绍一些关键对象：

下一部分更全面地介绍了这些对象。但是，在更详细地了解这些重要的 Outlook 对象之前，一定要了解集合这一术语的含义。对象模型的某些部分只被标记为对象，而其他部分被标记为对象和集合。集合是一组具有相同类型的对象。例如，收件箱包含有许多电子邮件。每封邮件都是一个邮件项对象，而“收件箱”文件夹包含的是这些邮件项的集合。您可以通过以下方法获得集合的特定成员：使用集合的 Item 方法，并为它提供一个索引，该索引可以是一个整数值或者与集合中对象的默认属性相匹配的值。例如，下面的代码可返回收件箱中的第二封电子邮件：

或者，可以使用引用该对象的名称。本例将返回 Folders 集合中名为 Outlook Book 的电子邮件文件夹：

要使显示第二封电子邮件的代码正确工作，请执行下列操作：

应用程序、命名空间和文件夹

Outlook 对象模型的核心是 Application 对象，之所以称其为根对象，是因为层次结构的其余部分都源自它。Application 对象提供对其他所有 Outlook 对象的访问。如果您要从外部应用程序访问 Outlook 对象层次结构，则必须先创建 Application 对象的实例，才能访问任何其他对象。如果您在 Outlook 中工作，则 Application 对象的实例始终存在；要访问它，请使用 Application 关键字。

尽管 Application 对象允许您访问 Outlook 中的许多基础构造块对象，但是如果要访问 Outlook 数据，则必须创建 Namespace 对象的实例。Namespace 对象是 Outlook 数据源的抽象根，这意味着，尽管您不直接使用它，也可以通过它访问对象树中其下面的对象。目前，所支持的唯一数据源就是邮件应用程序编程接口 (MAPI)，MAPI 允许访问存储在用户邮件文件中的所有 Outlook 数据。要获得 Outlook 应用程序的 Namespace 对象，请使用 Application 对象的 GetNameSpace 方法：

正如您知道的那样，Outlook 中的信息是在文件夹中维护的。某些文件夹（如收件箱、发件箱和已发送邮件）包含邮件项；其他文件夹则包含其他类型的项目。在获取 Namespace 对象的实例以后，就可以方便地连接到 Outlook 中的任何文件夹。Namespace 对象有一个 GetDefaultFolder 方法，该方法使用类型为 olDefaultFolders 的参数。类型 olDefaultFolders 表示某个默认的 Outlook 文件夹，并且可以是 A2-1 中所示的任何一个常数。

例如，您可以使用以下代码来创建表示所有联系人项目的对象：

fdrContacts 变量已声明为 MAPIFolder，并且被指定了“联系人”文件夹。您还可以声明 Application 对象和 Namespace 对象，但是除非您打算重复使用它们，否则其效率与使用已定义的 Application属性和 GetNamespace 方法调用一样高。

高效使用 Application 和 Namespace 对象

如果您希望检索许多要使用的文件夹，则以下代码非常高效，这是因为它对 Application 对象和 Namespace 对象只检索一次，然后重复使用它们：

下列步骤可指导您完成代码的创建过程，该代码用于为“便笺”和“日历”文件夹设置对象，然后允许您显示每个文件夹中的内容：

资源管理器、检查器和项目

到目前为止，已经向您介绍了访问 Outlook 数据所需的 Outlook 对象。一个项目就是一段 Outlook 数据。例如，日历上的约会以约会项的形式存储在 Outlook 中。当您使用 Outlook 查看文件夹中的项目时，您实际是在使用该特定项目类型的 Explorer 对象。Outlook 可为不同类型的项目提供不同的资源管理器。如果您使用 Outlook 界面来查看日历、联系人、便笺和日记项目，则会发现各个项目的资源管理器大大不同。

Application 对象包含资源管理器的集合，这些资源管理器表示 Outlook 中所有不同的资源管理器。您可以使用多种方法从 Outlook 中检索特定的 Explorer 对象：

在拥有 Explorer 对象以后，可以通过调用 Activate 方法来显示该资源管理器：

而 Explorer 对象用于显示项目的集合，检查器用于显示具体项目。您可以将检查器视为在查看特定类型的项目时所看到的窗体。如果您希望创建自己的项目，然后允许用户自定义它，那么能够在代码中访问检查器会非常有用。与资源管理器一样，检查器集合与 Application 对象相关联。您可以通过多种方法来检索特定的检查器：

在拥有 Inspector 对象以后，您可以通过调用 Activate 方法来显示它及其相关项：

用于创建 Inspector 对象的替换方法是：新建一个项目，然后调用该项目的 Display 方法以显示该项目，从而显示该项目的检查器：

要使显示资源管理器和检查器的代码工作，请按照下列步骤操作：

疑难解答：宏不显示

如果您在 VBA 中编写了一个宏，但是当您打开“宏”对话框（从主 Outlook 窗口按 Alt+F8）时，该宏没有显示，则可以执行一些检查：

只有 Sub 过程出现在“宏”对话框中。确保您编写的过程是以 Sub （而非 Function ）开头的。

Sub 过程必须是公共的。如果您的过程声明为 Private Sub ，则它将不会出现。

在“宏”对话框中，只能看到在 ThisOutlookSession 模块或代码模块中声明的 Sub 过程。即使在类中声明的公共 Sub 过程也看不到，因为您必须先实例化类才能使用它们。对于在窗体中声明的 Sub 过程也是如此。

在您了解 VBA 编辑器如何工作以及 Outlook 对象模型如何允许您与 Outlook 进行交互之后，就可以讨论如何使用这些知识在 Outlook 中构建应用程序了。通过开发自定义的 Outlook 应用程序，可以在许多方面增强 Outlook。一种方法就是使用 Outlook 的功能来执行不是 Outlook 特定任务但是可以在 Outlook 界面中实现的任务。例如，可以增强 Outlook 日历系统，以便用户可以将他们所执行工作的信息记录在贵公司的时间录入系统中。如果用户已经使用日历记录了他们在这一天的约会，那么您就可以添加自定义的应用程序代码，以便检查该信息，并将它作为时间录入系统的数据导出，这意味着，用户将不必重复输入该信息。

可从构建自定义 Outlook 应用程序获益的另一种方法是，自动执行 Outlook 中原本要求用户执行大量工作的任务。例如，用户常常将数百个联系人存储在他们的 Outlook 副本中。如果他们与大公司打交道，那么可能会有一个公司的许多联系人。如果该公司改成新名，那么该公司的所有联系人都需要进行更新。

本章的其余部分说明如何添加 Outlook 自定义功能，以自动执行刚刚提到的示例中所涉及的过程。该应用程序由许多元素组成：

访问 Outlook 数据

之所以向 Outlook 中添加自定义的 VBA 代码，主要原因之一就是允许访问存储在 Outlook 中的一些数据。使用前面介绍的对象，您可以轻松地访问存储在 Outlook 中的数据，然后在另一个窗体中利用它。在本例中，您需要更新来自特定公司的所有联系人的公司名，因为该公司已经更名。

以下代码有两个字符串，它们分别表示原始的公司名以及它的新名。对于公司名与 strFrom 变量相匹配的每个项目，将该名称更改为 strTo 中包含的字符串，并调用该项目的 Save 方法：

上面的方法可单独查找每个联系人项目。但是，这样做的效率不是很高，特别是当您的联系人很多时。要提高效率，请尝试用以下代码来代替 For.?.?.Each 循环。以下代码不是检查每个项目，而是使用文件夹对象的 Items 集合的 Restrict 方法，以便允许您在使用这些项目之前先对其应用筛选器。在本例中，应当只包括符合以下条件的项目：CompanyName 属性等于传递到该过程的 strFrom 变量的值。对于包含 400 个项目的联系人列表，这会将处理时间从 4 秒减到 1 秒：

添加窗体

上一部分中的过程将一个字符串值转换为另一个。查找这些值的一种方法是，通过向应用程序中添加自定义窗体来询问用户。要在项目中添加窗体，请在“项目”窗口中右键单击，然后依次选择 Insert、UserForm。新窗体将连同其属性和控件工具箱一起显示。向该窗体中添加控件，直到它看上去像图 A2-3 中所示的窗体。

有关向窗体中添加控件的信息，请参阅第 644 页的“Adding and Arranging Controls”。

图 A2-3. 使用这个 VBA 窗体告诉程序该公司的原始名称和更改后的名称。

将以下代码添加到该窗体的“代码”窗口中。它调用 Load 函数以实例化该窗体，并将 strFrom 和 strTo 变量传递到 UpdateCompanyName 过程：

该代码维护 bContinue 布尔值，该值存储有关在窗体退出时是否继续处理代码的信息。它还负责调用一个用最新的公司名填充组合框的函数，并显示该窗体。下面显示用来构建现有公司的组合框列表的代码如下所示：

以上代码使用文件夹的 Items 集合的 Sort 方法来按顺序排列公司名。这将允许该函数依次通过每个值，并放弃重复值。

最后，为了允许您执行刚刚在 Outlook 中创建的函数，可以添加以下过程，该过程与工具栏按钮相关联。该过程调用 CompanyNameChange 窗体的 Load 方法，然后调用 UpdateCompanyName过程来更改公司名：

创建自定义的工具栏按钮

在编写了一些代码之后，还需要一种让用户访问这些函数的方法。其中的一些代码可以由 Outlook 中出现的事件自动完成，但通常需要向主 Outlook 界面中添加元素，以允许用户执行一段代码。这样做的一个绝佳方法是向 Outlook 应用程序中添加命令栏和工具栏按钮。

可以使用两个方法来自定义命令栏。第一个方法是，按照第 25 章“Customizing the Outlook Interface”中的说明，从 Outlook 界面添加和更改命令栏。如果所作的更改是针对您自己的 Outlook 副本并且是永久更改时，该方法很好。

注有关从 Outlook 界面修改命令栏的信息，请参阅第 665 页的“Creating Custom Command Bars”。

第二种方法是使用 VBA 添加命令栏。这使您可以在添加和删除工具栏时获得更大的控制，如果您希望命令栏或工具栏按钮只出现特定的次数，该方法尤其有用。要向 Outlook 界面中添加命令栏，可以使用以下代码：

以上代码声明了类型为 CommandBar 的对象，该对象将在局部使用以执行命令栏上的命令。要新建命令栏，可以使用 CommandBars 集合的 Add 方法；这是 Explorer 对象的属性。要自定义新命令栏，可以向 Add 方法传递许多参数。Temporary:=True 告诉命令栏只在 Outlook 处于打开状态时存在。如果您关闭 Outlook 并再次打开它，但是没有重新运行该过程，那么该命令栏将不复存在。

向环境中添加命令栏之后，还需要添加按钮。在向命令栏中添加按钮时，请按照以下三个基本步骤操作：

要向命令栏中添加按钮，请使用以下代码：

您可以将某个按钮与 Outlook 中任何其他按钮或菜单的操作相关联，或者与您用 VBA 编写的自定义函数相关联。要将该按钮与内置函数相关联，您必须将另一个参数传递给 Add 方法：

本例向自定义工具栏中添加将执行 Paste 函数的按钮。ID 属性使用整数值，在本例中，该值是从现有控件检索的；您可以使用 id:=22 来实现相同的结果。

如果您希望允许工具栏按钮调用自定义的 VBA 过程，则必须设置 OnAction 属性。确保您的函数被声明为公共函数，然后在创建按钮以便将它与命名函数相关联之后，输入以下代码：

以上代码将新按钮与名为 ChangeCompany 的过程相关联。

最后，在添加按钮时，可以通过以下方法来设置它的格式：设置样式，赋予它标题，并且可以为它提供图标。按钮可以有许多确定其如何显示的样式。要更改样式，请使用 Style 属性：

要添加标题，请使用 Caption 属性。Caption 属性指定在按钮上显示的文本（如果选定的按钮样式具有一个标题）：

打印

对于为该公司的所有联系人更改公司名的过程，最后一个增强就是实现某个打印功能。这将允许用户在操作发生之前查看所有将受到影响的联系人，并为他们提供打印名称列表、单个联系人详细信息或者所有联系人详细信息的选项。

在使用代码从 Outlook 中打印信息时，请记住，所有打印方法都使用执行它们的计算机的默认打印机。如果没有默认打印机或者打印机不可用，就会发生错误。在本例中，您可以创建如图 A2-4 中所示的 VBA 窗体。

图 A2-4. 该窗体允许用户查看和打印所有受到公司名更改影响的联系人的详细信息。

列表框包含受到公司名更改影响的联系人姓名列表。这些按钮允许用户打印列表（通过打印该窗体）、打印一个联系人的详细信息或者打印所有联系人。要打印该窗体，可以使用该窗体的 PrintForm 方法。将以下代码放在按钮的 click 事件处理程序中。Me 是指当前的窗体：

以下函数可打印联系人信息。以下代码将联系人姓名视为字符串，然后使用 Contacts 文件夹的 Find 方法来返回 ContactItem 对象。该项目的 PrintOut 方法用于打印此对象：

要完成此窗体，请使用以下代码来用相关项目填充列表框：

该函数使用 Restrict 方法再次创建文件夹，但是这一次，它依次通过所返回的联系人，并构建一个可用作列表框列表的联系人姓名的数组。

要添加对某个公司的联系人姓名进行更改的代码，请按照下列步骤操作：