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

添加一名作者最后修改时间：2024-05-09

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

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

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

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

在左侧窗格中，双击 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, 年年” 到您需要的日期格式。

留在 Microsoft Visual Basic应用程序 窗口中，单击工具 > 引用。
在 参考 - 项目1 对话框，检查 Microsoft Word 16.0对象库 复选框，然后单击 OK 保存更改。
按其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。
在 邮箱： 查看，点击 新邮件 按钮下主页选项卡以创建新电子邮件。
在 想说的话 窗口，点击 自定义快速访问工具栏 按键，然后选择 更多命令 从下拉菜单中。看截图：
在 Outlook选项 窗口，您需要进行如下配置。
1. 宏，在 从中选择命令 下拉列表;
2. 在左侧命令框中选择您上面创建的脚本；
3. 点击地址按钮。
4. 保持在右侧框中选择脚本，然后单击修改按钮。在里面 修改按钮 对话框，为脚本分配一个新按钮，然后单击 确定。
5. 点击 OK ，在 Outlook选项 窗口以保存更改。
VBA 脚本现已添加到 快速访问工具栏 并显示为您指定的图标。
从现在开始，在撰写电子邮件时，您可以单击电子邮件上的日期选择器图标 快速访问工具栏 将日期选择器插入电子邮件正文，然后从中选择您需要的日期。请参阅以下演示。

笔记：

您可以在电子邮件正文中插入多个日期选择器。
您可以更改所选日期：单击日期字段以显示日期控件，然后根据需要选择新日期。
该日期选择器也可以插入到约会或任务的正文中。如果需要，请创建新的约会或任务并重复上面的步骤 7-8 以实现它。
如果重新启动 Outlook 并发现该脚本没有运行。那是因为宏被禁用了。您需要按照以下步骤重新启用宏：
1. 点击文件 > 附加选项 进入 Outlook选项 窗口。
2. 点击 信任中心 > 信任中心设置.
3. 在 信任中心 窗口中，单击 宏设置 标签，选择 启用所有宏 选项，然后单击 OK > OK 以保存新设置。
4. 再次重新启动 Outlook。

最佳办公生产力工具

Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook

🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件！ ...

📧 电子邮件自动化: 外出（适用于 POP 和 IMAP） / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发（高级规则） / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...

📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...

👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...

超过 100特点 等待您的探索！单击此处了解更多。

了解更多免费下载购买

Comments (5)

No ratings yet. Be the first to rate!

CAIQIONG

about 1 week ago

#45172