আপনি যদি প্রেরকের মাধ্যমে ইমেলগুলি গণনা করতে চান তবে আপনি এই নিবন্ধটি উল্লেখ করতে পারেন। এখানে আমরা আপনার কাছে 2 দ্রুত পদ্ধতির প্রকাশ করব।
আপনার জন্য সবচেয়ে সক্রিয় প্রেরককে জানার জন্য, আপনি প্রেরক অনুসারে ইমেল গণনা করতে চাইতে পারেন। যদিও আউটলুকে এর জন্য সরাসরি কোনো ফিচার নেই, তবুও আপনি কিছু বিকল্প উপায় অবলম্বন করতে পারেন, যেমন নিম্নলিখিত পদ্ধতি ১। যদি আপনার মনে হয় পদ্ধতি ১ খুব কষ্টসাধ্য, তবে আপনি পদ্ধতি ২ বেছে নিতে পারেন। এটি অনেক বেশি কার্যকর কারণ এটি VBA ব্যবহার করে দ্রুত প্রেরক অনুসারে ইমেল গণনা করে এবং গণনার ফলাফল এক্সেলে এক্সপোর্ট করে। এখন এই দুটি উপায় সম্পর্কে বিস্তারিতভাবে পড়ুন। এখানে আমরা উদাহরণ হিসেবে ইনবক্সের ইমেলগুলো নেব।
পদ্ধতি 1: "থেকে" ক্ষেত্রের মাধ্যমে আইটেম গোষ্ঠীকরণের পরে গণনা পান
- শুরু করার জন্য, আউটলুক অ্যাপ্লিকেশন চালু করুন।
- তারপরে, ইনবক্স ফোল্ডারটি খুলুন।
- এরপরে, "দেখুন" ট্যাবে স্যুইচ করুন।
- পরবর্তীকালে, "ব্যবস্থা" গ্রুপে "থেকে" চয়ন করুন।
- একবারে, সমস্ত প্রেরক অনুসারে সমস্ত ইনবক্স আইটেমগুলি বিভিন্ন গোষ্ঠীতে আলাদা করা হয়েছে।
- এখন, নির্দিষ্ট প্রেরকের কাছ থেকে আইটেমগুলি গণনা করতে, আপনি সংশ্লিষ্ট গ্রুপের সমস্ত আইটেম নির্বাচন করতে পারেন এবং "এন্টার" কী টিপতে পারেন। পপআপ সতর্কতার মধ্যে, আপনি গণনা দেখতে পারেন।
এর অর্থটি বেশ সহজ, তবে আইটেমের গণনাগুলিতে অন্যান্য প্রকারের আইটেমগুলি যেমন আমন্ত্রণ, কার্য অনুরোধ এবং প্রাপ্তিগুলি কেবল ইমেল গণনা নয় অন্তর্ভুক্ত। সুতরাং, আপনি যদি কেবল ইমেলগুলি গণনা করতে চান তবে পরিবর্তে আপনি নিম্নলিখিত পদ্ধতি ব্যবহার করতে পারেন।
পদ্ধতি 2: আউটলুক ভিবিএ সহ প্রেরকের দ্বারা ইমেলগুলি গণনা করুন
- শুরুতে, Outlook-এ “Alt + F11” কী-বাটনগুলো চাপুন।
- তারপর, “MS Excel Object Library” সক্রিয় করুনVBA-তে কীভাবে একটি অবজেক্ট লাইব্রেরি রেফারেন্স যুক্ত করবেন"।
- এর পরে, নীচের কোডটি একটি অব্যবহৃত মডিউলে অনুলিপি করুন।
Sub CountInboxEmailsbySender()
Dim objDictionary As Object
Dim objInbox As Outlook.Folder
Dim i As Long
Dim objMail As Outlook.MailItem
Dim strSender As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim varSenders As Variant
Dim varItemCounts As Variant
Dim nLastRow As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
For i = objInbox.Items.Count To 1 Step -1
If objInbox.Items(i).Class = olMail Then
Set objMail = objInbox.Items(i)
strSender = objMail.SenderEmailAddress
If objDictionary.Exists(strSender) Then
objDictionary.Item(strSender) = objDictionary.Item(strSender) + 1
Else
objDictionary.Add strSender, 1
End If
End If
Next
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set objExcelWorkbook = objExcelApp.Workbooks.Add
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
With objExcelWorksheet
.Cells(1, 1) = "Sender"
.Cells(1, 2) = "Count"
End With
varSenders = objDictionary.Keys
varItemCounts = objDictionary.Items
For i = LBound(varSenders) To UBound(varSenders)
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Cells(nLastRow, 1) = varSenders(i)
.Cells(nLastRow, 2) = varItemCounts(i)
End With
Next
objExcelWorksheet.Columns("A:B").AutoFit
End Sub
- এর পরে, "F5" কী বোতাম টিপুন।
- ম্যাক্রো শেষ হয়ে গেলে, একটি নতুন এক্সেল ফাইল প্রদর্শিত হবে।
- আপনি দেখতে পাচ্ছেন, এতে বিভিন্ন প্রেরকের ইনবক্স ইমেলের সংখ্যা রয়েছে।
হতাশাজনক আউটলুক সমস্যাগুলি নিষ্পত্তি করুন
হতে পারে আপনি কখনও আপনার আউটলুকের অনেকগুলি সমস্যায় পড়েছেন। তাদের কার্যকরভাবে সম্বোধন করার জন্য, আপনি বহুমুখী এবং শক্তিশালী উপায়ে আগ্রহী হতে পারেন। তবুও, বাস্তবে এ জাতীয় পদ্ধতি নেই। আপনি যা করতে পারেন তা হ'ল আউটলুকের নিজস্ব ক্রিয়াকলাপ সম্পর্কে সচেতন হওয়া এবং নিয়মিত ব্যাকআপ নেওয়া। অবশ্যই, যদি সম্ভব হয় তবে আমরা আপনাকে পরামর্শ দিই যে আপনার মতো অভিজ্ঞ ফিক্স সরঞ্জামটি আরও ভাল রাখা উচিত DataNumen Outlook Repair। এটি বিভিন্ন পিএসটি সমস্যা ও মেরামতের সমাধান করতে পারে দুর্নীতিগ্রস্থ পিএসটি বাতাসের মতো ফাইল দাও।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় পুনরুদ্ধার Sql Server এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com