Таны Outlook дээр олон iCalendar (.ics) файлуудыг хэрхэн багцлах вэ

Хэрэв танд дотоод дискэндээ олон iCalendar (.ics) файл байгаа бөгөөд тэдгээрийг Outlook дээр багцлан нээхийг хүсвэл энэ нийтлэлийг уншиж болно. Үүнийг хэрэгжүүлэхийн тулд бид танд VBA кодыг ашиглахыг заах болно.

Ер нь, iCalendar (.ics) файлыг Outlook дээр нээхийн тулд та "Импортлох" функцийг хялбархан ашиглаж болно. Гэсэн хэдий ч, хэрэв та олон багцыг задлахыг хүсвэл "Импорт" нь нэгээс олон файлыг нэг дор сонгоход тань тус болохгүй тул ямар ч тусламжгүй болно. Тиймээс та бусад аргыг ашиглах хэрэгтэй.

Хэрэв эдгээр ics файлууд ижил локал хавтсанд хадгалагдсан бол тэдгээрийг сонгоод “Enter” товчийг дарж бөөнөөр нь нээж болно. Гэхдээ хэрэв тэдгээр нь дискний доор өөр хавтсанд байрладаг бол дээрх арга зам нь ашиггүй болно. Энэ тохиолдолд та үндсэн фолдер доторх бүх фолдеруудыг рекурсив байдлаар боловсруулах боломжтой дараах аргыг ашиглаж болно. Одоо дэлгэрэнгүйг нь үргэлжлүүлэн уншина уу.

Олон тооны iCalendar (.ics) файлуудыг багцаар нээх

1. Учир ньtart, Outlook програмаа ажиллуулна уу.
2. VBA засварлагч руу нэвтрэхийн тулд "Alt + F11" дээр дарна уу.
3. Үүний дараа шинэ цонхонд дараахь VBA кодыг модульд оруулна уу.

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

4. Дараа нь курсороо "BatchOpenMultipleICalendarFiles" дэд програм руу шилжүүлээрэй.
5. Эцэст нь энэ макрог идэвхжүүлэхийн тулд “F5” товчийг дарна уу.
6. Дараа нь, гарч ирэх цонхны цонхноос iCalendar файл хадгалагдах Windows хавтас эсвэл дискийг сонгоно уу.
7. "Дууссан" мессеж хүлээн авахдаа Outlook дээрх "Хуанли" панел руу хандана уу.
8. Дараахь дэлгэцийн агшин шиг Windows хавтас дээрх бүх iCalendar файлууд тэнд байгааг харж болно.

Ойролцоох гайхалтай PST засах хэрэгслийг бэлтгэ

Outlook нь алдаа, завхралд өртөмтгий байдгийг та мэдсэн байх. Ингэснээр Outlook-ийн өгөгдлийн файлуудыг тодорхой хугацаанд нөөцөлж авахыг зөвлөж байна. Ийм байдлаар, хэдийгээр таны Outlook файл алдагдсан ч гэсэн нөөцлөлтөөс Outlook-ийн үнэ цэнэтэй өгөгдлийг буцааж авчрах боломжтой. Гэсэн хэдий ч хэрэв ийм нөөц байхгүй бол та гайхалтай засварын хэрэгсэл ашиглах хэрэгтэй болно DataNumen Outlook Repair. Энэ нь танд тусалж чадна Outlook засах үйсэн гэх мэт асуудлууд.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf-ийг сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com