Jika anda ingin mengalih keluar item pendua dalam Outlook, mencari dan mengalih keluar satu persatu akan menjadi agak menyusahkan. Catatan ini akan mengajar anda cara menyelesaikannya dengan cepat menggunakan Outlook VBA.
Dalam artikel saya sebelum ini - “Cara Mencari dan Menghapus Email Pendua dengan pantas di Outlook", Anda boleh mempelajari satu muslihat untuk mencari dan membuang e-mel pendua, yang pertama menyusun e-mel mengikut subjek, kemudian mengikut masa yang diterima dan kemudian dengan lampiran untuk mengetahui item pendua dan terakhir memilih yang pendua dan tekan kekunci" Padam ". Walaupun kaedah ini nampaknya lebih senang, tetapi jauh lebih menyusahkan jika dibandingkan dengan menggunakan Outlook VBA. Dengan kod VBA berikut, anda dapat membuang item pendua dengan cepat hanya dengan satu klik, tidak kira e-mel, tugas, kenalan atau janji temu. Sekarang baca untuk mendapatkan kodnya secara terperinci.
Buang Pendua Item Outlook dalam Folder
- Untuk bermula, lancarkan program Outlook anda.
- Kemudian tekan butang kekunci "Alt + F11".
- Pada tetingkap editor VBA berikutnya, klik dua kali untuk membuka modul yang sedang digunakan atau memasukkan modul baru secara langsung dengan "Masukkan"> "Modul".
- Selanjutnya salin dan tampal kod VBA berikut ke dalam modul.
Sub RemoveDuplicateItems()
Dim objFolder As Folder
Dim objDictionary As Object
Dim i As Long
Dim objItem As Object
Dim strKey As String
Set objDictionary = CreateObject("scripting.dictionary")
'Select a source folder
Set objFolder = Outlook.Application.Session.PickFolder
If Not (objFolder Is Nothing) Then
For i = objFolder.Items.Count To 1 Step -1
Set objItem = objFolder.Items.Item(i)
Select Case objFolder.DefaultItemType
'Check email subject, body and sent time
Case olMailItem
strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
'Check appointment subject, start time, duration, location and body
Case olAppointmentItem
strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
'Check contact full name and email address
Case olContactItem
strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
'Check task subject, start date, due date and body
Case olTaskItem
strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
End Select
strKey = Replace(strKey, ", ", Chr(32))
'Remove the duplicate items
If objDictionary.Exists(strKey) = True Then
objItem.Delete
Else
objDictionary.Add strKey, True
End If
Next i
End If
End Sub
- Selepas itu, tandatangani makro ini secara digital dan ubah tahap keselamatan makro Outlook anda menjadi rendah.
- Kemudian, anda boleh menjalankan projek VBA baru ini. Klik secara langsung pada ikon "Jalankan" di bar alat.
- Selepas itu, anda diminta untuk memilih folder di mana anda ingin membuang item pendua.
- Akhirnya, item pendua dalam folder yang dipilih akan dihapuskan sekaligus.
Melindungi Data PST Rentan
Oleh kerana fail PST rentan terhadap kerosakan, maka anda harus menghabiskan banyak usaha untuk melindungi fail PST anda. Sebagai contoh, anda harus mengelakkan Outlook ditutup dengan tidak betul. Tambahan pula, anda perlu menyediakan yang mantap Pembaikan Outlook alat, seperti DataNumen Outlook Repair yang akan dapat menyelamatkan PST anda pada waktunya.
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