有时，你有时间从你的待办事项清单上勾选一些事情，但没有一项任务是特别紧迫的。读者Ricardo向我们展示了如何让Outlook为您随机挑选一个，这样您就可以跳过决策而开始工作。

里卡多喜欢前面提到的→完成，它随机选择一个待办事项供您执行。不过，他不想在一个单独的系统中管理所有的待办事项，所以他为Outlook编写了一个宏，从任务列表中随机选取一项供您处理。如果您选择，它甚至会在您的列表中将任务标记为已完成。

请注意，Ricardo的原始脚本可以在他的博客上找到，如果您选择不执行该任务，它最初会显示一篇来自Fail blog的随机文章。我把它从脚本中删除了，主要是因为它让人们设置起来太复杂了，而且因为我预见到很多人出于生产力的原因想要删除它（尽管它确实很有趣）。

在Office2010中，需要启用“开发人员”选项卡来创建宏。为此，请单击“主页”选项卡旁边的“Office徽标”按钮，然后选择“选项”。点击“CustomizetheRibbon”并检查显示窗口右侧窗格中的“Developer”部分。点击OK，然后你应该有一个Developer选项卡，允许你创建宏。

通过转到“工具”>“宏”>“宏”（如果运行Outlook 2010，则转到“开发人员”选项卡并单击“宏”）创建一个新的宏，然后在Visual Basic编辑器中粘贴以下代码：

Sub-PickRandomTask（）'Outlook宏所需的常规内容。Set objOutlook=CreateObject（“Outlook.Application”）Set objNamespace=objOutlook.GetNamespace（“MAPI”）'从默认任务文件夹Set objFolder=objNamespace.GetDefaultFolder（olFolderTasks）Set colItems=objFolder.Items strFilter=“[Complete]=FALSE”Set coltasks=colItems.Restrict（strFilter）”变量Dim n As选择未完成的任务Integer'为用户选择一个随机任务，并请求任务完成反馈n=Int（（coltasks.count）*Rnd+1）Answer=MsgBox（“执行此任务：”&amp；coltasks（n）.主题；vbCrLf和；vbCrLf&amp“现在！”，vbQuestion+vbYesNo，“？？？”）如果Answer=vbNo那么“Code for No MsgBox”这个任务对您不再重要了吗？把它从你的名单上去掉(或者选择另一个随机任务）。“Else”代码表示“Yes MsgBox”任务标记为已完成。现在把它做完！”coltasks（n）.MarkComplete End If结束Sub

这样，如果你喜欢这种奇怪的方法→完成非紧急任务后，您可以将其集成到现有系统中，而无需处理第二个待办事项列表（或放弃原来功能更全面的列表）。点击链接，如果你想原始的脚本，完成失败的博客文章，让我们知道如何随机分配方法让事情完成你的作品。

Outlook中的随机任务[懒人办公室]