Outlook. Ինչպես հեռացնել օրացույցի կրկնօրինակ տարրերը

Երբեմն լինում են կրկնօրինակ օրացույցի տարրեր, երբ մենք իրադարձություններ ենք ներմուծում այլ սարքերից: Օրացույցի կրկնօրինակ տարրերը հեռացնելու համար այս ձեռնարկը ներկայացնում է երկու տարբեր եղանակներ. մեկը մեկ առ մեկ հեռացնելն է, երբ կրկնօրինակներն ավելի քիչ են, մյուսը օգտագործում է VBA՝ բոլոր կրկնօրինակները միանգամից հեռացնելու համար:

Ձեռքով հեռացրեք օրացույցի կրկնօրինակները մեկ առ մեկ

VBA օրացույցի կրկնօրինակ տարրերը միանգամից հեռացնելու համար

Office Tab - Միացրեք ներդիրներով խմբագրումը և զննարկումը Microsoft Office-ում, ինչը հեշտացնում է աշխատանքը

Կարդալ ավելին...Ներբեռնել ...

Kutools Outlook-ի համար - Բարձրացրեք Outlook-ը 100+ առաջադեմ հատկություններով բարձր արդյունավետության համար

Ավտոմատացնել էլ Auto CC / BCC, Ավտոմեքենաների փոխանցում կանոններով; ուղարկել Ավտոմատ պատասխան (Offoff Office) առանց փոխանակման սերվեր պահանջելու...
Ստացեք նման հիշեցումներ Նախազգուշացում BCC- ի համար երբ պատասխանում եք բոլորին, երբ դուք BCC ցուցակում եք, և Հիշեցրեք հավելվածները բաց թողնելիս մոռացված հավելվածների համար...
Բարելավել էլփոստի արդյունավետությունը Պատասխանել (Բոլորը) Հավելվածներով, Ավտոմատ ավելացրեք ողջույն կամ ամսաթիվ և ժամ ստորագրության կամ թեմայի մեջ, Պատասխանել բազմաթիվ էլ...
Հեշտացնել էլփոստի ուղարկումը Վերհիշել նամակները, Կցման գործիքներ (Սեղմել բոլորը, ավտոմատ պահել բոլորը...), Հեռացնել կրկնօրինակները, եւ Արագ հաշվետվություն...

Ամրապնդեք ձեր Outlook 2021 - 2010 կամ Outlook 365 այս առաջադեմ գործառույթները: Վայելեք համապարփակ 60-օրյա անվճար փորձարկումը և բարձրացրեք ձեր էլփոստի փորձը:

Կարդալ ավելին...Ներբեռնել ...

Ձեռքով հեռացրեք օրացույցի կրկնօրինակները մեկ առ մեկ

Օրացույցի կրկնօրինակ տարրերը մեկ առ մեկ հեռացնելու համար հարկավոր է դրանք ցուցակագրել հատուկ հերթականությամբ՝ սկզբում կրկնօրինակները հստակ դիտելու համար, ապա հերթով հեռացնել դրանք:

1. Ընդհանրապես, օրացույցը գտնվում է ա Օրացույց դիտեք, ակտիվացրեք օրացույցը, որը ցանկանում եք հեռացնել կրկնօրինակները, ապա սեղմեք Դիտել > Փոխել տեսքը > Ցուցակ.

Այժմ օրացույցը դիտվել է որպես ցուցակ:

2. Այնուհետև նշեք մի պայման, որը դուք օգտագործում եք համեմատելու համար, եթե տարրերը կրկնօրինակ են, ենթադրելով, որ համեմատեք, եթե տարրերն ունեն նույն թեման: Սեղմել ԱՌԱՐԿԱ օրացուցային ցանկում, այնուհետև միևնույն առարկան ունեցող բոլոր տարրերը տեղադրվում են միասին:

3. Այժմ դուք կարող եք հերթով հեռացնել այն տարրերը, որոնք ունեն նույն թեման՝ աջ սեղմելով նյութի վրա և սեղմելով ջնջել բացվող համատեքստի մենյուից:

VBA օրացույցի կրկնօրինակ տարրերը միանգամից հեռացնելու համար

Այստեղ ներկայացվում է մի քանի VBA, որը կարող է տարբեր դեպքերում հեռացնել օրացուցային պանակի բոլոր կրկնօրինակ տարրերը:

1. Մամուլ ալտ + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ, այնուհետև պատճենեք և տեղադրեք ստորև նշված կոդը մոդուլում:

VBA. հեռացնել օրացույցի բոլոր կրկնօրինակ տարրերը մեկ կոնկրետ կատեգորիայում

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Այս VBA-ում այն կհեռացնի բոլոր կրկնօրինակները «ամսաթիվԱյս կատեգորիան, համեմատելով թեման, գտնվելու վայրը, մարմինը և կատեգորիան, կարող եք փոխել դրանք ըստ անհրաժեշտության:

3. ապա սեղմեք F5 կոճակը կամ սեղմեք «Գործարկել»՝ երկխոսության կոդը գործարկելու համար Մակրո դուրս է գալիս, ընտրիր RemoveDuplicateCalendar-ը եւ սեղմեք Վազում .

Այնուհետև «ամսաթիվ» կատեգորիայի կրկնօրինակ տարրերը հեռացվել են:

VBA. հեռացնել բոլոր կրկնօրինակ օրացուցային տարրերը կատեգորիաներում

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Գործարկեք այս կոդը, բոլոր կրկնօրինակները, որոնք գտնվում են նույն առարկայի, գտնվելու վայրի, մարմնի, կատեգորիայի յուրաքանչյուր կատեգորիայի մեջ, հեռացվել են: