আপনার যদি নির্দিষ্ট ফোল্ডারের অধীনে একাধিক সাবফোল্ডার থাকে এবং এখন আপনি এই ফোল্ডার এবং এর সমস্ত সাবফোল্ডার আইটেমগুলি গণনা করতে চান, আপনি এই নিবন্ধে প্রবর্তিত উপায়টি ব্যবহার করতে পারেন।
সাধারণভাবে, একটি ফোল্ডারে আইটেমের মোট গণনা পরীক্ষা করতে আপনার কাছে দুটি উপায় রয়েছে। একটি হ'ল এই ফোল্ডারটি নির্বাচন করা এবং তারপরে আপনি স্থিতি বারের নীচের-বাম কোণে আইটেমগুলির গণনা দেখতে পারবেন। অন্যটি হ'ল ফোল্ডারের বৈশিষ্ট্যগুলি আইটেমের মোট সংখ্যা দেখানোর জন্য সেট করতে এটি পরিবর্তন করতে হবে। তবে, এই ফোল্ডারের অধীনে যদি বেশ কয়েকটি সাবফোল্ডার থাকে তবে উপরের দুটি উপায়ই সাব-ফোল্ডারগুলিকে গণনায় অন্তর্ভুক্ত করতে অক্ষম। অতএব, আপনি যদি কোনও ফোল্ডার এবং এর সমস্ত সাবফোল্ডারগুলিতে আইটেমগুলির মোট গণনা পেতে চান তবে আপনাকে নিম্নলিখিত উপায়গুলির মতো অন্য উপায়গুলি অনুসন্ধান করতে হবে। এটি এমন একটি মোট গণনা দ্রুত অর্জনের জন্য ভিবিএ কোড ব্যবহার করছে। এর বিস্তৃত পদক্ষেপ এবং ভিবিএ কোডগুলি পেতে দয়া করে পড়ুন।
একটি ফোল্ডার এবং এর সমস্ত সাবফোল্ডারে আইটেমগুলির মোট গণনা পান
- একেবারে শুরুতেই, আপনি যথারীতি আপনার আউটলুক প্রোগ্রামটি চালু করতে পারেন।
- তারপরে আউটলুক ভিবিএ সম্পাদকটি দেখানোর জন্য "Alt + F11" কী বোতাম টিপুন।
- পরবর্তী আপনি একটি খালি মডিউল খুলতে পারেন।
- পরবর্তীকালে, এই মডিউলটিতে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করুন এবং আটকান।
Sub CountItems()
Dim objMainFolder As Outlook.Folder
Dim lItemsCount As Long
'Select a folder
Set objMainFolder = Outlook.Application.Session.PickFolder
If objMainFolder Is Nothing Then
MsgBox "You choose select a valid folder!", vbExclamation + vbOKOnly, "Warning for Pick Folder"
Else
'Initialize the total count
lItemsCount = 0
Call LoopFolders(objMainFolder, lItemsCount)
End If
'Display a message for the total count
MsgBox "There are " & lItemsCount & " items in the " & objMainFolder.Name & " folder Including its subfolders.", vbInformation, "Count Items"
End Sub
Sub LoopFolders(ByVal objCurrentFolder As Outlook.Folder, lCurrentItemsCount As Long)
Dim objSubfolder As Outlook.Folder
lCurrentItemsCount = lCurrentItemsCount + objCurrentFolder.Items.Count
'Process all folders and subfolders recursively
If objCurrentFolder.Folders.Count Then
For Each objSubfolder In objCurrentFolder.Folders
Call LoopFolders(objSubfolder, lCurrentItemsCount)
Next
End If
End Sub
- এর পরে, আপনার আপনার আউটলুক ম্যাক্রো সুরক্ষা স্তরটিকে নিম্নে পরিবর্তন করা উচিত।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- নতুন ম্যাক্রো উইন্ডোতে, F5 কী বোতামটি টিপুন।
- একবারে, আপনাকে একটি ফোল্ডার নির্বাচন করতে হবে।
- তাত্ক্ষণিকভাবে, আপনি নির্বাচিত ফোল্ডারে আইটেম এবং তার সমস্ত সাবফোল্ডারগুলির নীচের চিত্রের মতো মোট সংখ্যা গণনা করার জন্য একটি নতুন বার্তা পাবেন:
পুরানো আইটেমগুলি সময় আর্কাইভ করুন
যত তাড়াতাড়ি সম্ভব আপনার PST ফাইলে পুরানো আইটেম সংরক্ষণাগার করার পরামর্শ দেওয়া হয়। অন্যথায়, এই ফাইলে আরও বেশি সংখ্যক আইটেম জমা হওয়ার সাথে সাথে এটি ত্রুটি ও দুর্নীতিগ্রস্থ হতে পারে। আপনার পিএসটি ফাইলটি একবার আপস হয়ে গেলে আপনি ফিরে পেতে প্রচুর প্রচেষ্টা ব্যয় করবেন দূষিত আউটলুক তথ্য। আপনি যদি কোনও অভিজ্ঞ সরঞ্জামের মতো পুনরায় না পান তবে এটি বেশ কঠিন হয়ে উঠবে DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত SQL Server এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com