কীভাবে ব্যাচ করবেন সমস্ত ইমেলগুলি ভিবিএর সাথে সমস্ত আউটলুক ফোল্ডারে পঠিত হিসাবে চিহ্নিত করুন

একাধিক ব্যবহারকারী সমস্ত ইমেইলকে পঠিত হিসাবে চিহ্নিত করার জন্য ব্যাচের সমাধানের জন্য দীর্ঘস্থায়ী সমস্ত আউটলুক ফোল্ডারে। এই নিবন্ধে, আমরা আপনার সাথে এমন একটি পদ্ধতি প্রবর্তন করব।  

যেমনটি আমরা সবাই জানি, ফোল্ডারে সমস্ত মেলকে পঠিত হিসাবে চিহ্নিত করা সহজ। কেবল ফোল্ডারে সিলেক্ট এবং ডান ক্লিক করুন এবং তারপরে প্রসঙ্গ মেনুতে "সমস্ত পাঠ্য হিসাবে চিহ্নিত করুন" বিকল্পটি নির্বাচন করুন। তবে উপরোক্ত উপায়ে যদি অপ্রঠিত ইমেলগুলি সহ বেশ কয়েকটি ফোল্ডার থাকে তবে আপনাকে ফোল্ডারে একের পর এক সঞ্চালন করতে হবে। এটা খুব ঝামেলা। অতএব, এখানে আমরা আপনাকে আরও কার্যকর উপায় ভাগ করব, যা আপনাকে এটি প্রচুর পরিমাণে উপলব্ধি করতে দেয়।

ব্যাচ সমস্ত ইমেল সমস্ত আউটলুক ফোল্ডারে পড়ার হিসাবে চিহ্নিত করুন

1. প্রথমে আউটলুক অ্যাপ্লিকেশনটি চালু করুন।
2. তারপরে, আউটলুক ভিবিএ সম্পাদকটি অ্যাক্সেস করতে "Alt + F11" টিপুন।
3. এরপরে, "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে, একটি অব্যবহৃত মডিউলে নীচের কোডটি অনুলিপি করুন।

Sub MarkAllItemsAsRead()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process all Outlook files
    Set objStores = Outlook.Application.Session.Stores
  
    For Each objStore In objStores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            'Process mail folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objUnreadItems As Outlook.Items
    Dim i As Integer
    Dim objItem As Object
    Dim objSubFolder As Outlook.Folder
 
    Set objUnreadItems = objCurFolder.Items.Restrict("[Unread]=True")
 
    'Mark all unread emails as read
    For i = 1 To objUnreadItems.Count
        Set objItem = objUnreadItems.Item(i)
        objItem.UnRead = False
        objItem.Save
    Next
 
    'Process subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubFolder In objCurFolder.Folders
           Call ProcessFolders(objSubFolder)
       Next
    End If
End Sub

4. এর পরে, প্রথম সাবরোটিনে কার্সার রাখুন।
5. এরপরে, "F5" কী বোতাম টিপুন বা সরঞ্জামদণ্ডে "রান" আইকনটি ক্লিক করুন।
6. অবশেষে, ম্যাক্রো সম্পূর্ণ হওয়ার পরে, আপনি মেল ফোল্ডার তালিকায় ফিরে যেতে পারেন।
7. সেখানে, আপনি দেখতে পাবেন যে সমস্ত অপঠিত ইমেলগুলি স্ক্রিনশটে প্রদর্শিত হিসাবে পঠিত হিসাবে চিহ্নিত হয়েছে।

দু: খিত আউটলুক ডেটা ক্ষতি থেকে রক্ষা পান

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

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

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