Bài viết này sẽ chia sẻ cho bạn 2 cách để xuất một phạm vi ngày cụ thể của lịch Outlook dưới dạng tệp iCalendar (.ics). Bạn có thể chọn một trong hai theo ý thích của bạn.
Trong Outlook, bạn có thể xuất toàn bộ lịch dưới dạng tệp iCalendar (.ics) chỉ thông qua tính năng “Save as”. Tuy nhiên, nếu bạn muốn xuất nhanh một phạm vi ngày cụ thể của lịch dưới dạng iCalendar thì cả chức năng “Lưu dưới dạng” hoặc “Xuất” sẵn có đều không thể trợ giúp. Như vậy ở đây chúng tôi sẽ giới thiệu tới bạn 2 phương tiện.
Cách 1: Xuất bằng tính năng “Lịch E-mail”
- Trước tiên, hãy khởi chạy ứng dụng Outlook của bạn.
- Sau đó chuyển sang khu vực “Lịch”.
- Tiếp theo bạn nên chọn lịch cụ thể ở khung điều hướng bên trái.
- Sau đó, bạn nên tìm và nhấn nút “Lịch E-mail” trên dải băng.
- Ngay lập tức, một email mới sẽ hiển thị với hộp thoại “Gửi Lịch qua E-mail”.
- Bây giờ, bạn có thể chỉ định phạm vi ngày trong hộp thoại này, như hình ảnh bên dưới:
- Sau khi bạn nhấp vào nút “OK”, lịch trong phạm vi ngày được chỉ định sẽ được chuyển đổi thành tệp iCalendar, được đính kèm trong email hiện tại.
- Tiếp theo, bạn có thể thu hẹp các trình kiểm tra Outlook hiện tại cho đến khi nhìn thấy màn hình nền Windows của mình.
- Cuối cùng, bạn có thể kéo và thả tệp ics đính kèm vào màn hình nền, hiển thị như ảnh chụp màn hình bên dưới:
Phương pháp 2: Xuất qua Outlook VBA
- Trước tiên, trong cửa sổ chính của Outlook, nhấn tổ hợp phím “Alt + F11”.
- Tiếp theo, bạn sẽ nhập thành công trình soạn thảo Outlook VBA, trong đó bạn nên mở một mô-đun trống.
- Sau đó, sao chép mã VBA sau vào mô-đun này.
Sub ExportCalender_inSpecificDateRange_AsiCalendarFile()
Dim objCalendarFolder As Outlook.Folder
Dim objCalendarExporter As Outlook.CalendarSharing
Dim dStartDate As Date
Dim dEndDate As Date
Dim objShell As Object
Dim objSavingFolder As Object
Dim strSavingFolder As String
Dim striCalendarFile As String
'Get the current Calendar folder
Set objCalendarFolder = Outlook.Application.ActiveExplorer.CurrentFolder
If Not objCalendarFolder Is Nothing And objCalendarFolder.DefaultItemType = olAppointmentItem Then
Set objCalendarExporter = objCalendarFolder.GetCalendarExporter
'Enter the specific start date and end date
dStartDate = InputBox("Enter the start date, such as 7/1/2017:", "Specify Start Date")
dEndDate = InputBox("Enter the end date, such as 8/31/2017:", "Specify End Date")
If dStartDate <> #1/1/4501# And dEndDate <> #1/1/4501# Then
'Select a Windows folder for saving the exported iCalendar file
Set objShell = CreateObject("Shell.Application")
Set objSavingFolder = objShell.BrowseForFolder(0, "Select a folder:", 0, "")
strSavingFolder = objSavingFolder.self.Path
If strSavingFolder <> "" Then
striCalendarFile = strSavingFolder & "\" & "Calendar from " & Format(dStartDate, "YYYY-MM-DD") & " to " & Format(dEndDate, "YYYY-MM-DD") & ".ics"
'Export the calendar in specific date range
With objCalendarExporter
.IncludeWholeCalendar = False
.StartDate = dStartDate
.EndDate = dEndDate
.CalendarDetail = olFullDetails
.IncludeAttachments = True
.IncludePrivateDetails = False
.RestrictToWorkingHours = False
.SaveAsICal striCalendarFile
End With
MsgBox "Calendar Exported Successfully!", vbInformation
End If
Else
MsgBox "Open a calendar folder, please!", vbExclamation + vbOKOnly
End If
End If
End Sub
- Sau đó, bạn có thể thêm macro mới vào Thanh công cụ truy cập nhanh.
- Cuối cùng, bạn có thể thử dự án VBA này.
- Đầu tiên, truy cập vào lịch mà bạn muốn xuất.
- Sau đó bấm vào nút macro mới trong Thanh công cụ truy cập nhanh.
- Tiếp theo, bạn sẽ cần phải chỉ định phạm vi ngày – ngày bắt đầu và ngày kết thúc.
- Sau đó, bạn cần chọn thư mục Windows để lưu tệp ics.
- Cuối cùng, lịch trong phạm vi ngày cụ thể sẽ được xuất dưới dạng tệp ics.
Thực hiện các biện pháp phòng ngừa thích hợp để tránh tham nhũng PST
Bạn nên chấp nhận một thực tế không thể nghi ngờ rằng Outlook rất dễ bị tấn công. Vì vậy, nên thực hiện sao lưu PST định kỳ. Ngoài ra, bạn nên để mắt đến mọi mối nguy hiểm tiềm ẩn, chẳng hạn như vi-rút trá hình trong email. Ngoài ra, cần chuẩn bị một tài liệu chuyên môn Phục hồi Outlook công cụ, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm