ভিবিএ দিয়ে কোনও আউটলুক আইটেমের রঙের বিভাগটি কীভাবে প্রতিস্থাপন করা যায়

আপনি যদি কোনও আউটলুক আইটেমের রঙের বিভাগটি প্রতিস্থাপন করতে চান তবে নতুন বিভাগটি নির্ধারিত হওয়ায় আপনাকে মূলটি সরিয়ে ফেলতে হবে। সুতরাং, এই নিবন্ধে, আমরা আপনাকে ভিবিএর মাধ্যমে কীভাবে এটি স্বয়ংক্রিয় করবেন তা শিখিয়ে দেব।

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

একটি আউটলুক আইটেমের রঙের বিভাগটি প্রতিস্থাপন করুন

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

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
'Take Mailitem as an example
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Set objMail = Inspector.CurrentItem
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strSpecificCategory As String
    Dim strCategories As String
    Dim varArray As Variant
    Dim i As Long
  
    If Name = "Categories" Then
       strCategories = objMail.Categories
       varArray = Split(objMail.Categories, ",")
       If UBound(varArray) >= 1 Then
          'If want to get a confirmation before removing the original category
          'Add the following lines
          'Dim strPrompt As String
          'Dim nResponse As Integer
          'strPrompt = "Do you want to remove the original color category?"
          'nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Color Category Assignment")
          'If nResponse = vbYes Then
          For i = 0 To UBound(varArray)
              'Remove the previous color categories
              varArray(1) = ""
              'Rebuild the categories
              objMail.Categories = Join(varArray, ",")
              Exit Sub
          Next i
          'End If
       End If
    End If
End Sub

6. এর পরে, আপনার এই নতুন ম্যাক্রোতে একটি ডিজিটাল শংসাপত্র নির্ধারণ করা উচিত।
7. পরে স্বাক্ষরিত ম্যাক্রোগুলি সক্ষম রয়েছে তা নিশ্চিত করতে আপনার আউটলুক ম্যাক্রো সেটিংস পরীক্ষা করে নেওয়া দরকার।
8. অবশেষে নতুন VBA প্রজেক্টটি সক্রিয় করতে আপনাকে Outlook পুনরায় চালু করতে হবে।
9. এখন থেকে, যতবারই আপনি কোনও আইটেমকে নতুন বিভাগ নির্ধারণ করবেন, পূর্ববর্তীটি স্বয়ংক্রিয়ভাবে সরানো হবে।

নেটলসাম আউটলুক ইস্যুগুলি পরিচালনা করুন

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

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

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