আপনি যদি বেশ কয়েকটি ফোল্ডারে প্রেরিত ইমেলগুলি সঞ্চয় করেন এবং এখন মাসে পাঠানো সমস্ত মেলগুলি গণনা করতে চান, আপনি এই নিবন্ধটি পড়তে পারেন। এটি পাওয়ার জন্য এখানে আমরা একটি দ্রুততম উপায় প্রবর্তন করব।
পূর্ববর্তী নিবন্ধ - “আউটলুক ভিবিএর মাধ্যমে কীভাবে তারিখ, মাস বা বছর অনুসারে আগত ইমেলগুলি দ্রুত গণনা করবেন"মাসে মাসে ইমেল গণনা করার একটি উপায় ভাগ করে নিয়েছে। তবে এটি একটি ফোল্ডারে ইমেলগুলি প্রক্রিয়া করতে সক্ষম। আপনি যদি বেশ কয়েকটি বা এমনকি সমস্ত মেল ফোল্ডারে ইমেলগুলি গণনা করতে চান তবে আপনার অন্য উপায়গুলি ব্যবহার করা উচিত। সুতরাং, নিম্নলিখিতগুলিতে, আমরা আপনাকে আরও একটি দ্রুত উপায় প্রকাশ করব।
মাসের মাধ্যমে প্রেরিত ইমেলগুলি গণনা করুন
- শুরু করতে, "Alt + F11" এর মাধ্যমে আউটলুক ভিবিএ সম্পাদক অ্যাক্সেস করুন।
- তারপরে, “এমএস এক্সেল অবজেক্ট লিবের উল্লেখটি সক্ষম করুনrary "অনুসারে"কীভাবে একটি অবজেক্ট লিব যোগ করবেনrary ভিবিএ রেফারেন্স"।
- এর পরে, নিম্নলিখিত ভিবিএ কোডটি একটি প্রকল্প বা মডিউলে রাখুন।
Dim objDictionary As Object
Sub CountSentMailsByMonth()
Dim objOutlookFile As Outlook.Folder
Dim objFolder As Outlook.Folder
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim varMonths As Variant
Dim varItemCounts As Variant
Dim nLastRow As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
'Get the default Outlook data file
Set objOutlookFile = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Parent
For Each objFolder In objOutlookFile.Folders
If objFolder.DefaultItemType = olMailItem Then
Call ProcessFolders(objFolder)
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) = "Month"
.Cells(1, 2) = "Count"
End With
varMonths = objDictionary.Keys
varItemCounts = objDictionary.Items
For i = LBound(varMonths) To UBound(varMonths)
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Cells(nLastRow, 1) = varMonths(i)
.Cells(nLastRow, 2) = varItemCounts(i)
End With
Next
objExcelWorksheet.Columns("A:B").AutoFit
End Sub
Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
Dim i As Long
Dim objMail As Outlook.MailItem
Dim strMonth As String
For i = objCurFolder.Items.Count To 1 Step -1
If objCurFolder.Items(i).Class = olMail Then
Set objMail = objCurFolder.Items(i)
'Change to your own email address
If objMail.SenderEmailAddress = "you@datanumen.com" Then
strMonth = Format(Year(objMail.SentOn) & "-" & Month(objMail.SentOn), "YYYY/MM")
If objDictionary.Exists(strMonth) Then
objDictionary(strMonth) = objDictionary(strMonth) + 1
Else
objDictionary.Add strMonth, 1
End If
End If
End If
Next
End Sub
- এর পরে, কার্সারটিকে প্রথম সাবরোটিনে সরান।
- পরবর্তীকালে, এই ম্যাক্রোটি ট্রিগার করতে "F5" টিপুন।
- একবারে, একটি এক্সেল ফাইল প্রদর্শিত হবে, যা প্রতি মাসে প্রেরিত ইমেলগুলির সংখ্যা রয়েছে, নীচের চিত্রে দেখানো হয়েছে।
আউটলুক দুর্নীতির মুখে আতঙ্কিত হবেন না
পিএসটি ক্ষতির মুখোমুখি হওয়ার সময় আপনি চিন্তিত হতে পারেন। তবুও, বাস্তবে, আপনি যত তাড়াতাড়ি সম্ভব শান্ত হবেন। যেমনটি আমরা সবাই জানি, আতঙ্ক অসহায় এমনকি আরও বিশৃঙ্খল এবং গুরুতর সমস্যার দিকে পরিচালিত করে। আপনার ব্যাকআপ আপডেট হয়েছে কিনা তা নিয়ে ভাবনা এবং কীভাবে তা বিবেচনা করার মতো পদক্ষেপগুলি বিবেচনা করতে আপনার শান্ত হওয়া উচিত মেরামত পিএসটি - যেমন তৃতীয় পক্ষের সরঞ্জামটি অবলম্বন করা উচিত DataNumen Outlook Repair বা সংশ্লিষ্ট পেশাদারদের সাথে যোগাযোগ করুন।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত এমডিএফ এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com