Bütün ilkin görüşləri Outlook-da “Məşğul” Vəziyyətinə Dəyişdirməyin 2 Yolu

“Şəxsi” kimi göstərilən bütün görüşləri “Məşğul” statusuna tez dəyişmək istəyirsinizsə, bu məqaləyə müraciət edə bilərsiniz. Burada sizlərlə bunu qrup halında həyata keçirə biləcək 2 üsulu paylaşacağıq.

Bəzi istifadəçilər belə bir halla qarşılaşıblar ki, görüşləri Outlook-a idxal etdikdən sonra onların hamısı “Şəxsi” status kimi göstərilir. Amma onları “Məşğul” kimi göstərmək istəyirlər. Bu vəziyyətdə, buna nail olmaq üçün aşağıdakı 2 üsuldan birini istifadə edə bilərsiniz.

Metod 1: “Məşğul” Qrupa ilkin görüşləri sürükləyin və buraxın

1. Əvvəlcə Outlook proqramını işə salın.
2. Sonra "Ctrl + 2" düymələrini basaraq "Təqvim" sahəsinə daxil olun.
3. Sonra, Təqvim qovluğunu açın.
4. Daha sonra "Görünüş" sekmesine keçin və "Görünüşü dəyişdir" > "Siyahı" seçin.
5. Daha sonra "Parametrlərə Bax" düyməsini basın.
6. Açılan "Ətraflı Görünüş Parametrləri" informasiya qutusunda "Qruplaşdır" düyməsini basın.
7. Sonra, "Qruplaşdır" qutusunda, "qrup elementləri" sahəsində "Vaxtı fərqli göstər" seçin.
8. Bundan sonra, bütün dialoq qutularını bağlamaq üçün bir sıra "OK" düyməsini basın.
9. Sonra, təyinatlar siyahısında bütün təyinatların statuslarına görə müxtəlif qruplara bölündüyünü görə bilərsiniz.
10. Bu nöqtədə siz “Vaxtı kimi göstərin: Təxmini” qrup başlığına klikləyə bilərsiniz.
11. Nəhayət, bu qrupu aşağıdakı skrinşot kimi “Vaxtı kimi göstər: Məşğul” qrupuna dartıb buraxın:
12. Bir anda bütün ilkin təyinatlar “Məşğul” statusuna dəyişdirilib.

Metod 2: Outlook VBA ilə toplu dəyişdirmə

1. Kimi üçüntart, Outlook-da "Alt + F11" düymələrini basın.
2. Sonra, sonrakı VBA redaktoru pəncərəsində istifadə olunmamış modulu açın.
3. Sonra, aşağıdakı VBA kodunu bu modula köçürün.

'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. Nəhayət, F5 düyməsini basaraq və ya alətlər panelindəki "Çalış" işarəsini vuraraq bu makronu işə sala bilərsiniz.
5. Makro tamamlandıqdan sonra bütün təqvim qovluqlarındakı bütün ilkin görüşlər “Məşğul” statusuna dəyişdiriləcək.

Köhnə Outlook elementlərini vaxtında təmizləyin

Məlumdur ki, Outlook məlumat faylı nə qədər böyükdürsə, fayl bir o qədər asanlıqla zədələnə bilər. Buna görə də, Outlook-da köhnə və yararsız elementləri mütəmadi olaraq təmizləmək məsləhətdir. Əks halda, zaman keçdikcə PST faylınız böyük ölçüdə olacaq və zədələnməyə meyllidir. O zaman siz PST məlumatlarınızı bərpa etmək üçün əlinizdən gələni edəcəksiniz ki, bu da sadə üsullarla yerinə yetirilə bilməz. inbox təmir aləti. kimi təcrübəli üçüncü tərəf alətindən istifadə etməlisiniz DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com