আপনি যদি আউটলুক মিটিংগুলিকে রঙের বিভাগ দ্বারা শ্রেণীবদ্ধ করেন এবং বিভিন্ন রঙের বিভাগে মিটিংয়ের জন্য আলাদা অনুস্মারক সময় সেট করতে চান তবে আপনি এই নিবন্ধটি উল্লেখ করতে পারেন। এখানে আমরা আপনাকে আউটলুক VBA এর মাধ্যমে এটি উপলব্ধি করতে শেখাব।
উদাহরণস্বরূপ, আপনি মিটিংগুলোকে দুটি গ্রুপে ভাগ করছেন। একটি হলো “অফসাইট” ক্যাটাগরির, কারণ মিটিংয়ের স্থানটি অনেক দূরে, এবং অন্যটি হলো “অনসাইট” ক্যাটাগরির, কারণ স্থানটি এখানেই। এখন, আপনি চান যে আউটলুক যেন “অফসাইট” মিটিংয়ের রিমাইন্ডার টাইম স্বয়ংক্রিয়ভাবে শুরু হওয়ার ১ ঘন্টা আগে এবং “অনসাইট” মিটিংয়ের রিমাইন্ডার টাইম শুরু হওয়ার ১৫ মিনিট আগে সেট করে দেয়। এই প্রয়োজনটি বিবেচনা করে, এরপরে আমরা একটি দ্রুত পদ্ধতি শেয়ার করব।
স্বয়ংক্রিয়ভাবে বিভিন্ন রঙের বিভাগে মিটিংয়ের জন্য আলাদা অনুস্মারক সেট করুন
- শুরু করার জন্য, আপনার আউটলুক অ্যাপ্লিকেশনটি চালু করুন।
- তারপর, VBA সম্পাদক উইন্ডো অ্যাক্সেস করতে "Alt + F11" কী বোতাম টিপুন।
- এর পরে, পরবর্তী উইন্ডোতে, "ThisOutlookSession" প্রকল্পে নীচের VBA কোডটি অনুলিপি করুন এবং পেস্ট করুন৷
Public WithEvents objCalendar As Outlook.Folder
Public WithEvents objCalendarItems As Outlook.Items
Private Sub Application_Startup()
Set objCalendar = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar)
Set objCalendarItems = objCalendar.Items
End Sub
Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
Call SetReminder_BasedOnCategories(Item)
End Sub
Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
Call SetReminder_BasedOnCategories(Item)
End Sub
Private Sub SetReminder_BasedOnCategories(ByVal objCalendarItem As Object)
Dim objMeeting As Outlook.AppointmentItem
Dim strCategories As String
If objCalendarItem.Class = olAppointment Then
'Check if the item is a meeting
If objCalendarItem.MeetingStatus = olMeeting Then
Set objMeeting = objCalendarItem
strCategories = objMeeting.Categories
'Set Reminder as 60 min before start for offsite appointments
If InStr(strCategories, "Offsite") > 0 Then
With objMeeting
.ReminderSet = True
.ReminderMinutesBeforeStart = 60
.Save
End With
'Set Reminder as 15 min before start for onsite appointments
ElseIf InStr(strCategories, "Onsite") > 0 Then
With objMeeting
.ReminderSet = True
.ReminderMinutesBeforeStart = 15
.Save
End With
End If
End If
End If
End Sub
- পরবর্তীতে, এই ম্যাক্রোটি চালানোর জন্য আপনাকে “Application_Startup” সাবরুটিনে ক্লিক করে “F5” কী চাপতে হবে।
- তারপর থেকে, প্রতিবার যখন একটি নতুন মিটিং ডিফল্ট ক্যালেন্ডারে যোগ করা হয় বা আপনি একটি বিদ্যমান মিটিং পরিবর্তন করেন, আউটলুক স্বয়ংক্রিয়ভাবে মিটিংয়ের বিভাগগুলি পরীক্ষা করবে এবং স্বয়ংক্রিয়ভাবে বিভিন্ন অনুস্মারক সময় সেট করবে৷
আউটলুক ত্রুটিগুলি দূর করুন
সময়ে সময়ে আউটলুকে বিভিন্ন সমস্যা দেখা দিতে পারে। তাই, আউটলুকের সমস্যাগুলো কীভাবে মোকাবেলা করতে হয় তা ব্যবহারকারীদের জেনে রাখা অত্যন্ত গুরুত্বপূর্ণ। প্রথমত, আপনার নিয়মিত আউটলুক ডেটার ব্যাকআপ রাখা উচিত। এছাড়াও, সাধ্যের মধ্যে থাকলে একটি শক্তিশালী ব্যাকআপ রাখার পরামর্শ দেওয়া হয়। আউটলুক মেরামত কাছাকাছি সরঞ্জাম, যেমন DataNumen Outlook Repair. এটি আপনার PST ফাইল স্ক্যান করতে পারে আউটলুক সমস্যাগুলি বের করতে এবং তারপরে সহজেই সেগুলি সমাধান করতে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় স্কয়ার পুনরুদ্ধার এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com