Select the product you need help with

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

文章编号: 294363 - 查看本文应用于的产品

本文的发布号曾为 CHS294363

展开全部 | 关闭全部

概要

本文提供的 Outlook Visual Basic for Applications 宏可以用编程方式更改所有联系人，使其自动设置日记。

回到顶端 | 提供反馈

更多信息

联系人项目日记功能的默认设置是禁用。如果创建联系人后决定对联系人启用日记功能，请为每个联系人设置日记选项：

在工具菜单上，单击选项。
在首选参数选项卡上，单击日记选项。
在"联系人"框中，单击要启用日记功能的每个联系人。

如何您有许多联系人，并希望对他们都启用日记功能，用编程方法来更改所有联系人会更有效。

Microsoft 提供的编程示例只用于说明目的，不附带任何明示或默示的保证，包括（但不限于）用于特定目的的适用性和/或适销性的各项默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持人员可以帮助解释特定过程的功能，但是他们将不会修改这些示例以提供附加功能或建立过程满足您的特定需要。如果您的编程经验有限，那么您可能需要与 Microsoft 认证伙伴联系或者拨打 Microsoft 收费咨询电话 (800) 936-5200。有关 Microsoft 认证伙伴的更多信息，请访问下面的 Microsoft Web 站点：

https://partner.microsoft.com/global/30000104

(https://partner.microsoft.com/global/30000104)

有关可用支持选项以及如何与 Microsoft 联系的更多信息，请访问下面的 Microsoft Web 站点：

http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

要创建宏，请：

在工具菜单上，指向宏，然后单击宏。
在宏名称框中，键入"SetAllContactsToJournal"，然后单击创建。这会启动 Visual Basic 编辑器，并自动创建一个子例程，

键入下列代码行：

Sub SetAllContactsToJournal()

Dim objContactsFolder As Outlook.MAPIFolder
Dim objContacts As Outlook.Items
Dim objContact As Object
Dim iCount As Integer

' 指定要使用哪个联系人文件夹
Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
Set objContacts = objContactsFolder.Items

iCount = 0

' 处理更改
For Each objContact In objContacts
If TypeName(objContact) = "ContactItem" Then
If objContact.Journal = False Then
objContact.Journal = True
objContact.Save
iCount = iCount + 1
End If
End If
Next
   
MsgBox "Number of contacts updated:"& Str$(iCount)

' 清理
Set objContact = Nothing
Set objContacts = Nothing
Set objContactsFolder = Nothing

End Sub

在文件菜单上，单击"关闭并返回 Microsoft Outlook"。

要使用宏，请按下列步骤操作：

在工具菜单上，指向宏，然后单击宏。
单击 SetAllContactsToJournal，然后单击运行。

会出现一个窗口，告诉您已更新了多少个联系人。

备注

处理联系人文件夹中的项目可能需要一段时间。
更新联系人时，鼠标指针不会变成沙漏形状。
如果经常使用此功能，可以将这个宏指定到一个按钮。有关如何将宏按钮添加到工具栏的其他信息，请单击下面的文章编号，查看相应的 Microsoft 知识库文章：
CHS292797
(http://support.microsoft.com/kb/CHS292797/ZH-CN/ )
OL2002：How to Assign a Macro to a Toolbar Button（如何将宏按钮添加到工具栏）
示例代码只能处理默认的联系人文件夹。如果要处理其他联系人文件夹，请找到下面的代码行
Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
并更改为：
Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder
如果您熟悉编程并想使用另一个位置的特定联系人文件夹，请参阅 Microsoft 知识库中的下列文章：

CHS290804

(http://support.microsoft.com/kb/CHS290804/ZH-CN/ )

OL2002：Programming Examples for Referencing Items and Folders（引用项目和文件夹的编程示例）

回到顶端 | 提供反馈

参考

有关解答 Microsoft Outlook 解决方案常见问题的资源的其他信息，请单击下面的文章编号，查看 Microsoft 知识库中的文章：

287530

(http://support.microsoft.com/kb/287530/ZH-CN/ )

OL2002：关于自定义窗体和 Outlook 解决方案的问题

回到顶端 | 提供反馈

属性

文章编号: 294363 - 最后修改: 2006年11月23日 - 修订: 1.1

这篇文章中的信息适用于:

Microsoft Outlook 2002 标准版

kbhowto KB294363

Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

回到顶端 | 提供反馈