Outlook'ta çiftler olmadan iki klasörü tek bir klasöre nasıl birleştirebilirim?

Outlook'ta, birçok klasör içeren birçok e-posta hesabınız olabilir, bazı durumlarda iki klasörü tek bir klasörde birleştirmek ve yinelenen öğeleri kaldırmak isteyebilirsiniz. Bu işi nasıl hızlı bir şekilde çözebilirsiniz? Bu makalede, Outlook'ta bunu olabildiğince hızlı işlemenize yardımcı olacak bir VBA kodu sunuyoruz.

İki klasörü kopyasız olarak VBA kodu ile birleştirin

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

İki klasörü kopyasız olarak VBA kodu ile birleştirin

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

1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere

2. simgesini çift tıklayın Bu OutlookOturumu itibaren Project1 sol bölmede, ardından aşağıdaki kodu kopyalayıp sağdaki komut dosyasına yapıştırın.

VBA: İki klasörü dipnotlar olmadan birleştirin

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

doc kopyalar olmadan klasörleri birleştirme 1

3. tık Tools > Referanslar ve açılan iletişim kutusunda kontrol edin Microsoft Komut Dosyası Çalışma Zamanı onay kutusunu işaretleyin.

doc kopyalar olmadan klasörleri birleştirme 2

doc kopyalar olmadan klasörleri birleştirme 3

4. tık OK. Şimdi basın F5 kodu çalıştırmak için anahtar. Birleştirmek istediğiniz ilk klasörü seçtiğinizi hatırlatmak için bir iletişim kutusu açılır (not: ilk klasördeki tüm öğeler ikinci klasörle birleştirildikten sonra kaldırılacaktır).
doc kopyalar olmadan klasörleri birleştirme 4

5. tık OK, ikinci açılır iletişim kutusunda, karşılaştırmak ve birleştirmek istediğiniz ikinci klasörü seçin.
doc kopyalar olmadan klasörleri birleştirme 5

6. tık OK, şimdi, ilk klasördeki tüm öğeler ikinci klasöre taşınacak ve yinelenenler de kaldırılacaktır.
doc kopyalar olmadan klasörleri birleştirme 6

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

VBA koduna aşina değilseniz, kullanmayı deneyin. Outlook için Kutoolskullanışlı bir eklenti, Klasörleri Birleştirme ve Yinelenen E-postalar bu işi kolay ve hızlı bir şekilde halledebilen araçlar.

Kutools for Outlook , Kapsar 100+ Microsoft Outlook 2016, 2013, 2010 ve Office 365 için güçlü özellikler ve araçlar.
İndir'e git 45 gün Ücretsiz Deneme

Ücretsiz kurulum Outlook için Kutools ve ardından aşağıdaki adımları uygulayın:

Birden çok klasörü birleştir

1. tık Kutools Artı > Klasörleri Birleştirme, o zaman Birden çok klasörü tek bir klasörde birleştirin iletişim, tıklayın Ekle birleştirilecek klasörleri listeye eklemek için, hedef klasör olarak bir klasör seçin.

2. tık OK > OK. Artık seçilen klasörlerdeki tüm öğeler belirli bir klasörde birleştirildi.
doc birleştir ve 2 kopyasını kaldır

Yinelenen öğeleri kaldırın

3. tık Kutools > Kopyayı Sil > Yinelenen E-postalar. Sonra da Yinelenen mesajlar iletişim kutusunda, kopyaları kaldırmak istediğiniz klasörü işaretleyin.

4. tık Sonraki, içinde Yinelenen Mesaj Ayarları iletişim kutusunda, e-postaları karşılaştırmak için kullandığınız kriterleri belirtin ve ardından Yinelenen mesajları silin seçeneğini seçin ve Tek bir klasördeki yinelenen iletileri karşılaştırın.

5. tık Sonraki > Sonraki, yinelenen e-postalar filtrelenmiştir. Tıklayın Yinelenen mesajı sil düğmesi> OK yinelenen e-postaları başarıyla kaldırmak için.
doc kopyalar olmadan klasörleri birleştirme 6