সম্ভবত আপনার একটি ফোল্ডার আছে যার অধীনে অসংখ্য সাবফোল্ডার রয়েছে। আপনি যদি সেগুলির মধ্যে ইমেলগুলিকে পুনর্বিন্যাস করতে চান, যেমন দ্রুত এই সাবফোল্ডারগুলি থেকে সমস্ত ইমেল একটি নির্দিষ্ট ফোল্ডারে সরানো, আপনি এই নিবন্ধে শেয়ার করা উপায় ব্যবহার করতে পারেন৷
কখনও কখনও, আপনাকে কিছু কারণে একটি ফোল্ডারের সমস্ত সাবফোল্ডার থেকে ইমেলগুলিকে অন্য ফোল্ডারে সরাতে হতে পারে, যেমন আপনি ইমেলগুলিকে পুনরায় শ্রেণীবদ্ধ করতে চান, তাই এই সাবফোল্ডারগুলি আর উপযোগী নয়৷ এই ক্ষেত্রে, এই সাবফোল্ডারগুলি একের পর এক প্রক্রিয়া করা বেশ ঝামেলার। অতএব, এখানে আমরা আপনাকে অন্যভাবে পরিচয় করিয়ে দেব।
ব্যাচ এক ফোল্ডারের সমস্ত সাবফোল্ডার থেকে অন্য ফোল্ডারে ইমেলগুলি সরান৷
- একেবারে শুরুতেই আপনার আউটলুক প্রোগ্রামটি চালু করুন।
- তারপর, প্রধান আউটলুক স্ক্রিনে, "Alt + F11" কী বোতামগুলিতে আলতো চাপুন, যা আপনাকে VBA সম্পাদকে নিয়ে আসবে৷
- এর পরে, নতুন "অ্যাপ্লিকেশনের জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে, আপনাকে একটি মডিউল খুলতে হবে যা ব্যবহারে নেই।
- পরবর্তীকালে, এই মডিউলটিতে নিম্নলিখিত ভিবিএ কোডটি অনুলিপি করুন এবং আটকান।
Dim objTargetFolder As Outlook.folder
Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
Dim objSourceFolder As Outlook.folder
Dim objFolder As Outlook.folder
'Get the source folder whose subfolders to be processed
Set objSourceFolder = Application.Session.PickFolder
If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
If objSourceFolder.folders.count > 0 Then
'Select a target folder
Set objTargetFolder = Application.Session.PickFolder
If Not (objTargetFolder Is Nothing) Then
For Each objFolder In objSourceFolder.folders
Call ProcessFolders(objFolder)
Next
MsgBox "Move Completed!", vbExclamation
End If
Else
MsgBox "No subfolders!", vbExclamation
End If
End If
End Sub
Sub ProcessFolders(ByVal objFolder As Outlook.folder)
Dim i As Long
Dim objSubfolder As Outlook.folder
For i = objFolder.Items.count To 1 Step -1
'Move emails to the target folder
If objFolder.Items(i).Class = olMail Then
objFolder.Items(i).Move objTargetFolder
End If
Next
'Process subfolders recursively
If objFolder.folders.count > 0 Then
For Each objSubfolder In objFolder.folders
Call ProcessFolders(objSubfolder)
Next
End If
End Sub
- এর পরে, আপনি এই ম্যাক্রো চালাতে পারেন।
- প্রথমে, এই ম্যাক্রো উইন্ডোতে, "F5" কী বোতাম টিপুন।
- তারপর, আপনাকে একটি উত্স ফোল্ডার নির্বাচন করতে হবে যার সাবফোল্ডারগুলি প্রক্রিয়া করা হবে৷
- এর পরে, আপনাকে গন্তব্য ফোল্ডারটি নির্দিষ্ট করতে হবে যেখানে আপনি ইমেলগুলি সরাতে চান।
- এরপরে, এই ম্যাক্রোটি কাজ করা শুরু করবে। এটি সম্পন্ন হলে, আপনি "Complete" লেখা একটি বার্তা পাবেন।
- অবশেষে, আপনি টার্গেট ফোল্ডারটিতে প্রবেশ করতে পারবেন। আপনি দেখতে পাবেন যে সোর্স ফোল্ডারের অধীনস্থ সাবফোল্ডারগুলোর সমস্ত ইমেল সেখানে চলে এসেছে।
আপোস করা আউটলুক ডেটা পুনরুদ্ধার করুন
অন্যান্য ইমেল ক্লায়েন্টের মতো অসংখ্য বৈশিষ্ট্যের গর্ব করা সত্ত্বেও, আউটলুক এখনও দুর্নীতি থেকে বাঁচতে পারে না। আরও বেশি ডেটা সঞ্চয় করার সাথে, আউটলুক ক্রমবর্ধমান ত্রুটি এবং ক্ষতির প্রবণ হবে। অতএব, আপনাকে একটি শক্তিশালী মেরামতের সরঞ্জাম হাতের কাছে রাখতে হবে, যেমন DataNumen Outlook Repair. এটা বিশেষ করে ডিজাইন করা হয়েছে আউটলুক ঠিক করুন সমস্যা এর ফলে, এটি অনায়াসে সহজেই ক্ষতিগ্রস্ত আউটলুক ফাইল স্ক্যান এবং পুনরুদ্ধার করতে পারে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ পুনরুদ্ধার এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান www.datKanumen.com