当标记一个联系人时，一些用户希望在待办事项列表中得到一个标准的Outlook任务，而不是标记的联系人。现在，在本文中，我们将介绍一个方法，让Outlook在标记联系人时自动创建一个任务来调用联系人。
我们都知道，当标记一个联系人时，该联系人将显示在待办事项列表中。但是，大多数情况下，我们真正想要的是稍后调用该联系人的标准任务，并且只在任务主体中包含联系人的电话号码。因此，在这里我们将介绍一种配置Outlook以自动创建这样一个任务的方法。请继续阅读以获得更多细节。
标记联系人时自动创建稍后呼叫联系人的任务
- 首先，启动Outlook VBA编辑器参考“如何在Outlook中运行VBA代码”。
- 然后，打开“ThisOutlookSession”项目，并将以下代码放入其中。
私人WithEvents objContacts作为Outlook。Items 'Works为默认联系人文件夹Private Sub Application_Startup()设置objContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)。项目结束子Private子objContacts_ItemChange(ByVal Item As Object) Dim objContact As Outlook。ContactItem Dim objTask As Outlook。如果TypeOf Item是ContactItem则设置objContact = Item如果objContact。IsMarkedAsTask = True那么objContact. IsMarkedAsTask = TrueTaskCompletedDate = "1/1/4501"然后'创建一个调用此联系人的任务Set objTask = Outlook.Application.CreateItem(olTaskItem) With objTask . subject = "Call " & objContact。FullName . startdate = objContact。TaskStartDate . duedate = objContact。TaskDueDate .Attachments。添加objContact. body = "Business: " & objContact。BusinessTelephoneNumber & vbCr & "Home: " & objContact。home etelephonenumber & vbCr & "Other: " & objContact。OtherTelephoneNumber & vbCr & vbCr . reminderset = True . remindertime = objContact。ReminderTime . save . display结束objContact。ClearTaskFlag objContact。保存结束If结束If结束If结束Sub
- 之后，将光标放在“Application_Startup”子例程中，按“F5”键激活此宏。
- 最后，退出VBA编辑器并立即尝试这个宏。
- 选择或打开一个联系人并标记它。
- 马上就会显示一个新任务，如下图所示。
- 同时，如您所见，联系人的标志将自动删除。
修复受损的PST文件
与Word文档一样，Outlook PST文件也容易损坏。许多用户都被与无法访问PST文件相关的问题所困扰。幸运的是，Outlook预装了内置的修复工具Scanpst。它确实能够修复大多数小的PST问题。然而，当认真面对时腐败PST文件，它似乎无效。因此，在那个时候，你必须借助一个更强大的工具，如DataNumen Outlook Repair。
作者简介:
Shirley Zhang是DataN万博ManBetX手机下载umen, Inc.的数据恢复专家，该公司是数据恢复技术的世界领导者，包括sql复苏并展望维修软件产品。万博体育app官方网下载欲了解更多信息，请访问www.circareview.com
留下回复