Kuinka avata useita iCalendar (.ics) -tiedostoja erissä Outlookissa

Jos sinulla on monia iCalendar (.ics) -tiedostoja paikallisessa asemassasi ja haluat eräajoin avata ne Outlookissa, voit lukea tämän artikkelin. Tässä opetamme sinua käyttämään VBA-koodia sen toteuttamiseksi.

Tavallisesti voit helposti avata iCalendar (.ics) -tiedoston Outlookissa tuontiominaisuuden avulla. Jos kuitenkin haluat eräajoja avata, tuonti on avutonta, koska se ei tue sinua valitsemaan useampaa kuin yhtä tiedostoa kerralla. Siksi sinun on käytettävä muita lähestymistapoja.

Jos nämä ics-tiedostot on tallennettu samaan paikalliseen kansioon, voit valita ne ja avata ne kerralla painamalla Enter-näppäintä. Mutta jos ne sijaitsevat eri kansioissa aseman alla, yllä oleva tapa on myös hyödytön. Tässä tapauksessa voit käyttää seuraavaa menetelmää, joka voi käsitellä kaikkia pääkansiossa olevia kansioita rekursiivisesti. Lue nyt saadaksesi sen yksityiskohdat tarkemmin.

Erä Avaa useita iCalendar (.ics) -tiedostoja

1. Aloita käynnistämällä Outlook-ohjelmasi.
2. Napauta sitten “Alt + F11” päästäksesi VBA-editoriin.
3. Tämän jälkeen, uudessa ikkunassa, syötä seuraava VBA-koodi moduuliin.

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. Siirrä sitten kohdistin "BatchOpenMultipleICalendarFiles" -alirutiinissa.
5. Paina lopuksi “F5” käynnistääksesi tämän makron.
6. Valitse sitten ponnahdusikkunasta Windows-kansio tai -asema, johon iCalendar-tiedostot on tallennettu.
7. Kun saat Valmiit-viestin, siirry Kalenteri-ruutuun Outlookissa.
8. Voit nähdä, että kaikki Windows-kansion iCalendar-tiedostot ovat olleet siellä, kuten seuraava kuvakaappaus:

Valmista lähellä oleva valtava PST-korjaustyökalu

Ehkä olet tiennyt, että Outlook on altis virheille ja korruptiolle. Siksi on suositeltavaa varmuuskopioida Outlook-datatiedostot säännöllisin väliajoin. Tällä tavalla, vaikka Outlook-tiedosto vaarantuisi, voit yksinkertaisesti tuoda takaisin arvokkaita Outlook-tietoja varmuuskopioista. Silti, jos tällaista varmuuskopiota ei ole, sinun on käytettävä merkittävää korjaustyökalua, kuten DataNumen Outlook Repair. Se voi auttaa sinua korjaa Outlook asioita kuten korkki.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauta mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com