သင့်စက်တွင်းဒရိုက်ဗ်တွင် iCalendar (.ics) ဖိုင်များစွာရှိပြီး ၎င်းတို့ကို Outlook တွင် အသုတ်လိုက်ဖွင့်လိုပါက၊ ဤဆောင်းပါးကို ဖတ်နိုင်ပါသည်။ ဤတွင်ကျွန်ုပ်တို့သည်သင့်အား VBA ကုဒ်ကိုအသုံးပြုရန်သင်ပေးပါမည်။
ပုံမှန်အားဖြင့်၊ သင်၏ Outlook တွင် iCalendar (.ics) ဖိုင်ကိုဖွင့်ရန်၊ သင်သည် “သွင်းကုန်” အင်္ဂါရပ်ကို အလွယ်တကူ အသုံးပြုနိုင်သည်။ သို့သော်၊ များစွာသောအသုတ်ကိုဖွင့်လိုပါက၊ ဖိုင်တစ်ခုထက်ပို၍တစ်ပြိုင်နက်ရွေးချယ်ရန်သင့်အားမပံ့ပိုးနိုင်သောကြောင့် "သွင်းကုန်" သည်အကူအညီမဲ့ဖြစ်လိမ့်မည်။ ထို့ကြောင့် အခြားနည်းလမ်းများကို အသုံးပြုရန် လိုအပ်ပါသည်။

ဤ ics ဖိုင်များကို တူညီသော စက်တွင်းဖိုင်တွဲတွင် သိမ်းဆည်းထားပါက ၎င်းတို့ကို ရွေးချယ်ပြီး အစုလိုက်ဖွင့်ရန် "Enter" ခလုတ်ကို နှိပ်နိုင်ပါသည်။ သို့သော် ၎င်းတို့သည် drive တစ်ခုအောက်တွင် မတူညီသော ဖိုင်တွဲများတွင် ရှိနေပါက၊ အထက်ပါနည်းလမ်းသည် အသုံးမဝင်ပေ။ ဤကိစ္စတွင်၊ သင်သည် ပင်မဖိုင်တွဲတစ်ခုအောက်ရှိ ဖိုင်တွဲအားလုံးကို ထပ်ခါတလဲလဲ လုပ်ဆောင်နိုင်သည့် အောက်ပါနည်းလမ်းကို အသုံးပြုနိုင်သည်။ ၎င်း၏အသေးစိတ်အချက်အလက်များကိုရယူရန် ယခု ဆက်လက်ဖတ်ရှုပါ။
အသုတ်များစွာကို iCalendar (.ics) ဖိုင်များကို ဖွင့်ပါ။
- အစပြုရန်အတွက်၊ သင်၏ Outlook ပရိုဂရမ်ကိုဖွင့်ပါ။
- ထို့နောက် VBA တည်းဖြတ်သူသို့ဝင်ရောက်ရန် "Alt + F11" ကိုနှိပ်ပါ။
- ထို့နောက်၊ ဝင်းဒိုးအသစ်တွင်၊ အောက်ပါ 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
- ထို့နောက်၊ သင်၏ cursor ကို "BatchOpenMultipleICalendarFiles" လုပ်ရိုးလုပ်စဉ်အခွဲတွင် ရွှေ့ပါ။
- အဆုံးစွန်အားဖြင့်၊ ဤမက်ခရိုကိုစတင်ရန် "F5" ကိုနှိပ်ပါ။
- ထို့နောက် ပေါ်လာသော ဒိုင်ယာလော့ဘောက်စ်တွင်၊ iCalendar ဖိုင်များကို သိမ်းဆည်းထားသည့် Windows ဖိုင်တွဲ သို့မဟုတ် ဒရိုက်ကို ရွေးချယ်ပါ။
- "ပြီးပါပြီ" မက်ဆေ့ဂျ်ကို လက်ခံရရှိသောအခါ၊ Outlook ရှိ "ပြက္ခဒိန်" အကွက်သို့ ဝင်ရောက်ပါ။
- အဆိုပါ Windows ဖိုင်တွဲရှိ iCalendar ဖိုင်များအားလုံးသည် အောက်ပါ screenshot ကဲ့သို့ပင် ထိုနေရာတွင် ရှိနေကြောင်း သင်တွေ့မြင်နိုင်သည်-
အနီးနားတွင် ကြောက်မက်ဖွယ်ကောင်းသော PST Fix Tool ကို ပြင်ဆင်ပါ။
Outlook သည် အမှားအယွင်းများနှင့် အကျင့်ပျက်ခြစားမှုများ ကျရောက်တတ်ကြောင်း သင်သိပြီးဖြစ်ကောင်းဖြစ်နိုင်သည်။ ထို့ကြောင့်၊ သင်၏ Outlook ဒေတာဖိုင်များကို ပုံမှန်အချိန်ပိုင်းအတွင်း အရန်သိမ်းရန် အကြံပြုလိုပါသည်။ ဤနည်းအားဖြင့်၊ သင်၏ Outlook ဖိုင်သည် ပျက်စီးသွားသော်လည်း၊ သင်သည် အရန်သိမ်းဆည်းမှုမှ တန်ဖိုးရှိသော Outlook ဒေတာကို ရိုးရိုးရှင်းရှင်း ပြန်လည်ယူဆောင်လာနိုင်သည်။ သို့သျောလညျး၊ ထိုသို့သောအရန်ကူးယူခြင်းမရှိပါက၊ ကဲ့သို့သောထူးခြားသောပြုပြင်ရေးကိရိယာကိုသင်အသုံးပြုရန်လိုအပ်လိမ့်မည်။ DataNumen Outlook Repair. ၎င်းသည်သင့်အားကူညီနိုင်သည်။ Outlook ကိုပြင်ပါ။ ဖော့ကဲ့သို့ ပြဿနာများ။
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ mdf ကိုပြန်လည်ရယူပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com


