Nếu bạn có nhiều tệp iCalendar (.ics) trong ổ đĩa cục bộ của mình và muốn mở chúng hàng loạt trong Outlook, thì bạn có thể đọc bài viết này. Ở đây chúng tôi sẽ dạy bạn sử dụng mã VBA để nhận ra nó.
Thông thường, để mở tệp iCalendar (.ics) trong Outlook của bạn, bạn có thể dễ dàng sử dụng tính năng “Nhập”. Tuy nhiên, nếu bạn muốn mở nhiều tệp hàng loạt thì “Import” cũng bất lực vì nó không hỗ trợ bạn chọn nhiều tệp cùng lúc. Do đó, bạn phải sử dụng các phương pháp khác.
Nếu các tệp ics này được lưu trữ trong cùng một thư mục cục bộ, bạn có thể chọn chúng và nhấn phím “Enter” để mở chúng hàng loạt. Tuy nhiên, nếu chúng nằm trong các thư mục khác nhau trong một ổ đĩa, thì cách trên cũng vô dụng. Trong trường hợp này, bạn có thể sử dụng phương pháp sau, phương pháp này có thể xử lý đệ quy tất cả các thư mục trong một thư mục chính. Bây giờ, hãy đọc tiếp để biết thêm chi tiết.
Mở hàng loạt nhiều tệp iCalendar (.ics)
- Trước tiên, hãy mở chương trình Outlook của bạn.
- Sau đó, nhấn vào “Alt + F11” để truy cập trình chỉnh sửa VBA.
- Sau đó, trong cửa sổ mới, hãy nhập mã VBA sau vào một mô-đun.
Sub BatchOpenMultipleICalendarFiles()
Dim objShell, objWindowsFolder As Object
Dim strWindowsFolder As String
'Select a Windows Folder
Set objShell = CreateObject("Shell.Application")
Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder:", 0, "")
If Not objWindowsFolder Is Nothing Then
strWindowsFolder = objWindowsFolder.self.Path & "\"
Call LoopFolders(strWindowsFolder)
MsgBox "Completed!", vbInformation + vbOKOnly, "Open iCalendar Files"
End If
End Sub
Sub LoopFolders(strFolderPath As String)
Dim objFileSystem As Object
Dim objFolder As Object
Dim objFile As Object
Dim objICalendarFile As Object
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystem.GetFolder(strFolderPath)
'Open each iCalendar file
For Each objFile In objFolder.Files
If LCase(objFileSystem.GetExtensionName(objFile)) = "ics" Then
Set objICalendarFile = objFile
On Error Resume Next
Application.GetNamespace("MAPI").OpenSharedFolder objICalendarFile.Path
End If
Next
If objFolder.SubFolders.Count > 0 Then
For Each objSubfolder In objFolder.SubFolders
If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
Call LoopFolders(objSubfolder.Path)
End If
Next
End If
End Sub
- Tiếp theo, di chuyển con trỏ của bạn trong chương trình con “BatchOpenMultipleICalWikiFiles”.
- Cuối cùng, nhấn “F5” để kích hoạt macro này.
- Sau đó, trong hộp thoại bật lên, hãy chọn một thư mục Windows hoặc ổ đĩa nơi lưu trữ các tệp iCalendar.
- Khi bạn nhận được thông báo “Đã hoàn thành”, hãy truy cập ngăn “Lịch” trong Outlook.
- Bạn có thể thấy rằng tất cả các tệp iCalendar trong thư mục Windows đó đã ở đó, giống như ảnh chụp màn hình sau:
Chuẩn bị một công cụ sửa lỗi PST đáng gờm gần đó
Có lẽ bạn đã biết rằng Outlook dễ bị lỗi và hỏng. Do đó, bạn nên sao lưu các tệp dữ liệu Outlook của mình theo định kỳ. Bằng cách này, ngay cả khi tệp Outlook của bạn bị xâm phạm, bạn vẫn có thể khôi phục dữ liệu Outlook có giá trị từ các bản sao lưu một cách đơn giản. Tuy nhiên, nếu không có bản sao lưu như vậy, bạn sẽ cần sử dụng một công cụ sửa chữa đáng chú ý, chẳng hạn như DataNumen Outlook Repair. Nó có thể giúp bạn sửa chữa Outlook các vấn đề như một nút chai.
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 mdf 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