打印导出的一个Outlook定期约会的列表

使用VBA打印一个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中快速打印重复约会的列表。 请执行以下操作：

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.现在，选定的定期约会中所有事件的列表已复制并粘贴到新的电子邮件中，如下图所示。 请点击 文件 > 打印 打印列表。

在Outlook中打印空白日历（无需约会）

在Outlook中每页打印两周/月的日历

在Outlook中打印每日日历