如何列印Outlook中某個定期會議的所有項目清單？

通過匯出列印Outlook中某個定期會議的項目清單

使用VBA列印Outlook中某個定期會議的項目清單

實際上，在Outlook中沒有直接的方法可以列印定期會議中所有事件的清單。但是，您可以將日曆數據導出到Excel，篩選出定期會議的所有事件，然後進行列印。請按照以下步驟操作：

1. 在Outlook中，請點擊 「文件」>「打開與匯出」（或「打開」）> 「匯入/匯出」 （或「匯入」）。

2. 在匯入和匯出嚮導中，請點擊「匯出到文件」選項，然後點擊「下一步 」按鈕。

3. 在第一個「匯出到文件」對話框中，請點擊「 逗號分隔值」選項，然後點擊「下一步」按鈕。

4. 在第二個「匯出到文件」對話框中，請選擇包含要列印的定期會議的日曆 ，然後點擊「下一步」按鈕。

5. 在第三個「匯出到文件」對話框中，請點擊「瀏覽」按鈕。

6. 此時會彈出「瀏覽」對話框。請（1）指定保存匯出CSV文件的目標文件夾，（2）在「檔案名稱」框中命名CSV文件，並（3）點擊「確定」按鈕。

7. 點擊第三個和最後一個「匯出文件」對話框中的「下一步 」按鈕和「完成」按鈕。

8. 請在「設定日期範圍」對話框中指定要匯出日曆的日期範圍，然後點擊「確定」按鈕。

9. 到目前為止，Outlook日曆已經被匯出為CSV文件。請打開包含CSV文件的文件夾，右鍵點擊CSV文件，並從上下文菜單中選擇「 打開方式」>「 Excel」。參見截圖：

10. 匯出的CSV文件正在Excel中打開。請選擇「主題」列標題，然後點擊「數據 」>「篩選」。參見截圖：

10. 點擊「主題」列標題中的篩選圖標，僅勾選要列印的定期會議的主題，然後點擊「 確定」按鈕。

11. 僅篩選出指定定期會議的所有事件。請點擊「文件」> 「列印」來列印它們。

此方法將介紹一種VBA，以便輕鬆快速地列印Outlook中定期會議的項目清單。請按照以下步驟操作：

1. 在日曆視圖中，選擇要列印的定期會議的一個事件，然後按下Alt + F11鍵以打開Microsoft Visual Basic for Applications窗口。

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 = "[開始] >= '2016/11/1' And [結束] < '2017/6/30' And [isrecurring] = True And [主題] = " & strSubject

3. 按下F5鍵或點擊「運行」按鈕來執行此VBA。

4. 現在，所選定期會議的所有事件清單已被複製並粘貼到一封新郵件中，如下方截圖所示。請點擊「文件」 > 「列印」 來列印該清單。

在Outlook中列印空白日曆（無約會）

在Outlook中每頁列印兩周/兩個月的日曆

在Outlook中列印每日日曆