In danh sách một cuộc hẹn định kỳ trong Outlook với xuất

In danh sách một cuộc hẹn định kỳ trong Outlook với VBA

Trên thực tế, không có cách nào trực tiếp để in danh sách tất cả các lần xuất hiện trong một cuộc hẹn định kỳ trong Outlook. Tuy nhiên, bạn có thể xuất dữ liệu lịch sang Excel, lọc ra tất cả các lần xuất hiện của cuộc hẹn định kỳ rồi in. Vui lòng làm như sau:

1. Trong Outlook, vui lòng nhấp vào Tập tin > Mở & Xuất (Hoặc Mở)> Import / Export (Hoặc Nhập khẩu).

2. Trong Trình hướng dẫn Nhập và Xuất, vui lòng nhấp vào Xuất khẩu vào một tập tin và nhấp vào Sau .

3. Trong hộp thoại Xuất sang Tệp đầu tiên, vui lòng nhấp vào Các giá trị được phân cách bằng dấu phẩy và nhấp vào Sau .

4. Trong hộp thoại Xuất sang tệp thứ hai, vui lòng chọn lịch có chứa cuộc hẹn định kỳ mà bạn sẽ in và nhấp vào Sau .

5. Trong hộp thoại Xuất sang tệp thứ ba, vui lòng nhấp vào Xem .

6. Bây giờ hộp thoại Duyệt xuất hiện. Xin vui lòng (1) chỉ định thư mục đích mà bạn sẽ lưu tệp CSV đã xuất vào, (2) đặt tên tệp CSV trong File Name hộp, và (3) nhấp vào OK .

7. Nhấp vào Sau nút và Kết thúc trong cả hộp thoại Xuất tệp tin thứ ba và cuối cùng.

8. Vui lòng chỉ định phạm vi ngày bạn sẽ xuất lịch trong hộp thoại Đặt Phạm vi Ngày và nhấp vào OK .

9. Cho đến nay lịch Outlook đã được xuất dưới dạng tệp CSV. Vui lòng mở thư mục chứa tệp CSV, nhấp chuột phải vào tệp CSV và chọn Mở với > Excel từ menu ngữ cảnh. Xem ảnh chụp màn hình:

10. Tệp CSV đã xuất đang mở trong Excel. Vui lòng chọn tiêu đề cột của Chủ đề và nhấp vào Ngày > Lọc. Xem ảnh chụp màn hình:

10. Nhấp vào biểu tượng Bộ lọc trong tiêu đề cột của Chủ đề, chỉ kiểm tra chủ đề của cuộc hẹn định kỳ mà bạn sẽ in từ danh sách thả xuống và nhấp vào OK .

11. Chỉ những lần xuất hiện của cuộc hẹn định kỳ được chỉ định mới được lọc ra. Vui lòng bấm vào Tập tin > In để in chúng.

Phương pháp này sẽ giới thiệu một VBA để in nhanh danh sách cuộc hẹn định kỳ trong Outlook một cách dễ dàng. Vui lòng làm như sau:

1. Trong giao diện Lịch, hãy chọn một lần xuất hiện của cuộc hẹn định kỳ mà bạn sẽ in, và bấm Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào tập lệnh Mô-đun mở mới.

VBA: In danh sách tất cả các lần xuất hiện trong một cuộc hẹn định kỳ trong 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

Chú thích: Vui lòng thay đổi phạm vi ngày bạn sẽ in cuộc hẹn định kỳ trong mã: sFilter = "[Bắt đầu]> = '11/1/2016'Và [End] <'6/30/2017 ' And [IsRecurring] = True And [Subject] = "& strSubject

3. nhấn F5 phím hoặc nhấp vào chạy để chạy VBA này.

4. Bây giờ danh sách tất cả các lần xuất hiện trong cuộc hẹn định kỳ đã chọn được sao chép và dán vào một email mới như hình minh họa bên dưới. Vui lòng bấm vào Tập tin > In để in danh sách.

In lịch trống (không có cuộc hẹn) trong Outlook

In lịch hai tuần / tháng trên mỗi trang trong Outlook

In lịch hàng ngày trong Outlook