OL2002:如何以编程方式为所有联系人设置日记功能

本文的发布号曾为 CHS294363
本文已归档。它按“原样”提供,并且不再更新。
概要
本文提供的 Outlook Visual Basic for Applications 宏可以用编程方式更改所有联系人,使其自动设置日记。
更多信息
联系人项目日记功能的默认设置是禁用。如果创建联系人后决定对联系人启用日记功能,请为每个联系人设置日记选项:
  1. 工具菜单上,单击选项
  2. 首选参数选项卡上,单击日记选项
  3. 在"联系人"框中,单击要启用日记功能的每个联系人。
如何您有许多联系人,并希望对他们都启用日记功能,用编程方法来更改所有联系人会更有效。

Microsoft 提供的编程示例只用于说明目的,不附带任何明示或默示的保证,包括(但不限于)用于特定目的的适用性和/或适销性的各项默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持人员可以帮助解释特定过程的功能,但是他们将不会修改这些示例以提供附加功能或建立过程满足您的特定需要。如果您的编程经验有限,那么您可能需要与 Microsoft 认证伙伴联系或者拨打 Microsoft 收费咨询电话 (800) 936-5200。有关 Microsoft 认证伙伴的更多信息,请访问下面的 Microsoft Web 站点:有关可用支持选项以及如何与 Microsoft 联系的更多信息,请访问下面的 Microsoft Web 站点:要创建宏,请:
  1. 工具菜单上,指向,然后单击
  2. 宏名称框中,键入"SetAllContactsToJournal",然后单击创建。这会启动 Visual Basic 编辑器,并自动创建一个子例程,
  3. 键入下列代码行:
    Sub SetAllContactsToJournal()Dim objContactsFolder As Outlook.MAPIFolderDim objContacts As Outlook.ItemsDim objContact As ObjectDim iCount As Integer' 指定要使用哪个联系人文件夹Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)Set objContacts = objContactsFolder.ItemsiCount = 0' 处理更改For Each objContact In objContactsIf TypeName(objContact) = "ContactItem" ThenIf objContact.Journal = False ThenobjContact.Journal = TrueobjContact.SaveiCount = iCount + 1End IfEnd IfNext   MsgBox "Number of contacts updated:"& Str$(iCount)' 清理Set objContact = NothingSet objContacts = NothingSet objContactsFolder = NothingEnd Sub
  4. 文件菜单上,单击"关闭并返回 Microsoft Outlook"。
要使用宏,请按下列步骤操作:
  1. 工具菜单上,指向,然后单击
  2. 单击 SetAllContactsToJournal,然后单击运行
会出现一个窗口,告诉您已更新了多少个联系人。

备注

  • 处理联系人文件夹中的项目可能需要一段时间。
  • 更新联系人时,鼠标指针不会变成沙漏形状。
  • 如果经常使用此功能,可以将这个宏指定到一个按钮。有关如何将宏按钮添加到工具栏的其他信息,请单击下面的文章编号,查看相应的 Microsoft 知识库文章:
    CHS292797 OL2002:How to Assign a Macro to a Toolbar Button(如何将宏按钮添加到工具栏)
  • 示例代码只能处理默认的联系人文件夹。如果要处理其他联系人文件夹,请找到下面的代码行
    Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
    并更改为:
    Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder
  • 如果您熟悉编程并想使用另一个位置的特定联系人文件夹,请参阅 Microsoft 知识库中的下列文章:
CHS290804 OL2002:Programming Examples for Referencing Items and Folders(引用项目和文件夹的编程示例)
参考
有关解答 Microsoft Outlook 解决方案常见问题的资源的其他信息,请单击下面的文章编号,查看 Microsoft 知识库中的文章:
287530 OL2002:关于自定义窗体和 Outlook 解决方案的问题
OfficeKBHowTo OutSol OutSol2002
属性

文章 ID:294363 - 上次审阅时间:10/23/2013 17:44:30 - 修订版本: 1.1

  • Microsoft Outlook 2002 标准版
  • kbnosurvey kbarchive kbhowto KB294363
反馈