跳到主要内容

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

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

假设您需要向您的同事发送工作计划,在不同的日期将不同的任务分配给不同的人。 但是,您担心手动输入日期会出错,因此您需要一个日期选择器。 本教程提供了一种方法来帮助您在 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选项 窗口,您需要进行如下配置。
    1. ,在 从中选择命令 下拉列表;
    2. 在左侧命令框中选择您上面创建的脚本;
    3. 点击 添加 按钮。
    4. 保持在右侧框中选择脚本,然后单击 修改 按钮。 在里面 修改按钮 对话框,为脚本分配一个新按钮,然后单击 确定。
    5. 点击 OK ,在 Outlook选项 窗口以保存更改。
  9. VBA 脚本现已添加到 快速访问工具栏 并显示为您指定的图标。
  10. 从现在开始,在撰写电子邮件时,您可以单击电子邮件上的日期选择器图标 快速访问工具栏 将日期选择器插入电子邮件正文,然后从中选择您需要的日期。 请参阅以下演示。
笔记:
  • 您可以在电子邮件正文中插入多个日期选择器。
  • 您可以更改所选日期:单击日期字段以显示日期控件,然后根据需要选择新日期。
  • 该日期选择器也可以插入到约会或任务的正文中。如果需要,请创建新的约会或任务并重复上面的步骤 7-8 以实现它。
  • 如果重新启动 Outlook 并发现该脚本没有运行。那是因为宏被禁用了。您需要按照以下步骤重新启用宏:
    1. 点击 文件 > 附加选项 进入 Outlook选项 窗口。
    2. 点击 信任中心 > 信任中心设置.
    3. 信任中心 窗口中,单击 宏设置 标签,选择 启用所有宏 选项,然后单击 OK > OK 以保存新设置。
    4. 再次重新启动 Outlook。

最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

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

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

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

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

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

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

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

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is my error: "Compile error: User defined type not defined."
When I go to Tools, Reference is grayed out.
This comment was minimized by the moderator on the site
WHEN I CLOSE THE OUTLOOK AND RESTAR THIS IS NOT WORKING, WHY? CAN YOU HELP
This comment was minimized by the moderator on the site
Hi,

I'm very sorry, this issue occurred because macros were disabled after restarting Outlook. Please follow these steps to re-enable macros:
Click on File > Options to enter the Outlook Options window, click on Trust Center > Trust Center Settings, in the Trust Center window, click on the Macro Settings tab, select the Enable all macros option, and click OK to save the new settings. Please restart Outlook once more, and the issue should be resolved.
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations