কিভাবে একটি এক্সেল ফাইলে একটি PST ফাইলের সমস্ত ফোল্ডারের আকারের তথ্য দ্রুত রপ্তানি করবেন

আপনি যদি একটি PST ফাইলে প্রতিটি ফোল্ডারের আকারের তথ্য পরীক্ষা করতে চান তবে আপনি এই নিবন্ধে উন্মুক্ত পদ্ধতিটি ব্যবহার করতে পারেন। এটি একটি PST ফাইলের সমস্ত ফোল্ডারের আকারের তথ্য দ্রুত এক্সেল ফাইলে রপ্তানি করবে।

যখন আপনার PST ফাইলটি খুব বড় হয়, আপনি প্রতিটি ফোল্ডারের আকার পরীক্ষা করতে চাইতে পারেন। এটি আপনাকে সহজেই খুঁজে বের করতে সাহায্য করবে যে কোনটি বড় এবং আকারের ভিত্তিতে উপযুক্ত সংরক্ষণাগার করতে। সাধারণভাবে, ফোল্ডারের আকার পরীক্ষা করতে, আপনি কেবল একটি ফোল্ডারে ডান ক্লিক করতে পারেন এবং তারপরে "বৈশিষ্ট্য" নির্বাচন করতে পারেন। নতুন পপআপ ডায়ালগ বক্সে, আপনি "ফোল্ডার সাইজ" বোতামে ক্লিক করতে পারেন। যাইহোক, আপনি যদি অনেকগুলি ফোল্ডার তৈরি করে থাকেন তবে আকারের তথ্য একের পর এক ম্যানুয়ালি পরীক্ষা করা যথেষ্ট ঝামেলার। সুতরাং, যদি আপনি একটি PST ফাইলে সমস্ত ফোল্ডারের আকারের তথ্য পেতে ব্যাচ চান তবে আপনি নিম্নলিখিত VBA কোডটি ব্যবহার করতে পারেন। এটি সমস্ত ফোল্ডারের নাম এবং আকারের তথ্য একবারে এক্সেল ফাইলে রপ্তানি করবে।

একটি PST ফাইলের সমস্ত ফোল্ডারের আকারের তথ্য একটি এক্সেল ফাইলে রপ্তানি করুন

1. প্রথমে, আপনার Outlook অ্যাপ্লিকেশনটি চালু করুন।
2. তারপরে "ডেভেলপার" ট্যাবে স্যুইচ করুন এবং "ভিজ্যুয়াল বেসিক" বোতামে ক্লিক করুন বা VBA সম্পাদক অ্যাক্সেস করতে "Alt + F11" কী টিপুন।
3. পরবর্তী "অ্যাপ্লিকেশনের জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে, একটি মডিউল খুলুন যা ব্যবহার করা হচ্ছে না।
4. পরবর্তীকালে, এই মডিউলটিতে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করুন এবং আটকান।

Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportFodlerSizetoExcel()
    Dim objSourcePST As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    objExcelWorksheet.Cells(1, 1) = "Folder"
    objExcelWorksheet.Cells(1, 2) = "Size"
 
    'Select a source PST file
    Set objSourcePST = Outlook.Application.Session.PickFolder

    For Each objFolder In objSourcePST.Folders
        Call ProcessFolders(objFolder)
    Next
 
    'Fit the columns from A to B
    objExcelWorksheet.Columns("A:B").AutoFit
 
    strExcelFile = "E:\Outlook\" & objSourcePST.Name & " Folder Size (" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItem As Object
    Dim lCurrentFolderSize As Long
    Dim nNextEmptyRow As Integer
 
    objCurrentFolder.Items.SetColumns ("Size")
    For Each objItem In objCurrentFolder.Items
        lCurrentFolderSize = lCurrentFolderSize + objItem.Size
    Next
 
    'Convert byte to kilobyte
    'To convert to megabyte, use:
    'lCurrentFolderSize = (lCurrentFolderSize / 1024) / 1024
    lCurrentFolderSize = lCurrentFolderSize / 1024
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1

    'Add the values into the columns
    objExcelWorksheet.Range("A" & nNextEmptyRow) = objCurrentFolder.FolderPath
    objExcelWorksheet.Range("B" & nNextEmptyRow) = lCurrentFolderSize & " KB"
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. এর পরে, আপনার আপনার আউটলুক ম্যাক্রো সুরক্ষা স্তরটিকে নীচে সেট করা উচিত।
6. শেষ পর্যন্ত, আপনি চেষ্টা করতে পারেন।

• বর্তমান ম্যাক্রো উইন্ডোতে F5 কী বোতাম টিপুন।
• তারপরে আপনাকে একটি PST ফাইল নির্বাচন করার জন্য অনুরোধ করা হবে, যেমন নিম্নলিখিত চিত্রটি:
• একটি উত্স ফাইল নির্বাচন করার পরে, আউটলুক এক্সেলে আকারের তথ্য রপ্তানি করতে শুরু করবে।
• ম্যাক্রো শেষ হওয়ার পরে, আপনি নীচের স্ক্রিনশটের মতো একটি বার্তা পাবেন।
• অবশেষে, আপনি পূর্বনির্ধারিত স্থানীয় ফোল্ডারে এক্সেল ফাইলটি খুঁজে পেতে সক্ষম হবেন। এক্সেল ফাইলটি নিচের মত দেখাবে:

ঘন ঘন PST ত্রুটি মোকাবেলা করুন

যেহেতু আউটলুক ত্রুটির প্রবণ, তাই আপনি হয়তো আপনার আউটলুকে অনেক সমস্যার সম্মুখীন হয়েছেন। হতাশাজনক PST সমস্যাগুলির সাথে আরও ভাল এবং নমনীয়ভাবে মোকাবেলা করার জন্য, আশেপাশে একটি অভিজ্ঞ এবং স্বনামধন্য ফিক্স ইউটিলিটি রাখার পরামর্শ দেওয়া হয়, যেমন DataNumen Outlook Repair। এটা সক্ষম পিএসটি ঠিক করুন বাতাসের মতো সমস্যা

লেখকের ভূমিকা:

শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় SQL Server আরোগ্য এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com