Outlook’ta yinelenen öğeler olmadan iki klasörü tek bir klasörde nasıl birleştirirsiniz?

Outlook'ta birçok e-posta hesabınız ve bu hesaplarda çok sayıda klasör olabilir. Bazı durumlarda, iki klasörü tek bir klasörde birleştirmek ve yinelenen öğeleri kaldırmak isteyebilirsiniz. Bu görevi nasıl hızlıca halledebilirsiniz? Bu makalede, Outlook’ta bunu mümkün olduğunca hızlı şekilde yapmanıza yardımcı olacak bir VBA kodunu tanıtacağım.

İki klasörü yinelenenler olmadan VBA koduyla tek bir klasörde birleştirme

Birden fazla klasörü birleştirin ve yinelenen öğeleri Kutools for Outlook ile kaldırın

---

İki klasörü yinelenenler olmadan VBA koduyla tek bir klasörde birleştirme

İki klasörü tek bir klasörde birleştirmek ve yinelenen öğeleri kaldırmak için aşağıdaki adımları izleyerek VBA kodunu kullanabilirsiniz:

1. "Microsoft Visual Basic for Applications" penceresini açmak için "Alt + F11" tuşlarına basın.

2. Sol bölmede "Project1" altında bulunan "ThisOutlookSession" öğesine çift tıklayın ve ardından aşağıdaki kodu sağdaki betik penceresine kopyalayıp yapıştırın.

VBA: Yinelenenler olmadan iki klasörü birleştir

Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary  'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
    MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
    Set xSourceItem = xSourceFolder.Items.Item(i)
    xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
    Set xTargetItem = xTargetFolder.Items.Item(i)
    Select Case xTargetItem.Class
        Case olMail
            With xTargetItem
                xStr = .Subject & .Body & .SentOn
            End With
        Case olAppointment
            With xTargetItem
                xStr = .Subject & .Start & .Duration & .Location & .Body
            End With
        Case olContact
            With xTargetItem
                xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
            End With
        Case olTask
            With xTargetItem
                xStr = .Subject & .StartDate & .DueDate & .Body
            End With
    End Select
    If xDictionary.Exists(xStr) = True Then
        xTargetItem.Delete
        xCount = xCount + 1
    Else
        xDictionary.Add xStr, True
    End If
Next i
If xCount <> 0 Then
    MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

3. "Araçlar" > "Referanslar" seçeneğine tıklayın ve açılan iletişim kutusunda "Microsoft Scripting Runtime" onay kutusunu işaretleyin.

4. "Tamam" düğmesine tıklayın. Ardından kodu çalıştırmak için "F5" tuşuna basın. Birinci olarak, birleştirmek istediğiniz klasörü seçmenizi isteyen bir iletişim kutusu açılacaktır (not: ilk klasördeki tüm öğeler, ikinci klasörle birleştirildikten sonra kaldırılacaktır).

5. "Tamam" düğmesine tıklayın. Açılan ikinci iletişim kutusunda, karşılaştırmak ve birleştirmek istediğiniz ikinci klasörü seçin.

6. "Tamam" düğmesine tıklayın. Böylece ilk klasördeki tüm öğeler ikinci klasöre taşınacak ve yinelenenler otomatik olarak kaldırılacaktır.

---

Birden fazla klasörü birleştirin ve yinelenen öğeleri Kutools for Outlook ile kaldırın

VBA kodlarıyla tanışıklığınız yoksa, bu görevi kolayca ve hızlı bir şekilde halletmenize yardımcı olacak “Kutools for Outlook” adlı kullanışlı eklentiyi deneyin. “Klasörleri Düzenle” ve “Yinelenen E-postalar” araçlarıyla işlemi zahmetsizce gerçekleştirebilirsiniz.

Birden fazla klasörü birleştirin

1. "KUTOOLS PLUS" > "Klasörleri Düzenle" seçeneğine tıklayın, ardından "Birden Fazla Klasörü Tek Bir Klasöre Düzenle" iletişim kutusunda birleştirmek istediğiniz klasörleri listeye eklemek için "Ekle" düğmesine tıklayın ve hedef klasör olarak kullanmak istediğiniz bir klasör seçin.

2. "Tamam" > "Tamam" düğmelerine tıklayın. Artık seçilen klasörlerdeki tüm öğeler, belirttiğiniz klasöre birleştirildi.

Yinelenen öğeleri kaldırın

3. "Kutools" > "Yineleneni Sil" > "Yinelenen E-postalar" seçeneğine tıklayın. Ardından "Yinelenen E-postalar" iletişim kutusunda, yinelenenleri kaldırmak istediğiniz klasörü işaretleyin.

4. "İleri" düğmesine tıklayın. "Yinelenen E-postalar Ayarları" iletişim kutusunda e-postaları karşılaştırmak için kullanmak istediğiniz ölçütleri belirleyin. Ardından "Yinelenen E-postaları Sil" seçeneğini işaretleyip "Tek bir klasör içinde karşılaştır" seçeneğini etkinleştirin.

5. Yinelenen e-postaları filtrelemek için "İleri" > "İleri" düğmelerine tıklayın. Ardından "Yinelenen iletiyi sil" ve "Tamam" düğmelerine sırayla tıklayarak yinelenen e-postaları başarıyla kaldırın.