এই নিবন্ধটি আপনাকে শিখিয়ে দেবে যে কীভাবে আউটলুকে আপনি প্রতিদিন কতগুলি ইমেল পেয়েছিলেন তা স্বয়ংক্রিয়ভাবে গণনা করতে এবং একটি এক্সেল ফাইলে নম্বরটি কীভাবে লিখতে হয়।
অনেক ব্যবহারকারীকে প্রতিদিন প্রাপ্ত মোট ইমেলগুলি গণনা করতে হবে। এছাড়াও, ভবিষ্যতে আরও সুবিধাজনক পরীক্ষার জন্য, অনেকে একটি এক্সেল ফাইলে মোট গণনা রেকর্ড করতে অভ্যস্ত। এই ক্ষেত্রে, অবশ্যই আপনি প্রতিদিন গণনা এবং ম্যানুয়ালি রেকর্ড করতে পারেন। তবে এটি কিছুটা ঝামেলার বিষয়। এবং আপনি কখনও কখনও এটি করতে ভুলে যেতে পারেন। অতএব, আপনার অবশ্যই একটি সহজ পদ্ধতি চাওয়া উচিত, যা আউটলুককে স্বয়ংক্রিয়ভাবে এটি করতে পারে। এই প্রয়োজনীয়তার প্রতিক্রিয়া হিসাবে, আমরা আপনাকে নিম্নলিখিতটি অনুধাবন করতে কীভাবে ভিবিএ ব্যবহার করতে হবে তা শিখাব।
প্রতিটি এক্সেল ফাইলে প্রতিদিন আগত ইমেলের মোট গণনা অটো রেকর্ড করুন
- একেবারে গোড়ার দিকে আপনার আউটলুক অ্যাপ্লিকেশনটি চালু করুন।
- তারপরে মূল আউটলুক উইন্ডোতে "Alt + F11" কী শর্টকাটগুলি টিপুন।
- পপআপ ভিবিএ সম্পাদক উইন্ডোটির পরবর্তী, "এই আউটলুকসেশন" প্রকল্পটি খুলুন।
- পরবর্তীকালে, এই প্রকল্পে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করুন এবং আটকান।
Private Sub Application_Reminder(ByVal Item As Object)
If Item.Class = olTask And Item.Subject = "Update Email Count" Then
Call GetAllInboxFolders
End If
End Sub
Private Sub GetAllInboxFolders()
Dim objInboxFolder As Outlook.Folder
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nNextEmptyRow As Integer
Dim lEmailCount As Long
lEmailCount = 0
Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Call UpdateEmailCount(objInboxFolder, lEmailCount)
‘Change the path to the Excel file
strExcelFile = "E:\Email\Email Count.xlsx"
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
'Add the values into the columns
objExcelWorksheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
objExcelWorksheet.Range("B" & nNextEmptyRow) = Year(Date - 1) & "-" & Month(Date - 1) & "-" & Day(Date - 1)
objExcelWorksheet.Range("C" & nNextEmptyRow) = lEmailCount
'Fit the columns from A to C
objExcelWorksheet.Columns("A:C").AutoFit
'Save the changes and close the Excel file
objExcelWorkbook.Close SaveChanges:=True
End Sub
Private Sub UpdateEmailCount(objFolder As Outlook.Folder, ByRef lCurEmailCount As Long)
Dim objItems As Outlook.Items
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim strDay As String
Dim strReceivedDate As String
Dim lEmailCount As Long
Dim objSubFolder As Outlook.Folder
Set objItems = objFolder.Items
objItems.SetColumns ("ReceivedTime")
strDay = Year(Date - 1) & "-" & Month(Date - 1) & "-" & Day(Date - 1)
For Each objItem In objItems
If objItem.Class = olMail Then
Set objMail = objItem
strReceivedDate = Year(objMail.ReceivedTime) & "-" & Month(objMail.ReceivedTime) & "-" & Day(objMail.ReceivedTime)
If strReceivedDate = strDay Then
lCurEmailCount = lCurEmailCount + 1
End If
End If
Next
'Process the subfolders in the folder recursively
If (objFolder.Folders.Count > 0) Then
For Each objSubFolder In objFolder.Folders
Call UpdateEmailCount(objSubFolder, lCurEmailCount)
Next
End If
End Sub
- এরপরে, এই কোডটিতে স্বাক্ষর করুন এবং স্বাক্ষরিত ম্যাক্রোগুলিকে অনুমতি দেওয়ার জন্য আপনার আউটলুক ম্যাক্রো সেটিংস পরিবর্তন করুন।
- এর পরে, আপনাকে প্রতিদিনের ভিত্তিতে একটি পুনরাবৃত্ত টাস্ক তৈরি করতে হবে।
- প্রথমত, কার্য ফলকে "নতুন কার্য" বোতামটি ক্লিক করুন।
- পপআপ নতুন কার্য উইন্ডোতে, "পুনরাবৃত্তি" বোতামটি ক্লিক করুন।
- তারপরে পরবর্তী ডায়লগ বাক্সে, "প্রতিদিন", "প্রতি 1 দিন (গুলি)" এবং "শেষের তারিখ নয়" নির্বাচন করুন এবং শেষ পর্যন্ত "ঠিক আছে" টিপুন।
- পরে আপনার প্রয়োজন অনুসারে কার্যের বিষয় এবং অনুস্মারকটি পরিবর্তন করুন।
- অবশেষে "সংরক্ষণ করুন এবং বন্ধ করুন" বোতামটি ক্লিক করুন।
- এখন থেকে প্রতিবার এই কাজের অনুস্মারক সতর্কতাগুলি দেওয়ার পরে, আউটলুক গতকাল প্রাপ্ত ইমেলগুলি স্বয়ংক্রিয়ভাবে গণনা করবে এবং তারপরে নিম্নলিখিত স্ক্রিনশটের মতো নম্বরটি এক্সেল ফাইলে রেকর্ড করবে:
স্থায়ী পিএসটি ডেটা ক্ষতি থেকে মুক্তি
কেউ স্থায়ী পিএসটি ডেটা ক্ষতি গ্রহণ করতে রাজি নয়। তবে, আউটলুক পিএসটি ফাইল দুর্নীতির ঝুঁকির মধ্যে রয়েছে। সুতরাং, আপনার যথাযথ সতর্কতা অবলম্বন করা উচিত, যেমন একটি সামঞ্জস্যপূর্ণ এবং আপ টু ডেট পিএসটি ডেটা ব্যাকআপ তৈরি করা এবং শক্তিশালী রাখা পিএসটি পুনরুদ্ধার আশেপাশে সরঞ্জাম, পছন্দ DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় বর্গফুট মেরামত এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com