কখনও কখনও, আপনি আপনার আউটলুক পরিচিতির বয়স গণনা করতে চাইতে পারেন। কিন্তু আউটলুকের এই ফাংশনটি নেই এবং ম্যানুয়ালি গণনা ত্রুটি প্রবণ হবে। এই নিবন্ধটি আপনাকে আউটলুক ভিবিএর মাধ্যমে 2 টি দ্রুত পদ্ধতির পরিচয় করিয়ে দেবে।
নতুন আউটলুক কন্ট্যাক্ট তৈরি করার সময়, আপনি কন্ট্যাক্টদের জন্মদিন ইনপুট করতে পারেন। এরপর আউটলুক স্বয়ংক্রিয়ভাবে আপনার ক্যালেন্ডারে সেই অনুযায়ী পুনরাবৃত্তিমূলক জন্মদিনের ইভেন্ট তৈরি করে দেবে। ফলে যখনই কারও জন্মদিন আসবে, আপনি একটি রিমাইন্ডার পাবেন। এই পর্যায়ে, আপনি নিশ্চয়ই কন্ট্যাক্টটির বয়স জানতে চাইবেন। কিন্তু কন্ট্যাক্টের বয়স গণনা করার জন্য আউটলুকের নিজস্ব কোনো ফিচার নেই। সৌভাগ্যবশত, আমরা অত্যন্ত সহজে এটি পাওয়ার জন্য আউটলুক ভিবিএ (Outlook VBA) ব্যবহার করতে পারি।
পদ্ধতি 1: একটি নির্দিষ্ট আউটলুক যোগাযোগের বয়স পান
- শুরুতে, Outlook চালু করুন এবং “Alt + F11” কী-বাটনগুলো চাপুন।
- তারপরে নতুন "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে আপনার একটি নতুন মডিউল খোলার এবং নিম্নলিখিত ভিবিএ কোডগুলিকে অনুলিপি করা উচিত।
Sub CountContactAge()
Dim olContact As ContactItem
Dim bDay As Date
Dim Age As Integer
Dim strMsg As String
Dim nRes As Integer
Set olContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
If TypeName(olContact) = "ContactItem" Then
If olContact.Birthday <> #1/1/4501# Then
bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
Age = DateDiff("yyyy", olContact.Birthday, bDay)
strMsg = olContact.FullName & " is " & Age & " years old now."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Contact Age")
Else
strMsg = "You haven't input " & olContact.FullName & "'s birthday yet."
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation, "Count Contact Age")
End If
End If
End Sub
- পরবর্তী সময়ে, আপনি বর্তমান উইন্ডো থেকে প্রস্থান করতে এবং যথারীতি দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে নতুন ম্যাক্রো যুক্ত করতে পারেন।
- এর পরে, আপনি আপনার পরিচিতি ফোল্ডারে অ্যাক্সেস করতে পারেন এবং নির্দিষ্ট পরিচিতিটি নির্বাচন করতে এবং দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে ম্যাক্রো বোতাম টিপতে পারেন।
- শেষ পর্যন্ত আপনি নিম্নলিখিত ফলাফল পেতে পারেন:
- আপনি যদি যোগাযোগের জন্মদিনগুলি ইনপুট না করেন তবে আপনি নিম্নলিখিত চিত্রের মতো একটি সতর্কতা পাবেন:
- যদি আপনি পরিচিতির জন্মদিনটি ইনপুট করেন তবে আপনি একটি ডায়ালগ বক্স পাবেন যা আপনাকে নীচের চিত্রের মতো যোগাযোগের বয়সটি বলে দেবে:
আপনি যদি একাধিক বা সমস্ত পরিচিতির বয়স পেতে চান তবে পদ্ধতি 1 টি ক্লান্তিকর হবে। সুতরাং পদ্ধতি 2 ব্যবহার করতে দয়া করে পড়ুন।
পদ্ধতি 2: দ্রুত সমস্ত আউটলুক পরিচিতিগুলির বয়স পান
- প্রথমে পরিচিতি প্যানেতে যান এবং "দেখুন" ট্যাবে "দেখুন সেটিংস" বোতামটি টিপুন।
- নতুন "অ্যাডভান্সড ভিউ সেটিংস" ডায়ালগ বক্সে, "কলাম" বোতামটি চাপুন।
- তারপরে "কলাম দেখান" ডায়ালগ বক্সে, "নতুন কলাম" বোতাম টিপুন। "নতুন কলাম" কথোপকথনে, "নাম" বাক্সে "বয়স" টাইপ করুন এবং তারপরে "ঠিক আছে" চাপুন।
- এর পরে, মূল আউটলুক উইন্ডোতে ফিরে যেতে "ওকে" একটি সিরিজ ক্লিক করুন।
- এরপরে, "ভিজ্যুয়াল বেসিক" উইন্ডোটি খুলতে "Alt + F11" টিপুন এবং নিম্নলিখিত কোডগুলি একটি নতুন মডিউলে অনুলিপি করুন।
Sub AddAgeColumn()
Dim obj As Object
Dim olContact As Object
Dim olProp As Outlook.UserProperty
Dim bDay As Date
Dim Age
On Error Resume Next
For Each obj In Application.ActiveExplorer.Selection
If TypeName(obj) = “ContactItem” And obj.Birthday <> #1/1/4501# Then
Set olContact = obj
bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
Age = DateDiff("yyyy", olContact.Birthday, bDay)
Set olProp = olContact.UserProperties.Add("Age", olText, True)
olProp.Value = Age
olContact.Save
End If
Err.Clear
Next
End Sub
- পরে আপনি দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে নতুন ম্যাক্রো যুক্ত করতে পারেন।
- অবশেষে "Ctrl + A" দ্বারা সমস্ত পরিচিতি নির্বাচন করুন এবং দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে ম্যাক্রো বোতাম টিপুন। নীচের ছবির মতো জন্মদিনের দিনগুলি পূরণ না করা ব্যতীত আপনি সমস্ত পরিচিতির বয়স পাবেন:
আপনার আউটলুক ডেটা আশেপাশে ঝুঁকি থেকে সাবধান
দৃষ্টিভঙ্গি দুর্নীতিতে প্রবণ। অতএব, আপনার আউটলুক ডেটার চারপাশে সমস্ত বিপদে ট্যাব রাখা উচিত keep এগুলি সাধারণত ভাইরাস, ম্যালওয়্যার, বিদ্যুৎ বিভ্রাট এবং মানুষের ত্রুটি ইত্যাদি Moreover তদতিরিক্ত, যাতে আপনি দ্রুত তা নিশ্চিত করতে পারেন আউটলুক পিএসটি ডেটা দুর্নীতি মেরামতের, আপনি কাছাকাছি জায়গায় একটি অভিজ্ঞ মেরামত সরঞ্জাম রাখা চাই DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত ক্ষতিগ্রস্থ এসকিউএল ফাইল এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com