ক্যালেন্ডারে ব্যক্তিগত এবং অ-ব্যক্তিগত আইটেমগুলোকে আরও সহজে আলাদা করার জন্য, আপনি ব্যক্তিগত আইটেমগুলোকে একটি নির্দিষ্ট রঙে, যেমন লাল রঙে হাইলাইট করে, স্বয়ংক্রিয়ভাবে দেখানোর ব্যবস্থা করতে পারেন। এই পোস্টে এটি বাস্তবায়নের ২টি উপায় তুলে ধরা হবে।
অনেক ব্যবহারকারী ক্যালেন্ডার আইটেমগুলি বেসরকারী কিনা তা ভিত্তিতে শ্রেণিবদ্ধকরণ করতে পছন্দ করেন। যেহেতু, ক্যালেন্ডারে, ব্যক্তিগত আইটেমগুলির ডিফল্টরূপে দৃষ্টিভঙ্গিতে কোনও প্রকাশিত পার্থক্য থাকে না, তাই ব্যক্তিগত আইটেমগুলিকে আরও সহজে সনাক্ত করতে আপনি আউটলুককে একটি নির্দিষ্ট রঙে এটিকে প্রদর্শন করতে পারেন। এটি পেতে আমরা আপনাকে 2 টি পদ্ধতির শিখাব।
পদ্ধতি 1: "শর্তসাপেক্ষ বিন্যাস" ব্যবহার করুন
- শুরুতে, Outlook চালু করুন এবং “Calendar” প্যানে প্রবেশ করুন।
- তারপরে, "দেখুন" ট্যাবে ফিরে যান এবং "ক্যালেন্ডারে" ভিউ পরিবর্তন করুন।
- এরপরে, "সেটিংস দেখুন" বোতামটি চাপুন।
- পপআপ ডায়ালগ বাক্সে, "শর্তসাপেক্ষ বিন্যাস" ক্লিক করুন।
- পরে, পরবর্তী সংলাপে, "যুক্ত করুন" ক্লিক করুন এবং "ব্যক্তিগত" এর মতো একটি নাম লিখুন।
- তারপরে, আমার উদাহরণের জন্য একটি নির্দিষ্ট রঙ নির্বাচন করুন, যেমন "গাark় লাল"।
- এর পরে, "শর্ত" বোতামটি ক্লিক করুন।
- পরবর্তী ডায়লগ বাক্সে, "উন্নত" ট্যাবে স্যুইচ করুন এবং নিম্নলিখিত ফিল্টারটি যুক্ত করুন:
Sensitivity > equals > private
- অবশেষে, এই ফর্ম্যাটিং নিয়মটি সংরক্ষণ করতে "তালিকায় যুক্ত করুন" এবং কয়েকটি "ওকে" ক্লিক করুন।
- এখন থেকে, সমস্ত ব্যক্তিগত ক্যালেন্ডার আইটেমগুলি "গাark় লাল" এ দেখানো হবে।
পদ্ধতি 2: ভিবিএতে "অটো রঙের শ্রেণিবদ্ধকরণ" ব্যবহার করুন
- প্রথমে, একটি নির্দিষ্ট রঙের সাথে "ব্যক্তিগত" নামে একটি নতুন রঙের বিভাগ তৈরি করুন।
- এরপরে, আউটলুক ভিবিএ সম্পাদক লঞ্চ করুন “আপনার আউটলুকে কীভাবে ভিবিএ কোড চালাবেন"।
- তারপরে, "এই আউটলুকসেশন" প্রকল্পে নিম্নলিখিত কোডটি রাখুন।
Private WithEvents objCalendarItems As Outlook.Items
Private Sub Application_Startup()
Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
Dim objCalendarItem As Outlook.AppointmentItem
Set objCalendarItem = Item
If objCalendarItem.Sensitivity = olPrivate Then
objCalendarItem.Categories = "Private"
Else
Call RemovePrivateCategory(objCalendarItem, "Private")
End If
objCalendarItem.Save
End Sub
Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
Dim objCalendarItem As Outlook.AppointmentItem
Set objCalendarItem = Item
If objCalendarItem.Sensitivity = olPrivate Then
objCalendarItem.Categories = "Private"
Else
Call RemovePrivateCategory(objCalendarItem, "Private")
End If
objCalendarItem.Save
End Sub
Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String)
Dim varCategories As Variant
Dim i As Long
varCategories = Split(objCurrentItem.Categories, ",")
If UBound(varCategories) >= 0 Then
For i = 0 To UBound(varCategories)
If Trim(varCategories(i)) = strCategory Then
varCategories(i) = ""
objCurrentItem.Categories = Join(varCategories, ",")
Exit Sub
End If
Next
End If
End Sub
- অবশেষে, এই ম্যাক্রোটি সক্রিয় করতে Outlook পুনরায় চালু করুন।
- এখন, আপনি চেষ্টা করতে পারেন।
- ডিফল্ট ক্যালেন্ডারে কোনও আইটেমের উপরে পিচ।
- তারপরে, এটি "ব্যক্তিগত" এ পরিবর্তন করুন।
- একবারে, "ব্যক্তিগত" রঙের বিভাগটি এই আইটেমটিতে বরাদ্দ করা হবে, যেমন নীচের স্ক্রিনশটটিতে দেখানো হয়েছে।
আপনার মূল্যবান আউটলুক ডেটা উদ্ধার করুন
আউটলুক যেহেতু দুর্বল, তাই অনেক ব্যবহারকারী কখনও পিএসটি দুর্নীতির শিকার হয়েছেন। সাধারণভাবে, এটির মুখোমুখি হওয়ার সময়, আপনি প্রথমে চেষ্টা করতে পারেন ইনবক্স মেরামতের সরঞ্জাম ফাইল ঠিক করতে। তবুও, যদি এটি ব্যর্থ হয়, আপনি আরও শক্তিশালী এবং নির্ভরযোগ্য বাহ্যিক ইউটিলিটি, যেমন অবলম্বন করতে পারেন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় sql দুর্নীতি এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com