2 viisi kõigi esialgsete kohtumiste grupi muutmiseks Outlookis olekuks "Hõivatud".

Outlooki lahendused September 29, 2025

Kui soovite kiiresti muuta kõik kohtumised, mis on kuvatud kui "Esialgne", olekusse "Hõivatud", vaadake seda artiklit. Siin jagame teile 2 meetodit, mille abil saab seda partiidena realiseerida.

Mõned kasutajad on kokku puutunud sellise juhtumiga, et pärast kohtumiste importimist Outlooki kuvatakse kõik need olekuga „Esialgne”. Kuid nad tahavad näidata neid kui "hõivatud". Sellises olukorras saate selle saavutamiseks kasutada ühte kahest järgmisest meetodist.

Muutke kõik esialgsed kohtumised olekusse "Hõivatud".

1. meetod: pukseerige esialgsed kohtumised hõivatud rühma

  1. Kõigepealt käivitage Outlooki rakendus.
  2. Seejärel avage jaotis "Kalender", vajutades klahvikombinatsiooni "Ctrl + 2".
  3. Järgmisena avage kaust Kalender.
  4. Seejärel minge vahekaardile "Vaade" ja valige "Muuda vaadet" > "Loend".
  5. Hiljem klõpsake nuppu "Kuva sätted".
  6. Klõpsake dialoogiboksis "Täpsemad vaate sätted" nuppu "Rühmita".
  7. Seejärel valige kastis „Rühmitamise alus” väljal „Üksuste rühmitamise alus” valik „Kuva kellaaeg”.Rühmitage üksused "Näita aega kui" alusel
  8. Pärast seda klõpsake kõigi dialoogibokside sulgemiseks nuppu "OK".
  9. Seejärel leiate kohtumiste loendist, et kõik kohtumised on nende staatuste alusel jagatud erinevatesse rühmadesse.
  10. Siinkohal saate klõpsata rühma päisel "Näita aega kui: Esialgne".
  11. Lõpuks lohistage see grupp rühma "Näita aega kui hõivatud", nagu järgmine ekraanipilt:Lohistage esialgsed kohtumised gruppi "Hõivatud".
  12. Korraga on kõik esialgsed kohtumised muudetud olekuks "Hõivatud".

2. meetod: pakettmuutus Outlook VBA abil

  1. Sest nagutart, vajutage Outlookis klahve Alt + F11.
  2. Seejärel avage järgmises VBA redaktori aknas kasutamata moodul.
  3. Järgmisena kopeerige sellesse moodulisse järgmine VBA kood.
'Change all tentative appointments in all calendar folders to Busy status
Sub BatchChangeAllTenativeAppointments2Busy()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.store
 
    On Error Resume Next
    Set objStores = Outlook.Application.Session.Stores
 
    For Each objStore In objStores
        Call ProcessFolders(objStore.GetRootFolder.Folders)
    Next
End Sub

Sub ProcessFolders(ByVal objFolders As Folders)
    Dim objFolder As Outlook.Folder
    Dim objAppointment As Outlook.AppointmentItem
 
    For Each objFolder In objFolders
        If objFolder.DefaultItemType = olAppointmentItem Then
 
           For Each objAppointment In objFolder.Items
               With objAppointment
                    If .BusyStatus = olTentative Then
                       .BusyStatus = olBusy
                       .Save
                    End If
               End With
           Next
 
           Call ProcessFolders(objFolder.Folders)
        End If
    Next
End Sub

VBA kood – muutke kõik esialgsed kohtumised olekusse "Hõivatud".

  1. Lõpuks saate selle makro käivitada, vajutades klahvi F5 või vajutades tööriistaribal ikooni "Käivita".
  2. Pärast makro lõppu muudetakse kõigi kalendrikaustade esialgsed kohtumised olekuks „Hõivatud”.

Puhastage vanad Outlooki üksused õigel ajal

On teada, et mida suurem on Outlooki andmefail, seda kergemini võib fail rikkuda. Seetõttu on soovitatav Outlookis vanad ja kasutud esemed regulaarselt puhastada. Vastasel juhul muutub teie PST-fail aja jooksul liiga suureks ja kipub kahjustama. Sel ajal proovite oma PST-andmeid taastada, mida ei saa teha lihtsa postkasti parandamise tööriist. Peate kasutama asjatundlikku kolmanda osapoole tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql-i taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.