თუ გსურთ Outlook-ში დუბლიკატი ელემენტების წაშლა, მათი ერთმანეთის მიყოლებით მოძიება საკმაოდ პრობლემური იქნება. ეს პოსტი გასწავლით, თუ როგორ სწრაფად დაასრულოთ ეს პროცესი Outlook VBA-ს გამოყენებით.
ჩემს წინა სტატიაში - "როგორ სწრაფად მოძებნოთ და წაშალოთ დუბლიკატი ელფოსტა Outlook-ში”, შეგიძლიათ ისწავლოთ დუბლიკატი ელ.ფოსტის პოვნისა და წაშლის ხრიკი, რომელიც ჯერ ახარისხებს წერილებს თემის მიხედვით, შემდეგ მიღებული დროის მიხედვით და შემდეგ დანართების მიხედვით, რათა გაარკვიოთ დუბლიკატები და ბოლოს შეარჩიოთ დუბლიკატები და დააჭირეთ ღილაკს „წაშლა“. მიუხედავად იმისა, რომ ეს მეთოდი, როგორც ჩანს, უფრო მოსახერხებელია, მაგრამ ის ბევრად უფრო პრობლემურია Outlook VBA-ს გამოყენებასთან შედარებით. შემდეგი VBA კოდებით, თქვენ შეგიძლიათ სწრაფად წაშალოთ დუბლიკატი ერთეულები ერთი დაწკაპუნებით, არ აქვს მნიშვნელობა ელ.წერილს, ამოცანებს, კონტაქტებსა თუ შეხვედრებს. ახლა წაიკითხეთ, რომ მიიღოთ კოდები დეტალურად.
წაშალეთ Outlook-ის დუბლიკატი ერთეულები საქაღალდეში
- დასაწყებად, გაუშვით თქვენი Outlook პროგრამა.
- შემდეგ დააჭირეთ "Alt + F11" ღილაკებს.
- მომდევნო VBA რედაქტორის ფანჯარაში, ორჯერ დააწკაპუნეთ მოდულის გასახსნელად, რომელიც გამოიყენება ან პირდაპირ ჩადეთ ახალი მოდული "Insert" > "Module".
- შემდეგ დააკოპირეთ და ჩასვით შემდეგი VBA კოდები მოდულში.
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
- ამის შემდეგ, ციფრულად მოაწერეთ ხელი ამ მაკროს და შეცვალეთ თქვენი Outlook მაკრო უსაფრთხოების დონე დაბალზე.
- მოგვიანებით, შეგიძლიათ აწარმოოთ ეს ახალი VBA პროექტი. პირდაპირ დააწკაპუნეთ ინსტრუმენტთა პანელში "Run" ხატულაზე.
- შემდგომში, თქვენ მოგიწევთ აირჩიოთ საქაღალდე, სადაც გსურთ წაშალოთ დუბლიკატი ელემენტები.
- საბოლოოდ, არჩეულ საქაღალდეში დუბლიკატი ელემენტები ერთდროულად წაიშლება.
დაიცავით დაუცველი PST მონაცემები
იმის გამო, რომ PST ფაილი მგრძნობიარეა კორუფციისთვის, ამიტომ თქვენ უნდა დახარჯოთ დიდი ძალისხმევა თქვენი PST ფაილის დასაცავად. მაგალითად, თქვენ უნდა თავიდან აიცილოთ Outlook-ის არასწორად დახურვა. გარდა ამისა, თქვენ უნდა მოამზადოთ ძლიერი Outlook შესწორება ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair რომელიც შეძლებს თქვენი PST-ის დროულად გადარჩენას.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის გამოჯანმრთელება SQL Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად