আপনি যদি নিজের আউটলুক কার্যগুলিতে বিভিন্ন বর্ণ বিভাগকে অর্পণ করে থাকেন এবং এখন বিভিন্ন পৃষ্ঠাগুলিতে বিভিন্ন বিভাগের সাথে কাজের তালিকাগুলি মুদ্রণ করতে চান, আপনি এই নিবন্ধটি উল্লেখ করতে পারেন। এটি পেতে আমরা এখানে দুটি পদ্ধতি ভাগ করব।
আপনার কার্যগুলিকে শ্রেণিবদ্ধকরণ এবং পরিচালনা করার জন্য সম্ভবত আপনি আপনার কার্যগুলিতে রঙের বিভাগ প্রয়োগ করেছেন। এখন, আপনি যদি বিভিন্ন পৃষ্ঠায় বিভিন্ন বিভাগের সাথে আপনার কার্যগুলির তালিকা মুদ্রণ করতে চান তবে অনুগ্রহ করে পড়ুন। নিম্নলিখিতগুলিতে, আমরা এটি পাওয়ার জন্য দুটি উপায় আপনাকে পরিচয় করিয়ে দেব।
পদ্ধতি 1: ম্যানুয়ালি মুদ্রণ টাস্ক একের পর এক করে
- প্রথমে, আউটলুকে, "কার্য" প্যানে অ্যাক্সেস করুন।
- তারপরে, একটি কার্য ফোল্ডার খুলুন।
- এরপরে, "অনুসন্ধান" ফিতাটি সক্রিয় করতে "Ctrl + E" টিপুন।
- এর পরে, "অনুসন্ধান" ট্যাবে "শ্রেণিবদ্ধ" বোতামটি ক্লিক করুন।
- ড্রপ ডাউন তালিকা থেকে, একটি রঙ বিভাগ নির্বাচন করুন।
- তারপরে, কেবলমাত্র নির্বাচিত বিভাগের কাজগুলি তালিকায় ছেড়ে যাবে the
- এখন, এই কার্য তালিকার মুদ্রণ করতে "ফাইল"> "মুদ্রণ" এ যান।
- পরবর্তীকালে, একইভাবে, অন্যান্য বর্ণ বিভাগগুলির সাথে তালিকাসমূহের কাজগুলি ম্যানুয়ালি মুদ্রণ করুন।
পদ্ধতি 2: ব্যাচ ভিবিএ দ্বারা কার্য তালিকা মুদ্রণ করুন
- একেবারে গোড়ার দিকে, ভিবিএ সম্পাদককে “আপনার আউটলুকে কীভাবে ভিবিএ কোড চালাবেন"।
- তারপর, “MS Excel Object Library”-এর রেফারেন্সটি নিম্নরূপে যোগ করুন।VBA-তে কীভাবে একটি অবজেক্ট লাইব্রেরি রেফারেন্স যুক্ত করবেন"।
- এরপরে, নিম্নলিখিত ভিবিএ কোডটি একটি মডিউলে অনুলিপি করুন।
Sub PrintTaskList_SpecificColorCategory()
Dim objTasks As Outlook.Items
Dim objTask As Outlook.TaskItem
Dim objDictionary As Object
Dim arrCategory As Variant
Dim varCategory As Variant
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim varKey As Variant
Dim strKey As String
Dim i As Long
Dim bSheetFound As Boolean
Dim nLastRow As Integer
Dim objSheet As Excel.Worksheet
Set objTasks = Application.Session.GetDefaultFolder(olFolderTasks).Items
Set objDictionary = CreateObject("Scripting.Dictionary")
'Get All Tasks' Categories
For Each objTask In objTasks
arrCategory = Split(objTask.Categories, ",")
For Each varCategory In arrCategory
If objDictionary.Exists(Trim(varCategory)) = False Then
objDictionary.Add Trim(varCategory), 0
End If
Next
Next
'Export the Tasks with Different Categories into Different Sheet in an Excel Workbook
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
objExcelApp.Visible = True
i = 0
For Each varKey In objDictionary.Keys
strKey = CStr(varKey)
On Error Resume Next
objExcelWorkbook.Sheets(strKey).Select
bSheetFound = (Err = 0)
On Error GoTo 0
If bSheetFound = False Then
i = i + 1
If i < 4 Then
Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
Else
Set objExcelWorksheet = objExcelWorkbook.Sheets.Add(After:=objExcelWorkbook.Sheets(objExcelWorkbook.Sheets.Count))
End If
objExcelWorksheet.Name = strKey
End If
With objExcelWorksheet
.Cells(1, 1) = strKey
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Font.Size = 18
.Cells(2, 1) = "Subject"
.Cells(2, 1).Font.Bold = True
.Cells(2, 2) = "Start Date"
.Cells(2, 2).Font.Bold = True
.Cells(2, 3) = "Due Date"
.Cells(2, 3).Font.Bold = True
End With
For Each objTask In objTasks
If InStr(objTask.Categories, strKey) > 0 Then
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Range("A" & nLastRow) = objTask.Subject
.Range("B" & nLastRow) = objTask.startDate
.Range("C" & nLastRow) = objTask.DueDate
End With
End If
Next
objExcelWorksheet.Columns("A:C").AutoFit
Next
'Print out All Sheets in this Excel Workbook
For Each objSheet In objExcelWorkbook.Sheets
objSheet.PrintOut
Next
objExcelWorkbook.Close False
objExcelApp.Quit
End Sub
- এরপরে, এই ম্যাক্রোটি এখনই চালাতে "F5" কী বোতামটি টিপুন।
- ম্যাক্রো শেষ হয়ে গেলে, নিম্নলিখিত বিভাগের স্ক্রিনশটে দেখানো হিসাবে বিভিন্ন বিভাগের সাথে তালিকাগুলির তালিকা বিভিন্ন পৃষ্ঠায় মুদ্রণ করা হবে।
কম্প্রোমাইজড পিএসটি ফাইল থেকে মূল্যবান ডেটা ফিরে পান
আপনি যদি অ্যাক্সেস অযোগ্য পিএসটি ফাইলের সাপেক্ষে থাকেন তবে আপনার পরবর্তী পদক্ষেপ নিঃসন্দেহে পিএসটি মেরামত। এই ক্ষেত্রে, আপনি প্রথমে ইনবক্স মেরামতের সরঞ্জামটি ব্যবহার করে দেখতে পারেন। যদি এটি ব্যর্থ হয় তবে আপনি অন্য একটি বাহ্যিক সরঞ্জাম যেমন: চেষ্টা করে যেতে পারেন DataNumen Outlook Repair। এটি দ্রুত সময়ে পিএসটি ডেটা পুনরুদ্ধার করতে সক্ষম।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ পুনরুদ্ধার এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com