打印導出的一個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中打印每日日曆