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

আউটলুক সমাধান সেপ্টেম্বর 29, 2025

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

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

অটো মার্ক উইকএন্ড অ্যাপয়েন্টমেন্ট ব্যক্তিগত হিসাবে

প্রথমে আউটলুক ভিবিএ এডিটর চালু করুন “আপনার আউটলুকে কীভাবে ভিবিএ কোড চালাবেন"।
তারপর, "অ্যাপ্লিকেশনের জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে, নিম্নলিখিত কোডটি "ThisOutlookSession" প্রকল্পে রাখুন।

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objAppointment As Outlook.AppointmentItem

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olAppointment Then
       Set objAppointment = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    Call MarkWeedendAppointmentPrivate(objAppointment)
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "Start" Or Name = "End" Then
       Call MarkWeedendAppointmentPrivate(objAppointment)
    End If
End Sub

Private Sub MarkWeedendAppointmentPrivate(ByVal objAppointment As Outlook.AppointmentItem)
    Dim dStartDate As Date
 
    dStartDate = Format(objAppointment.Start, "Short Date")
 
    'If the appointment start falls on weekend
    Select Case Weekday(dStartDate)
           Case 7, 1
                'Mark it private
                objAppointment.Sensitivity = olPrivate
    End Select
End Sub

এর পরে, রেসtarম্যাক্রো সক্রিয় করতে আউটলুক
এখন থেকে, প্রতিবার যখন আপনি একটি নতুন অ্যাপয়েন্টমেন্ট তৈরি করবেন বা উইকএন্ডে একটি বিদ্যমান অ্যাপয়েন্টমেন্ট পরিবর্তন করবেন, Outlook স্বয়ংক্রিয়ভাবে এটিকে ব্যক্তিগত হিসাবে চিহ্নিত করবে৷

বিরক্তিকর আউটলুক সমস্যার সমাধান করুন

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

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

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