যখন আপনি আউটলুক ক্যালেন্ডারে কোনো অ্যাপয়েন্টমেন্ট তৈরি বা পরিবর্তন করেন, তখন আউটলুক স্বয়ংক্রিয়ভাবে পরীক্ষা করে দেখে যে কোনো সাংঘর্ষিক অ্যাপয়েন্টমেন্ট আছে কিনা। এই সময়ে, আপনি যদি দ্বন্দ্বগুলো পরীক্ষা করতে চান, তাহলে এই পোস্টে বর্ণিত পদ্ধতিটি ব্যবহার করতে পারেন।
একটি আউটলুক অ্যাপয়েন্টমেন্ট তৈরি বা পরিবর্তন করার সময় সম্ভবত আপনি "অন্য অ্যাপয়েন্টমেন্টের সাথে দ্বন্দ্ব" পাঠ্যটি দেখেছেন। এটি কারণ যে আউটলুক বিরোধগুলি স্বয়ংক্রিয়ভাবে পরীক্ষা করতে পারে। তবে, আউটলুক আপনাকে তার ডিফল্ট বৈশিষ্ট্যগুলির দ্বারা দ্রুত বিবাদগুলি খুঁজে পেতে সহায়তা করতে পারে না। সুতরাং, এখানে আমরা আপনাকে সমস্ত বিবাদী অ্যাপয়েন্টমেন্টগুলি অনুসন্ধানের জন্য ফাংশনটি তৈরি করার একটি পদ্ধতি বলব।
নির্দিষ্ট অ্যাপয়েন্টমেন্টের সাথে বিরোধযুক্ত অন্যান্য সমস্ত অ্যাপয়েন্টমেন্টগুলি সন্ধান করুন
- একেবারে গোড়ার দিকে আপনার আউটলুক প্রোগ্রামটি চালু করুন।
- তারপরে, আউটলুকের প্রধান উইন্ডোতে, "Alt + F11" কী বোতাম টিপুন।
- একবারে, আপনি আউটলুক ভিবিএ সম্পাদকটি অ্যাক্সেস করতে পারবেন, যাতে আপনাকে অব্যবহৃত মডিউলটি খোলার প্রয়োজন।
- এরপরে, এই মডিউলটিতে নিম্নলিখিত ভিবিএ কোডটি অনুলিপি করুন।
Sub FindOutConflictingAppointments()
Dim objAppointment As AppointmentItem
Dim dStartTime, dEndTime As Date
Dim strFilter As String
Dim objAppointments As Items
Dim objFoundAppointments As Items
Dim objItem As AppointmentItem
Dim i As Long
Dim strConflicts As String
Dim strMsg As String
Select Case Application.ActiveWindow.Class
Case olExplorer
Set objAppointment = Application.ActiveExplorer.Selection(1)
Case olInspector
Set objAppointment = Application.ActiveInspector.CurrentItem
End Select
dStartTime = objAppointment.start
dEndTime = objAppointment.End
Set objAppointments = Application.ActiveExplorer.CurrentFolder.Items
i = 1
'1: Find all appts whose end time within the start and end time of source appt
strFilter = "[End] >= " & Chr(34) & Format(dStartTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34) & " AND [End] <= " & Chr(34) & Format(dEndTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34)
Set objFoundAppointments = objAppointments.Restrict(strFilter)
For Each objItem In objFoundAppointments
If objItem.Subject <> objAppointment.Subject Then
strConflicts = strConflicts & i & ". " & objItem.Subject & vbCrLf
i = i + 1
End If
Next
'2: Find all appts occurring within the start and end time of source appt
strFilter = "[Start] >= " & Chr(34) & Format(dStartTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34) & " AND [End] <= " & Chr(34) & Format(dEndTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34)
Set objFoundAppointments = objAppointments.Restrict(strFilter)
For Each objItem In objFoundAppointments
If objItem.Subject <> objAppointment.Subject Then
strConflicts = strConflicts & i & ". " & objItem.Subject & vbCrLf
i = i + 1
End If
Next
'3: Find all appts whose start time within the start and end time of source appt
strFilter = "[Start] >= " & Chr(34) & Format(dStartTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34) & " AND [Start] <= " & Chr(34) & Format(dEndTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34)
Set objFoundAppointments = objAppointments.Restrict(strFilter)
For Each objItem In objFoundAppointments
If objItem.Subject <> objAppointment.Subject Then
strConflicts = strConflicts & i & ". " & objItem.Subject & vbCrLf
i = i + 1
End If
Next
'4: Find all appts cover the entire source appt
strFilter = "[Start] <= " & Chr(34) & Format(dStartTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34) & " AND [End] >= " & Chr(34) & Format(dEndTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34)
Set objFoundAppointments = objAppointments.Restrict(strFilter)
For Each objItem In objFoundAppointments
If objItem.Subject <> objAppointment.Subject Then
strConflicts = strConflicts & i & ". " & objItem.Subject & vbCrLf
i = i + 1
End If
Next
strMsg = i - 1 & " Conflicting Appointments:" & vbCrLf & vbCrLf & strConflicts
MsgBox strMsg, vbInformation + vbOKOnly, "Check Conflicts"
End Sub
- এর পরে, আপনি বর্তমান উইন্ডোটি থেকে প্রস্থান করতে পারেন।
- তারপরে যথারীতি এই ম্যাক্রোটি দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে যুক্ত করুন।
- পরে আপনার এটিও নিশ্চিত করা উচিত যে আপনার আউটলুকে ম্যাক্রোগুলি সক্ষম রয়েছে। এটি পরীক্ষা করতে কেবল "ম্যাক্রো সেটিং" এ যান।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- প্রথমত, একটি অ্যাপয়েন্টমেন্ট নির্বাচন করুন বা খুলুন, যেখানে একটি "অন্য অ্যাপয়েন্টমেন্টের সাথে বিরোধ" প্রম্পট রয়েছে।
- তারপরে কুইক অ্যাক্সেস টুলবারের ম্যাক্রো বোতামটি ক্লিক করুন।
- একবারে, আপনি একটি বার্তা পাবেন যা সমস্ত বিবাদী অ্যাপয়েন্টমেন্টগুলি তালিকাভুক্ত করছে, নিম্নলিখিত স্ক্রিনশট হিসাবে দেখানো হয়েছে:
আউটলুক দুর্নীতির আগে প্রয়োজনীয় সতর্কতা
এটা জানা কথা যে আউটলুক ক্র্যাশ করতে পারে এবং এতে ত্রুটি দেখা দিতে পারে। তাই, আউটলুক করাপশনের জন্য ভালোভাবে প্রস্তুত থাকা একটি অপরিহার্য বিষয়। সবচেয়ে জরুরি সতর্কতাগুলোর মধ্যে একটি হলো নিয়মিত ব্যাকআপ নেওয়া। এছাড়াও, একটি শক্তিশালী বিশেষায়িত ব্যাকআপ প্রস্তুত রাখার পরামর্শ দেওয়া হয়। আউটলুক মেরামত সরঞ্জাম, মত DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ পুনরুদ্ধার এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com