OL2000: 如何以编程方式设置为所有联系人的日记

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

本文内容

概要

这篇文章介绍了一个 Outlook vba 的应用程序的宏,可用来以编程方式更改您的所有联系人,以便它们将自动设置为日志。

更多信息

禁用日志记录联系人项目的默认设置。如果创建联系人,并且然后决定要启用这些联系人的日志记录设置为每个联系人日记选项:
  1. 工具 菜单上单击 选项
  2. 首选参数 选项卡上单击 日记选项
  3. 联系人 框中单击要启用日志记录每个的联系人。
如果您有大量的联系人,并且您想要为所有启用日志记录可能更有效的方法以编程方式更改的所有联系人。

Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证,其中包括但不是限于对适销性和/或针对特定用途的适用性的暗示的担保。本文假定您熟悉所演示的编程语言和工具用于创建和调试过程。Microsoft 支持专业人员可以帮助解释某个特定过程的功能,但他们不会修改这些示例以提供额外的功能或构建过程来满足您特定需要。
如果有限编程体验您可能需要联系 Microsoft 认证合作伙伴或 Microsoft 咨询服务。有关更多的信息请访问以下 Microsoft 网站:

Microsoft 认证合作伙伴-https://partner.microsoft.com/global/30000104

Microsoft 咨询服务-http://support.microsoft.com/gp/advisoryservice

有关可用的支持选项和有关如何与 Microsoft 联系的详细信息,请访问下面的 Microsoft 网站: 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
    
       ' Specify which contact folder to work with
       Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
       Set objContacts = objContactsFolder.Items
    
       iCount = 0
    
       ' Process the changes
       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)
    
       ' Clean up
       Set objContact = Nothing
       Set objContacts = Nothing
       Set objContactsFolder = Nothing
    
    End Sub
    					
  4. 文件 菜单上单击 关闭并返回到 Microsoft Outlook
要使用宏,请执行以下操作:
  1. 工具 菜单上指向 ,然后单击
  2. 单击 SetAllContactsToJournal,然后单击 运行
将出现一个窗口,告诉您的联系人已更新的数目。

备注

  • 它可能需要以处理您的联系人文件夹中项目的一段时间。
  • 正在更新您的联系人时将指针不会更改一个沙漏。
  • 如果您经常使用这,您可以将宏分配给某个按钮。有关将此宏指派给一个工具栏按钮的其他信息请单击下面文章编号,以查看 Microsoft 知识库中相应的文章:
    252426OL2000: 如何将宏分配给工具栏按钮
  • 示例代码只适用于默认的联系人文件夹中。如果您希望使用任何联系人文件夹,找到下面的代码
    Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
    						
    并将其更改为:
    Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder
    					
  • 如果熟悉编程需要在其他位置使用特定的联系人文件夹,请参阅下面 Microsoft 知识库中相应的文章:
208520OL2000: 编程示例引用的项目和文件夹

参考

有关可用资源和 $ answersto 有关 Microsoft Outlook 解决方案的常见问题的其他信息请单击下面文章编号,以查看 Microsoft 知识库中相应的文章:
146636OL2000: 有关自定义窗体和 Outlook 解决方案的问题

属性

文章编号: 252947 - 最后修改: 2013年10月20日 - 修订: 3.2
这篇文章中的信息适用于:
  • Microsoft Outlook 2000
关键字:?
kbnosurvey kbarchive kbmt kbhowto KB252947 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 252947
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