আউটলুকে আপনার কাজের সময়ের ওপর ভিত্তি করে সারাদিনের ইভেন্টগুলোর ডিফল্ট শুরু এবং শেষের সময় কীভাবে সেট করবেন

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

আপনি দেখতে পাচ্ছেন, যখন আপনি কোনো অ্যাপয়েন্টমেন্টে “সারাদিনের ইভেন্ট” অপশনটি চালু করেন, তখন “শুরুর সময়” এবং “শেষের সময়” উভয় ফিল্ডই ধূসর হয়ে যায়। এক্ষেত্রে, এর মানে হলো আপনি নিজের পছন্দমতো সেগুলো পরিবর্তন করতে পারবেন না। তাই, নিচে আমরা আপনার Outlook-এ আপনার কাজের সময়ের উপর ভিত্তি করে সারাদিনের ইভেন্টগুলোর ডিফল্ট শুরু এবং শেষের সময় সেট করার একটি পদ্ধতি শেয়ার করব।

কর্মঘণ্টা অনুযায়ী দিনব্যাপী ইভেন্টগুলোর ডিফল্ট শুরু ও শেষের সময় নির্ধারণ করুন।

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

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

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
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 objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. এর পরে, আপনার এই কোডটি সাইন করতে হবে। "সরঞ্জাম"> "স্বাক্ষর" ক্লিক করুন।
7. পরবর্তী ডায়লগ বাক্সে, নতুন ভিবিএ প্রকল্পে ডিজিটাল শংসাপত্র নির্ধারণের জন্য অনস্ক্রিন নির্দেশাবলী অনুসরণ করুন।
8. পরে আপনাকে ডিজিটালি স্বাক্ষরিত ম্যাক্রোগুলির অনুমতি দেওয়ার জন্য আপনার আউটলুক ম্যাক্রো সেটিংস পরিবর্তন করতে হবে।
9. অবশেষে এই ম্যাক্রোটি সক্রিয় করতে আপনি আপনার আউটলুক অ্যাপ্লিকেশনটি পুনরায় চালু করতে পারেন।
10. এখন থেকে, যখনই আপনি কোনো Outlook অ্যাপয়েন্টমেন্টে “All day event” অপশনটি চালু করবেন, অ্যাপয়েন্টমেন্টটির শুরু এবং শেষের সময় আপনার কর্মঘণ্টা অনুযায়ী পরিবর্তিত হয়ে যাবে, যেমনটি নিচের স্ক্রিনশটে দেখানো হয়েছে:

আপোস করা আউটলুক ফাইল থেকে মূল্যবান ডেটা পুনরুদ্ধার করুন

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

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

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