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

আপনি যদি নিজের আউটলুক ডেটা ফাইলের ফোল্ডার কাঠামোটি দ্রুত কোনও এক্সেল ওয়ার্কবুকে রপ্তানি করতে চান তবে আপনি এই নিবন্ধে প্রবর্তিত পদ্ধতিটি ব্যবহার করতে পারেন।

কিছু কারণে, যেমন বর্তমান আউটলুক ফোল্ডার এবং সাবফোল্ডারগুলিতে লগিং করা, অনেক ব্যবহারকারী আশা করেন যে কোনও এক্সল ওয়ার্কবুকের মতো একটি আউটলুক ফাইলের ফোল্ডার কাঠামোটি একটি বাহ্যিক ফাইলে রফতানি করতে হবে। নিম্নলিখিতগুলিতে, আমরা আপনাকে ভিবিএ কোডের একটি অংশ ভাগ করব, যা আপনাকে এটি একটি মুহুর্তে অর্জন করতে সহায়তা করতে পারে।

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

1. টু এসtarটি সহ, আপনার আউটলুক অ্যাপ্লিকেশনটি চালু করুন।
2. তারপরে, মূল আউটলুক উইন্ডোতে, "Alt + F11" কী বোতাম টিপুন।
3. এরপরে, আপনি আউটলুক ভিবিএ সম্পাদকটিতে যাবেন, যাতে আপনার অব্যবহৃত মডিউলটি খোলার দরকার।
4. পরবর্তী সময়ে, আপনি এই মডিউলে নিম্নলিখিত ভিবিএ কোডটি অনুলিপি করতে পারেন।

Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim lMainFolder As Long

Sub ExportFolderStructureToExcel()
    Dim objSourcePSTFile As Folder
 
    'Add a new Excel workbook
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    With objExcelWorksheet
         .Cells(1, 1) = "Folder Structure"
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Font.Bold = True
    End With
 
    'Select an Outlook PST file
    Set objSourcePSTFile = Application.Session.PickFolder
 
    lMainFolder = Len(objSourcePSTFile.FolderPath) - Len(Replace(objSourcePSTFile.FolderPath, "\", "")) + 1
 
    Call ExportToExcel(objSourcePSTFile.FolderPath, objSourcePSTFile.Name)
    Call ProcessFolders(objSourcePSTFile.Folders)
 
    'Save this Excel workbook
    objExcelWorksheet.Columns("A").AutoFit
    strExcelFile = "E:\Folder Structure (" & Format(Now, "yyyymmddhhmmss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessFolders(ByVal objFolders As Folders)
    Dim objFolder As Folder
 
    'Process all folders recursively
    For Each objFolder In objFolders
        If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
           Call ExportToExcel(objFolder.FolderPath, objFolder.Name)
           Call ProcessFolders(objFolder.Folders)
        End If
    Next
End Sub

Sub ExportToExcel(ByRef strFolderPath As String, strFolderName As String)
    Dim i, n As Long
    Dim strPrefix As String
    Dim nLastRow As Integer
 
    i = Len(strFolderPath) - Len(Replace(strFolderPath, "\", ""))
    For n = lMainFolder To i
        strPrefix = strPrefix & "-"
    Next
    strFolderName = strPrefix & strFolderName
 
    'Input the folder name in Excel
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
    objExcelWorksheet.Range("A" & nLastRow) = strFolderName
End Sub

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

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

কোনও আউটলুক ত্রুটি কখনও উপেক্ষা করবেন না

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

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

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