跳到主要内容

如何打印一个Outlook定期约会的列表?

作者:凯莉 最后修改时间:2016-11-24

如您所知,定期约会包含许多在Outlook中定期重复的事件。 但是,当您打印定期约会时,所有事件的列表都会消失。 那么,如何在定期约会中打印所有事件的列表? 以下解决方案可能使您的工作变得轻松。

Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览,让工作变得轻而易举
解锁 Outlook 的 Kutools 免费 版本 立即享受超过 70 项功能,永久无限制访问
使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。享受 70 多种强大功能并提升您的电子邮件体验!

箭头蓝色右气泡打印导出的一个Outlook定期约会的列表

实际上,没有直接方法可以打印Outlook中定期约会中所有事件的列表。 但是,您可以将日历数据导出到Excel中,过滤掉所有重复约会,然后进行打印。 请执行以下操作:

1.在Outlook中,请单击 文件 > 对外开放 (或 可选)> 进出口 (或 导入模板).

2.在导入和导出向导中,请单击 导出到文件 选项,然后单击 下一页 按钮。

3.在第一个“导出到文件”对话框中,请单击 逗号分隔值 选项,然后单击 下一页 按钮。

4.在第二个“导出到文件”对话框中,选择 日历 包含您将要打印的定期约会,然后单击 下一页 按钮。

5.在第三个“导出到文件”对话框中,单击 浏览 按钮。

6.现在出现“浏览”对话框。 请 (1) 指定目标文件夹,将导出的CSV文件保存到其中, (2) 在CSV文件中命名 文件名 盒子,和 (3) 点击 OK 按钮。

7。 点击 下一页 按钮和 完成 在第三个和最后一个“导出文件”对话框中单击“确定”。

8.请在“设置日期范围”对话框中指定要导出日历的日期范围,然后单击 OK 按钮。

9.到目前为止,Outlook日历已导出为CSV文件。 请打开包含CSV文件的文件夹,右键单击CSV文件并选择 打开方式 > Excel 从上下文菜单中。 看截图:

10.导出的CSV文件正在Excel中打开。 请选择主题的列标题,然后单击 时间 > 筛选器。 看截图:

10.单击“主题”列标题中的“筛选器”图标,仅从下拉列表中检查要打印的定期约会的主题,然后单击 OK 按钮。

11.仅将指定的定期约会的出现过滤掉。 请点击 文件 > 打印 打印它们。


箭头蓝色右气泡使用VBA打印一个Outlook定期约会的列表

此方法将引入VBA,以轻松轻松地在Outlook中快速打印重复约会的列表。 请执行以下操作:

1.在日历视图中,选择您要打印的定期约会的一个实例,然后按 其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。

2。 点击 插页 > 模块,然后将以下VBA代码粘贴到新的打开的模块脚本中。

VBA:在Outlook中的定期约会中打印所有出现的列表

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

备注:请更改您将在代码中打印定期约会的日期范围: sFilter =“ [开始]> ='11/1/2016'并且[结束] <'6/30/2017' 并且[IsRecurring] = True和[Subject] =“&strSubject

3。 按 F5 键或单击 运行 按钮以运行此VBA。

4.现在,选定的定期约会中所有事件的列表已复制并粘贴到新的电子邮件中,如下图所示。 请点击 文件 > 打印 打印列表。


箭头蓝色右气泡相关文章


最佳办公生产力工具

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

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

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

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

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

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

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

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

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

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

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

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations