如何打印一個Outlook定期約會的列表?
如您所知,定期約會包含許多在Outlook中定期重複出現的事件。 但是,當您打印定期約會時,所有事件的列表都會消失。 那麼,如何在定期約會中打印所有事件的列表? 以下解決方案可能使您的工作變得輕鬆。
- 自動發送電子郵件 自動CC / BCC, 自動前進 按規則; 傳送 自動回复 (不在辦公室)無需交換伺服器...
- 取得類似提醒 BCC警告 當您在密件副本清單中回覆所有內容時,以及 缺少附件時提醒 對於忘記的附件...
- 提高電子郵件效率 回覆(全部)並附上附件, 自動添加問候語或日期和時間到簽名或主題中, 回覆多封電子郵件...
- 簡化電子郵件發送 撤回電子郵件, 附件工具 (壓縮全部、自動儲存全部...)、 刪除重複項和 快速報告...
打印導出的一個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 - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……
📧 電子郵件自動化: 外出(適用於 POP 和 IMAP) / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送(進階規則) / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索! 按此處了解更多。