如何在 Outlook 的电子邮件中插入日期选择器？

假设您需要向您的同事发送工作计划，在不同的日期将不同的任务分配给不同的人。 但是，您担心手动输入日期会出错，因此您需要一个日期选择器。 本教程提供了一种方法来帮助您在 Outlook 的电子邮件中插入日期选择器。

使用 VBA 代码在 Outlook 的电子邮件中插入日期选择器

您可以运行以下 VBA 代码在 Outlook 电子邮件中插入日期选择器。 请按照以下说明进行操作。

1.启动Outlook，按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2. 在左侧窗格中，双击 Project1 > Microsoft Outlook对象 > 这个 Outlook 会话， 然后将下面的 VBA 代码复制到 ThisOutlookSession（代码） 窗口。

VBA 代码：在 Outlook 电子邮件中插入日期选择器

Sub DatePicker()
'Updated by Extendoffice 20220615
  Dim xDoc As Document
  On Error Resume Next
  Set xDoc = Application.ActiveInspector.WordEditor
  With xDoc.Application.Selection
    .Range.ContentControls.Add (wdContentControlDate)
    .ParentContentControl.DateDisplayFormat = "MMMM d, yyyy"
    .InsertAfter Format(Now(), "MMMM d, yyyy")
    .MoveRight wdCharacter, 1
  End With
End Sub

请注意： 在代码中，您可以更改“MMMM d, 年年” 到您需要的日期格式。

3.留在 Microsoft Visual Basic应用程序 窗口中，单击 鑫安工具 > 引用。

4。 在里面 参考 - 项目1 对话框，检查 Microsoft Word 16.0对象库 复选框，然后单击 OK 保存更改。

5。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

6。 在里面 邮件 查看，点击 新邮件 按钮下 主页 选项卡以创建新电子邮件。

7。 在里面 留言内容 窗口，点击 自定义快速访问工具栏 按键 ，然后选择 更多命令 从下拉菜单中。 看截图：

8。 在里面 Outlook选项 窗口，您需要进行如下配置。

8.1）选择 宏 在 从中选择命令 下拉列表;

8.2）在左侧命令框中选择您在上面创建的脚本；

8.3）点击 加入 按钮。

8.4) 保持选中右侧框中的脚本，然后单击 修改 按钮。 在里面 修改按钮 对话框，为脚本分配一个新按钮，然后单击 确定。

8.5）点击 OK 在 Outlook选项 窗口以保存更改。

VBA 脚本现已添加到 快速访问工具栏 并显示为您指定的图标。

从现在开始，在撰写电子邮件时，您可以单击电子邮件上的日期选择器图标 快速访问工具栏 将日期选择器插入电子邮件正文，然后从中选择您需要的日期。 请参阅以下演示。

笔记：

Kutools for Outlook-为Outlook带来100个高级功能，并使工作更加轻松！

• 自动CC / BCC 根据规则发送电子邮件； 自动转发 自定义多封电子邮件； 自动回复 没有交换服务器，还有更多自动功能...
• BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒，还有更多提醒功能...
• 在邮件对话中回复（全部）带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
• 附件工具：管理所有邮件中的所有附件， 自动分离, 全部压缩，全部重命名，全部保存...快速报告， 计算选定的邮件...
• 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明，更快和更好。

阅读更多 现在下载...