Топтаманың барлық жолдары Outlook бағдарламасында «бос емес» күйге ауысады

Егер сіз «Болжамдық» ретінде көрсетілген барлық кездесулерді «Бос емес» күйіне тез ауыстырғыңыз келсе, онда сіз осы мақалаға сілтеме жасай аласыз. Мұнда біз сіздерге оны сериялы түрде жүзеге асыра алатын 2 әдіспен бөлісеміз.

Кейбір пайдаланушылар кездесулерді өздерінің Outlook бағдарламасына импорттағаннан кейін олардың барлығы 'болжалды' күйі ретінде көрсетілген жағдайға тап болды. Бірақ олар оларды «бос емес» ретінде көрсеткілері келеді. Бұл жағдайда сіз оған жету үшін келесі 2 әдістің бірін қолдана аласыз.

1-әдіс: «Бос емес» тобына алдын-ала кездесулерді сүйреп апарыңыз

1. Алдымен Outlook қосымшасын іске қосыңыз.
2. Содан кейін, «Ctrl + 2» батырмаларын басу арқылы «Күнтізбе» аймағына кіріңіз.
3. Содан кейін Күнтізбе қалтасын ашыңыз.
4. Осыдан кейін «Көру» қойындысына ауысып, «Көріністі өзгерту»> «Тізім» тармағын таңдаңыз.
5. Кейінірек «Параметрлерді қарау» батырмасын басыңыз.
6. Қалқымалы терезеде «Көріністің кеңейтілген параметрлері» терезесінде «Топ бойынша» батырмасын басыңыз.
7. Содан кейін, «Топ бойынша» өрісінде «элементтерді топтау» өрісінен «Уақытты қалай көрсету керек» таңдаңыз.
8. Осыдан кейін барлық диалогтық терезелерді жабу үшін «ОК» қатарын басыңыз.
9. Содан кейін, кездесулер тізімінде барлық кездесулердің мәртебелеріне қарай әр түрлі топтарға бөлінгенін білуге ​​болады.
10. Осы сәтте сіз «Уақытты қалай көрсету керек: болжамды» топтың тақырыбын баса аласыз.
11. Соңында, осы топты келесі скриншот сияқты «Уақытты көрсету: бос емес» тобына апарып тастаңыз:
12. Бірден, барлық болжамды кездесулер «бос емес» күйіне ауыстырылды.

2-әдіс: Outlook VBA көмегімен пакеттік өзгерту

1. Үшінtart, Outlook бағдарламасында «Alt + F11» пернелерін басыңыз.
2. Содан кейін, VBA редакторының келесі терезесінде пайдаланылмаған модульді ашыңыз.
3. Осы модульге келесі VBA кодын көшіріңіз.

'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

4. Ақыр соңында сіз бұл макросты F5 пернесін басу арқылы немесе құралдар тақтасындағы «Іске қосу» белгісін басу арқылы іске қосуға болады.
5. Макро аяқталғаннан кейін барлық күнтізбелік қалталардағы барлық алдын-ала кездесулер «бос емес» күйіне ауыстырылады.

Ескі көріністерді уақытында тазалаңыз

Outlook деректер файлы неғұрлым үлкен болса, соғұрлым файл бүлінуі мүмкін. Сондықтан Outlook бағдарламасында ескі және пайдасыз заттарды үнемі тазалап тұрған жөн. Әйтпесе, уақыт өте келе сіздің PST файлыңыз үлкен көлемге ие болады және бұзылуға бейім. Сол кезде сіз PST деректерін қалпына келтіруге бар күшіңізді саласыз, оны қарапайым орындау мүмкін емес кіріс жәшігін жөндеу құралы. Сияқты үшінші тараптың білікті құралын пайдалану керек DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com