আপনি যদি একটি PST ফাইলের সমস্ত ইমেল অন্য PST ফাইলের একটি নির্দিষ্ট ফোল্ডারে সরাতে চান তবে আপনি এই নিবন্ধে প্রবর্তিত পদ্ধতিটি ব্যবহার করতে পারেন। এটি আপনাকে দ্রুত পেতে VBA কিভাবে ব্যবহার করতে হয় তা শেখাবে।
কখনও কখনও, কিছু কারণে, আপনাকে একটি নির্দিষ্ট PST ফাইলের সমস্ত ইমেল অন্য PST ফাইলের একটি নির্দিষ্ট ফোল্ডারে সরাতে হতে পারে। এই ক্ষেত্রে, আপনি যদি ম্যানুয়ালি এটি করেন তবে এটি নিঃসন্দেহে বেশ ঝামেলাপূর্ণ হবে। তাই, এখানে আমরা একটি দ্রুত পদ্ধতি শেখাবো, যা VBA ব্যবহার করে একটি নির্দিষ্ট PST ফাইলের সমস্ত ফোল্ডার লুপ করতে এবং প্রতিটি ইমেলকে একটি নির্দিষ্ট ফোল্ডারে সরাতে হবে। বিস্তৃত পদক্ষেপ এবং কোডগুলি অর্জন করতে পড়ুন।
ব্যাচ একটি আউটলুক পিএসটি ফাইলের সমস্ত ইমেল একটি নির্দিষ্ট ফোল্ডারে সরান
- একেবারে গোড়ার দিকে আপনার আউটলুক অ্যাপ্লিকেশনটি চালু করুন।
- তারপর আপনি "ডেভেলপার" ট্যাবে স্যুইচ করতে পারেন এবং "ভিজ্যুয়াল বেসিক" বোতামে ক্লিক করতে পারেন। অথবা "Alt + F11" কী শর্টকাট টিপুন।
- পরবর্তীকালে, পপআপ VBA সম্পাদক উইন্ডোতে, একটি অ-ব্যবহারের মডিউল খুলুন বা সরাসরি একটি নতুন সন্নিবেশ করুন৷
- পরবর্তীতে এই মডিউলে নিম্নলিখিত VBA কোডগুলি অনুলিপি করুন এবং পেস্ট করুন৷
Private Sub GetAllFolders()
Dim objFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
'Get all the folders in a specific PST file
Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
For Each objFolder In objFolders
Call MoveEmails(objFolder)
Next
End Sub
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
Dim objTargetFolder As Outlook.Folder
Dim objSubFolder As Outlook.Folder
Dim i As Long
Dim objMail As Outlook.MailItem
'Get the specific destination folder
'You can change it as per your case
Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
If objTargetFolder Is Nothing Then
Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
End If
'Move each emails in the folder to the destination folder
For i = objFolder.Items.Count To 1 Step -1
If objFolder.Items.Item(i).Class = olMail Then
Set objMail = objFolder.Items.Item(i)
objMail.Move objTargetFolder
End If
Next i
'Process the subfolders in the folder recursively
If (objFolder.Folders.Count > 0) Then
For Each objSubFolder In objFolder.Folders
Call MoveEmails(objSubFolder)
Next
End If
End Sub
- এর পরে, আপনার আউটলুক ম্যাক্রো সুরক্ষা স্তরটিকে নিম্নে পরিবর্তন করুন।
- অবশেষে আপনি টুলবারে "রান" আইকনে ক্লিক করে বা "F5" কী টিপে নতুন ম্যাক্রো চালাতে পারেন।
- একবারে, একটি নির্দিষ্ট ফোল্ডারের সমস্ত ফোল্ডারের সমস্ত ইমেল ব্যাচগুলিতে পূর্বনির্ধারিত ফোল্ডারে সরানো হবে।
সময়ে আপনার PST ডেটা উদ্ধার করুন
যদি আপনি দুর্ভাগ্যবশত ভোগেন পিএসটি ক্ষতি, তাহলে তুমি কি করবে? সাধারণভাবে, আপনার প্রথম চিন্তা যত তাড়াতাড়ি সম্ভব আপস করা PST ডেটা ফিরে পেতে হবে। যথারীতি, সবচেয়ে সহজ উপায় হল আপ-টু-ডেট ডেটা ব্যাকআপ থেকে পুনরুদ্ধার করা। যাইহোক, যদি ডেটা ব্যাকআপ কয়েক সপ্তাহ পুরানো হয় তবে এটি অকেজো হতে পারে। এই ক্ষেত্রে, আপনার কাছে একটি শক্তিশালী পুনরুদ্ধার সরঞ্জামের পুনরাবৃত্তি ছাড়া কোন বিকল্প নেই, যেমন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ ঠিক করা এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com