আপনি যদি একাধিক আউটলুক ফোল্ডার থেকে সমস্ত আইটেম একীভূত করতে চান এবং কোনও সদৃশ বীমাকরণ করতে না চান তবে আপনি এই নিবন্ধে প্রবর্তিত পদ্ধতিটি ব্যবহার করতে পারেন। এটি কর্কের মতো এটি সফল করতে আপনাকে ভিবিএ কোড ব্যবহার করছে।
অনেক সময় আপনি বেশ কয়েকটি আউটলুক ফোল্ডার থেকে আইটেমগুলিকে একত্রে করতে ইচ্ছুক হতে পারেন, যেমন বেশ কয়েকটি আউটলুক পরিচিতি ফোল্ডারের সমস্ত পরিচিতি মার্জ করা। এই পরিস্থিতিতে যদি এই ফোল্ডারগুলির মধ্যে কিছু নকল যোগাযোগ থাকে তবে আপনাকে অবশ্যই আশা করতে হবে যে মার্জ করার সময় সদৃশগুলি স্বয়ংক্রিয়ভাবে সরানো যেতে পারে। এই পরিস্থিতিতে, আপনি অনায়াসে সহজেই এটি উপলব্ধি করতে নীচের ভিবিএ কোডটি ব্যবহার করতে পারেন।
নকল ছাড়াই একাধিক ফোল্ডার থেকে আইটেমগুলি মার্জ করুন
- টু এসtarটি সহ, আপনার আউটলুক অ্যাপ্লিকেশনটি চালু করুন।
- তারপরে, আপনার আউটলুক মূল স্ক্রিনে "Alt + F11" কী বোতাম টিপে আউটলুক ভিবিএ সম্পাদক অ্যাক্সেস করা উচিত।
- এরপরে, "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে আপনাকে এমন একটি মডিউল খুলতে হবে যা ব্যবহার হচ্ছে না।
- এর পরে, আপনাকে এই মডিউলে নিম্নলিখিত ভিবিএ কোডটি অনুলিপি করা উচিত।
'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
Dim objSourceFolder As Outlook.Folder
Dim objTargetFolder As Outlook.Folder
Dim i, n, x As Long
Dim objItem As Object
Dim objDictionary As Object
Dim strKey As String
Set objSourceFolder = Application.Session.PickFolder
Set objTargetFolder = Application.Session.PickFolder
If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
Else
'Merge the two folders
For i = objSourceFolder.Items.count To 1 Step -1
Set objItem = objSourceFolder.Items.Item(i)
objItem.Move objTargetFolder
Next i
Set objDictionary = CreateObject("scripting.dictionary")
'Remove the duplicates
x = 0
For n = objTargetFolder.Items.count To 1 Step -1
Set objItem = objTargetFolder.Items.Item(n)
Select Case objItem.Class
Case olMail
strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
Case olAppointment
strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
Case olContact
strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
Case olTask
strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
End Select
strKey = Replace(strKey, ", ", Chr(32))
If objDictionary.Exists(strKey) = True Then
objItem.Delete
x = x + 1
Else
objDictionary.Add strKey, True
End If
Next n
'Prompt you of the count of removed duplicates
If x <> 0 Then
MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
End If
End If
End Sub
- পরে আপনাকে আপনার আউটলুক ম্যাক্রো সেটিংস পরীক্ষা করে দেখতে হবে, ম্যাক্রো সক্ষম হওয়া নিশ্চিত করে।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- প্রথমত, নতুন মডিউল উইন্ডোতে ফিরে আসুন।
- এই ম্যাক্রোটি ট্রিগার করতে পরবর্তী এফ 5 কী বোতাম টিপুন।
- তারপরে মার্জ করার জন্য আপনাকে দুটি ফোল্ডার নির্বাচন করতে হবে। প্রথমটি উত্স এক, এবং দ্বিতীয়টি হ'ল tarএকটা নাও.
- এর পরে, আউটলুক উত্স ফোল্ডার থেকে সমস্ত আইটেম সরিয়ে নেওয়া শুরু করবে tarএকটা নাও. এছাড়াও, ইতিমধ্যে, নকলগুলি স্বয়ংক্রিয়ভাবে সরানো হবে।
- শেষ পর্যন্ত, আপনি নীচের স্ক্রিনশটের মতো সরানো সদৃশগুলির গণনা প্রেরণকারী একটি বার্তা পেতে পারেন:
ক্ষুদ্র ত্রুটি গ্রেট ক্র্যাশ হতে পারে
প্রচুর পরিমাণে দুর্দান্ত ক্রিয়াকলাপ থাকা সত্ত্বেও, আউটলুক ত্রুটি এবং দুর্নীতির পক্ষে এখনও সংবেদনশীল। সম্ভবত আপনি বিভিন্ন আউটলুক সমস্যা সম্মুখীন হয়েছে। অনেক ব্যবহারকারী এলোমেলো ত্রুটি উপেক্ষা করতে ঝুঁকছেন। যাইহোক, এটি ক্ষুদ্র ত্রুটি যা মারাত্মক আউটলুক ক্র্যাশগুলিকে ট্রিগার করে, যা আউটলুক ফাইলকে বিপদে ফেলবে। সুতরাং, আপনার কোনও ছোট ত্রুটি উপেক্ষা করা উচিত নয়। পরিবর্তে, আপনার যত তাড়াতাড়ি সম্ভব এগুলি অপসারণ করা উচিত। তদ্ব্যতীত, আপনি আরও ভাল রাখতে চান পিএসটি মেরামত সরঞ্জাম, যেমন DataNumen Outlook Repair। উচ্চতর পুনরুদ্ধারের হারের মাধ্যমে, এই ইউটিলিটিটি তার সহকর্মীদের কাঁধে ফেলেছে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত বর্গ এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com