跳到主要内容

如何在 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 脚本现已添加到 快速访问工具栏 并显示为您指定的图标。

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

笔记:

1) 您可以在电子邮件正文中插入多个日期选择器。
2)您可以更改您选择的日期:单击日期字段以显示日期控件,然后根据需要选择一个新日期。
3) 这个日期选择器也可以插入到约会或任务的正文中。 如果需要,创建一个新的约会或任务并重复上面的步骤 7-8 来实现它。

最佳办公生产力工具

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

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

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

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

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

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  使用选项卡式视图提高 Outlook 工作效率  /  最小化 Outlook 而不是关闭 ...

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

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

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

了解更多       免费下载      购买
 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello. Very clear instructions, thank you.
When I attempt to use the macro, I get this error:
"Compile error: User defined type not defined."
Sub DatePicker() and xDoc As Document are highlighted.
Any ideas on how to fix it please?
This comment was minimized by the moderator on the site
Hi Dave,

To solve this problem, please follow the instruction of step 3 and 4 to enable the Microsoft Word 16.0 Object Library option in the Microsoft Visual Basic for Applications window.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/outlook-word-referece-vba.png?1711618070
This comment was minimized by the moderator on the site
This was exactly what I was looking for. Thank you!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations