2 Bermaksud untuk Mengalih keluar Cuti Pendua dengan Pantas dalam Kalendar Outlook Anda

Jika anda menambah cuti yang sama pada kalendar yang sama dua kali atau lebih secara tidak sengaja, anda akan mendapati bahawa kalendar itu diisi dengan cuti pendua. Dalam senario ini, anda mesti ingin mengalih keluar pendua. Sekarang, artikel ini akan mengajar anda 2 cara.

Outlook mempunyai ciri terbina untuk menambah cuti dengan cepat ke dalam kalendar lalai. Ia tidak dinafikan cukup mudah untuk pengguna. Walau bagaimanapun, jika anda tersilap menambah cuti dua kali atau lebih, kalendar lalai anda akan diisi dengan cuti pendua. Sekarang, dalam perkara berikut, kami akan memperkenalkan anda 2 pendekatan untuk membuang pendua dengan cepat.

Kaedah 1: Alih Keluar Semua Cuti & Tambahnya Semula

1. Untuk bermula, lancarkan program Outlook anda.
2. Kemudian akses folder Kalendar sumber.
3. Seterusnya beralih ke tab "Lihat" dan pilih "Tukar Paparan" > "Senarai".
4. Selepas itu, anda harus mengklik butang "Kategori" dalam kumpulan "Susunan".
5. Seterusnya, anda akan melihat bahawa semua pelantikan telah dikumpulkan mengikut kategori.
6. Kini anda boleh mengetahui kumpulan "Cuti".
7. Akhir sekali, klik pada pengepala kumpulan "Cuti" dan kemudian tekan kekunci "Padam".
8. Sekali gus, semua cuti yang ada telah dialih keluar.
9. Selepas memadamkannya, anda boleh menambah semula cuti. Pertama, pergi ke "Fail" > Pilihan".
10. Dalam tetingkap "Outlook Options" pop timbul, anda boleh bertukar ke tab 'Kalendar".
11. Di bawah tab ini, anda akan dapat mencari butang "Tambah Cuti".
12. Kemudian, dalam kotak dialog baharu, pilih lokasi, seperti "Amerika Syarikat" dan tekan "OK".
13. Akhirnya, cuti telah diimport ke dalam Kalendar lalai sekali lagi.

Kaedah 2: Alih Keluar Duplikat Cuti dengan VBA

1. Pada peringkat awal, tekan butang kekunci "Alt + F11".
2. Seterusnya, anda akan mengakses tetingkap editor Outlook VBA, di mana anda boleh membuka modul yang tidak digunakan.
3. Selepas itu, salin kod VBA berikut ke dalam modul ini.

Sub RemoveDuplicateHolidays()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object

    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next

End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("Scripting.Dictionary")

    If objCurrentFolder.DefaultItemType = olAppointmentItem Then
       For i = objCurrentFolder.Items.count To 1 Step -1
           Set objItem = objCurrentFolder.Items.Item(i)
 
           'Get all holidays based on the "Holiday" category
           If objItem.Categories = "Holiday" Then
              strKey = objItem.Subject & "," & objItem.Location & "," & objItem.Body & "," & objItem.Categories
              strKey = Replace(strKey, ", ", Chr(32))

              If objDictionary.Exists(strKey) = True Then
                 objItem.Delete
              Else
                 objDictionary.Add strKey, True
              End If
          End If
       Next i
    End If
End Sub

4. Akhirnya, anda boleh mencuba makro ini.

• Klik ke dalam subrutin "RemoveDuplicateHolidays".
• Kemudian tekan butang kekunci F5 untuk menjalankannya.
• Selepas ia selesai, semua cuti pendua dalam semua kalendar Outlook anda dialih keluar.

Dapatkan Data Outlook yang Berharga

Ia adalah fakta yang tidak dipersoalkan bahawa tiada program boleh menjamin bahawa ia boleh kebal daripada kesilapan dan rasuah. Perkara yang sama berlaku untuk Outlook. Oleh itu, untuk melindungi data Outlook anda, lebih baik anda membuat sandaran data biasa. Selain itu, anda perlu menjadualkan pelan pemulihan Outlook lebih awal. Akhir sekali, adalah bijak untuk menyediakan alat pembaikan yang bereputasi, seperti DataNumen Outlook Repair. Ia mampu baiki Outlook isu dalam sekelip mata dan dapatkan semula data Outlook maksimum daripada fail yang terjejas.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih Sql Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com