如何在 Outlook 邮件中插入日期提取？

作者Siluvia修改日期2024-09-18

假如您需要将工作安排发送给同事，并将不同的任务分配给不同人员和日期，但又担心手动输入日期容易出错，因此希望通过日期提取来替代手动输入。本教程将为您介绍一种方法，帮助您在 Outlook 邮件中轻松插入提取的日期。

doc-插入日期选择器-1

用 VBA 代码在 Outlook 邮件中插入日期提取

您可以运行以下 VBA 代码，在 Outlook 邮件中插入提取的日期。请按照以下步骤操作。

启动 Outlook 后，按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

在左侧窗格中，双击 Project 1>Microsoft Outlook 对象>ThisOutlookSession， 然后将以下 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, yyyy" 更改为您需要的日期格式。

在 Microsoft Visual Basic for Applications 窗口中，点击工具 > 引用。
在 引用 – Project 1 对话框中，勾选 Microsoft Word 16.0 对象库 复选框，然后点击确定即可保存更改。
按下 Alt+Q 组合键，即可关闭 Microsoft Visual Basic for Applications 窗口。
在邮件视图中，点击开始选项卡下的新建邮件按钮，即可新建邮件。
在邮件窗口中，点击自定义快速访问工具栏按钮，然后从下拉菜单中选择更多命令。见下图：
在 Outlook 选项窗口中，您只需按以下方式设置即可。
1. 在宏中，选择从命令选择下拉列表。
2. 在左侧命令框中选择上方创建的脚本；
3. 点击添加按钮。
4. 在右侧框中保持脚本被选中后，点击修改按钮。在修改按钮对话框中，为该脚本分配新按钮，然后点击确定。
5. 在 Outlook 选项窗口中点击确定以保存更改。
VBA 脚本现已添加到快速访问工具栏，并以您指定的图标展示。
从现在起，编辑邮件时，您只需点击快速访问工具栏上的日期提取图标，即可将日期提取插入邮件正文，并从中选择所需日期。详见下方演示。

注意事项：

您可以在邮件正文中插入多个日期提取项。
您可以更改所选日期：点击日期字段即可弹出日期控件，轻松选择所需的新日期。
此日期同样可以插入到日程或任务正文中。如有需要，您可以新建约会或任务，并重复上述第 7-8 步进行操作。
如果您在重启 Outlook 后发现脚本无法运行，可能是因为宏被禁用。请按照以下步骤重新启用宏：
1. 单击文件 > 选项，即可进入 Outlook 选项窗口。
2. 单击信任中心 > 信任中心设置。
3. 在信任中心窗口中，点击宏设置选项卡，选择启用所有宏选项，然后点击确定> 确定即可保存新的设置。
4. 请您再次重启 Outlook。

Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）

通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。

该功能支持：

智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
全球畅邮：轻松将邮件翻译为任意语言。

该功能支持：

智能邮件回复
内容优化
关键词草稿
智能内容扩展
邮件摘要
多语言翻译

立即行动——现在就下载 AI 邮件助手，畅享高效体验，不容错过！

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

Kutools for Outlook 功能列表立即下载前往购买

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐：Kutools for Office（5 合 1）

一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！

✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

关于套件 ⬇ 下载套件 💳 购买套件