আপনি যদি আউটলুক থেকে ডুপ্লিকেট আইটেমগুলো সরাতে চান, তবে এক এক করে খুঁজে মুছে ফেলা বেশ কষ্টসাধ্য হবে। এই পোস্টে শেখানো হবে কীভাবে আউটলুক ভিবিএ (Outlook VBA) ব্যবহার করে দ্রুত এই কাজটি সম্পন্ন করা যায়।
আমার আগের লেখায় - "কীভাবে দ্রুত আউটলুকে সদৃশ ইমেলগুলি সন্ধান এবং সরাতে হয়”, আপনি সদৃশ ইমেলগুলি সন্ধান এবং মুছে ফেলার কৌশল শিখতে পারেন, যা প্রথমে ইমেলগুলি বিষয় অনুসারে বাছাই করে, তারপরে প্রাপ্ত সময় এবং তারপরে নকল আইটেমগুলি সন্ধান করার জন্য এবং শেষ পর্যন্ত সদৃশগুলি নির্বাচন করে" মুছুন "কী টিপুন। যদিও এই পদ্ধতিটি কিছুটা বেশি সুবিধাজনক বলে মনে হচ্ছে তবে এটি আউটলুক ভিবিএ ব্যবহারের তুলনায় অনেক বেশি ঝামেলার। নিম্নলিখিত ভিবিএ কোড দ্বারা, আপনি কেবলমাত্র একটি ক্লিকের মাধ্যমে অনুলিপি আইটেমগুলি দ্রুত মুছে ফেলতে পারেন, ইমেল, কার্য, পরিচিতি বা অ্যাপয়েন্টমেন্ট নয় matter কোডগুলি বিস্তারিতভাবে পেতে এখন পড়ুন।
কোনও ফোল্ডারে সদৃশ আউটলুক আইটেমগুলি সরান
- প্রথমে আপনার Outlook প্রোগ্রামটি চালু করুন।
- তারপরে “Alt + F11” কী বোতাম টিপুন।
- পরবর্তী ভিবিএ সম্পাদক উইন্ডোতে, ব্যবহৃত মডিউলটি খুলতে ডাবল ক্লিক করুন বা সরাসরি "সন্নিবেশ"> "মডিউল" দ্বারা একটি নতুন মডিউল sertোকাতে হবে।
- পরবর্তী মডিউলটিতে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করুন এবং আটকান।
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
- এর পরে, ডিজিটালি এই ম্যাক্রোতে স্বাক্ষর করুন এবং আপনার আউটলুক ম্যাক্রো সুরক্ষা স্তরটিকে নিম্নে পরিবর্তন করুন।
- পরে, আপনি এই নতুন ভিবিএ প্রকল্পটি পরিচালনা করতে পারেন। টুলবারে সরাসরি "রান" আইকনে ক্লিক করুন।
- এরপরে, আপনাকে এমন একটি ফোল্ডার নির্বাচন করতে হবে যেখানে আপনি নকল আইটেমগুলি সরাতে চান।
- অবশেষে, নির্বাচিত ফোল্ডারে থাকা সদৃশ আইটেমগুলি একবারে মুছে ফেলা হবে।
সেফগার্ড অরক্ষিত পিএসটি ডেটা
পিএসটি ফাইল দুর্নীতির পক্ষে সংবেদনশীল, এই কারণে আপনার পিএসটি ফাইলটি সুরক্ষিত করার জন্য আপনার প্রচুর প্রচেষ্টা ব্যয় করা উচিত। উদাহরণস্বরূপ, আপনার আউটলুককে ভুলভাবে বন্ধ হতে দেওয়া উচিত। তদুপরি, আপনার একটি শক্তসমর্থ প্রস্তুত করা প্রয়োজন need আউটলুক ঠিক করা সরঞ্জাম, যেমন DataNumen Outlook Repair যা সময়মতো আপনার পিএসটি উদ্ধার করতে সক্ষম হবে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় পুনরুদ্ধার SQL Server এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com