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

文章翻译 文章翻译
文章编号: 294363 - 查看本文应用于的产品
本文的发布号曾为 CHS294363
本文已归档。它按“原样”提供,并且不再更新。
展开全部 | 关闭全部

本文内容

概要

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

更多信息

联系人项目日记功能的默认设置是禁用。如果创建联系人后决定对联系人启用日记功能,请为每个联系人设置日记选项:
  1. 工具菜单上,单击选项
  2. 首选参数选项卡上,单击日记选项
  3. 在"联系人"框中,单击要启用日记功能的每个联系人。
如何您有许多联系人,并希望对他们都启用日记功能,用编程方法来更改所有联系人会更有效。

Microsoft 提供的编程示例只用于说明目的,不附带任何明示或默示的保证,包括(但不限于)用于特定目的的适用性和/或适销性的各项默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持人员可以帮助解释特定过程的功能,但是他们将不会修改这些示例以提供附加功能或建立过程满足您的特定需要。如果您的编程经验有限,那么您可能需要与 Microsoft 认证伙伴联系或者拨打 Microsoft 收费咨询电话 (800) 936-5200。有关 Microsoft 认证伙伴的更多信息,请访问下面的 Microsoft Web 站点:
https://partner.microsoft.com/global/30000104
有关可用支持选项以及如何与 Microsoft 联系的更多信息,请访问下面的 Microsoft Web 站点:
http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
要创建宏,请:
  1. 工具菜单上,指向,然后单击
  2. 宏名称框中,键入"SetAllContactsToJournal",然后单击创建。这会启动 Visual Basic 编辑器,并自动创建一个子例程,
  3. 键入下列代码行:
    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
  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 解决方案的问题

属性

文章编号: 294363 - 最后修改: 2013年10月23日 - 修订: 1.1
这篇文章中的信息适用于:
  • Microsoft Outlook 2002 标准版
关键字:?
kbnosurvey kbarchive kbhowto KB294363
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com