কিভাবে দ্রুত আউটলুকে একটি নির্দিষ্ট ফোল্ডারের অধীনে সাবফোল্ডারের মোট গণনা পাবেন

এখন শেয়ার:

হতে পারে আপনি আপনার আউটলুকে ইনবক্সের মতো একটি নির্দিষ্ট ফোল্ডারের অধীনে প্রচুর সংখ্যক সাবফোল্ডার তৈরি করেছেন। এই ক্ষেত্রে, আপনি যদি সাবফোল্ডারগুলি গণনা করতে চান তবে আপনাকে অবশ্যই ম্যানুয়ালি গণনা করতে অনিচ্ছুক হতে হবে। এখানে আমরা আপনাকে আরও স্মার্ট উপায় শেয়ার করব।

দ্রুত আউটলুকের একটি নির্দিষ্ট ফোল্ডারের অধীনে সাবফোল্ডারের মোট সংখ্যা পান

Outlook-এ আইটেমগুলিকে আরও ভালভাবে শ্রেণীবদ্ধ করতে এবং সংরক্ষণাগার করতে, অনেক ব্যবহারকারী বিভিন্ন ফোল্ডার এবং সাবফোল্ডার তৈরি করতে অভ্যস্ত। তবুও, পরে, তারা মনে করতে পারে যে অনেকগুলি ফোল্ডার পরিচালনা করা কিছুটা কঠিন। এই ক্ষেত্রে, তারা একটি নির্দিষ্ট ফোল্ডারের অধীনে কতগুলি সাবফোল্ডার রয়েছে তা গণনা করতে চাইতে পারে। কোনো সন্দেহ ছাড়াই, ম্যানুয়ালি গণনা করা বোকামি এবং ক্লান্তিকর। অতএব, নিম্নলিখিতগুলিতে, আমরা আরও অনেক বুদ্ধিমান উপায় দেখাব।

একটি নির্দিষ্ট ফোল্ডারের অধীনে সাবফোল্ডারের মোট সংখ্যা পান

  1. একেবারে শুরুতেই আপনার আউটলুক প্রোগ্রামটি চালু করুন।
  2. তারপর, Outlook উইন্ডোতে, আপনি VBA সম্পাদক অ্যাক্সেস করতে "Alt + F11" কী বোতাম টিপুন।
  3. এর পরে, পরবর্তী পপআপ উইন্ডোতে, আপনাকে একটি মডিউল খুলতে হবে যা ব্যবহার করা হচ্ছে না।
  4. পরবর্তীকালে, এই মডিউলটিতে নিম্নলিখিত ভিবিএ কোডটি অনুলিপি করুন এবং আটকান।
Sub CountSubfoldersUnderRootFolder()
    Dim objRootFolder As Folder
    Dim lFolderCount As Long
    Dim objFolder As Object
 
    'Get the current folder
    Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    'If you want to select, use the following line instead
    'Set objRootFolder = Outlook.Application.Session.PickFolder
 
    If objRootFolder.Folders.count > 0 Then
       For Each objFolder In objRootFolder.Folders
           'Exclude the hidden folders under Inbox
           If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
              lFolderCount = lFolderCount + 1
 
              'Process subfolders recursively
              Call ProcessFolders(objFolder, lFolderCount)
           End If
       Next
       MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    Else
       MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    End If
End Sub
 
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
    Dim objSubfolder As Object
 
    lCount = lCount + objCurrentFolder.Folders.count
 
    For Each objSubfolder In objCurrentFolder.Folders
        Call ProcessFolders(objSubfolder, lCount)
    Next
End Sub

VBA কোড - একটি নির্দিষ্ট ফোল্ডারের অধীনে সাবফোল্ডারের মোট সংখ্যা পান

  1. এর পরে, আপনি বর্তমান উইন্ডোটি থেকে প্রস্থান করতে পারেন।
  2. পরে, “ফাইল” > “বিকল্পসমূহ” > “দ্রুত অ্যাক্সেস টুলবার”-এ যান। সেখানে আপনি দ্রুত অ্যাক্সেস টুলবারে নতুন ম্যাক্রো যোগ করতে পারেন।
  3. অবশেষে, আপনি এই ম্যাক্রো চেষ্টা করতে পারেন।
  • প্রথমে, একটি ফোল্ডার নির্বাচন করুন যার সাবফোল্ডার আপনি গণনা করতে চান।
  • তারপরে, কুইক অ্যাক্সেস সরঞ্জামদণ্ডে ম্যাক্রো বোতামটি ক্লিক করুন।ম্যাক্রো চালান
  • অবিলম্বে, Outlook এই ম্যাক্রো চালাবে।
  • ম্যাক্রো শেষ হওয়ার পরে, আপনি নিম্নলিখিত চিত্রের মতো একটি বার্তা পাবেন:মেসেজ প্রম্পটিং সাবফোল্ডারের মোট সংখ্যা

আউটলুক দুর্নীতির সাথে মোকাবিলা করার কৌশল

আউটলুক ভাইরাস, সফ্টওয়্যার বা হার্ডওয়্যার সমস্যা, পাওয়ার বিভ্রাট ইত্যাদি সহ অনেকগুলি কারণের জন্য ঝুঁকিপূর্ণ। কেউ গ্যারান্টি দিতে পারে না যে তারা তাদের আউটলুক ফাইলকে দুর্নীতি থেকে দূরে রাখতে সক্ষম। অতএব, ক্ষতির সাথে মোকাবিলা করার কিছু কৌশল আয়ত্ত করা অপরিহার্য। প্রথমত, আপনাকে নিয়মিত PST ব্যাকআপ করতে হবে। উপরন্তু, আপনি কিভাবে ব্যবহার করতে জানতে হবে স্ক্যানপস্ট, অন্তর্নির্মিত মেরামতের সরঞ্জাম। শেষ কিন্তু অন্তত নয়, আপনাকে আরও শক্তিশালী বাহ্যিক সরঞ্জাম প্রস্তুত করতে হবে, যেমন DataNumen Outlook repair.

লেখকের ভূমিকা:

শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ ঠিক করা এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com

এখন শেয়ার:

মন্তব্যসমূহ বন্ধ করা হয়.