কখনও কখনও, আপনি ব্যাচগুলি সকল সাবফোল্ডার এবং আইটেমগুলির সাথে একটি উইন্ডোজ ফোল্ডারে রফতানি করতে পারেন। এই নিবন্ধটি আপনাকে এমন পদ্ধতি শিখিয়ে দেবে যা আউটলুক ভিবিএ প্রয়োগ করছে।
আপনি যখন একই ফোল্ডারের কাঠামোর সমস্ত আইটেম সহ লোকাল ড্রাইভে একটি আউটলুক ফোল্ডার রফতানি করতে চান, আপনি যদি নিজে নিজে সংরক্ষণ এবং রফতানি করতে নির্বাচন করেন তবে আপনাকে অনেক সময় লাগবে। সুতরাং, আপনি কেন অন্য উপায়গুলি যেমন কোনও রফতানি সরঞ্জাম বা ভিবিএ কোডগুলিতে অবলম্বন করবেন না? এখানে আমরা আপনাকে ভিবিএ কোডের একটি টুকরো উন্মোচন করব। এটি আপনাকে বাতাসের মতো অর্জনের অনুমতি দেবে।
একটি উইন্ডোজ ফোল্ডারে আউটলুক ফোল্ডারে সমস্ত সাবফোল্ডার এবং আইটেম রফতানি করুন
- একেবারে শুরুতেই আপনার আউটলুক প্রোগ্রামটি চালু করুন।
- তারপরে মূল আউটলুক উইন্ডোতে, “Alt + F11” কী শর্টকাটগুলি টিপুন।
- পরবর্তীকালে, "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোটি পপ আপ হবে।
- এর পরে আপনাকে খালি মডিউলটি খুলতে হবে এবং এতে নীচের ভিবিএ কোডগুলি অনুলিপি করতে হবে।
Private objFileSystem As Object
Private Sub ExportFolderWithAllItems()
Dim objFolder As Outlook.Folder
Dim strPath As String
'Specify the root local folder
'Change it as per your needs
strPath = "E:\Outlook\"
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
'Select a Outlook PST file or Outlook folder
Set objFolder = Outlook.Application.Session.PickFolder
Call ProcessFolders(objFolder, strPath)
MsgBox "Complete", vbExclamation
End Sub
Private Sub ProcessFolders(objCurrentFolder As Outlook.Folder, strCurrentPath As String)
Dim objItem As Object
Dim strSubject, strFileName, strFilePath As String
Dim objSubfolder As Outlook.Folder
'Create the local folder based on the Outlook folder
strCurrentPath = strCurrentPath & objCurrentFolder.Name
objFileSystem.CreateFolder strCurrentPath
For Each objItem In objCurrentFolder.Items
strSubject = objItem.Subject
'Remove unsupported characters in the subject
strSubject = Replace(strSubject, "/", " ")
strSubject = Replace(strSubject, "\", " ")
strSubject = Replace(strSubject, ":", "")
strSubject = Replace(strSubject, "?", " ")
strSubject = Replace(strSubject, Chr(34), " ")
strFileName = strSubject & ".msg"
i = 0
Do Until False
strFilePath = strCurrentPath & "\" & strFileName
'Check if there exist a file in the same name
If objFileSystem.FileExists(strFilePath) Then
'Add a sequence order to the file name
i = i + 1
strFileName = strSubject & " (" & i & ").msg"
Else
Exit Do
End If
Loop
'Save as MSG file
objItem.SaveAs strFilePath, olMSG
Next
'Process subfolders recursively
If objCurrentFolder.folders.Count > 0 Then
For Each objSubfolder In objCurrentFolder.folders
Call ProcessFolders(objSubfolder, strCurrentPath & "\")
Next
End If
End Sub
- এর পরে, আপনাকে অবশ্যই নিশ্চিত করতে হবে যে আপনার আউটলুক ম্যাক্রো সেটিংসে ম্যাক্রোগুলিকে অনুমতি দেয়।
- শেষ পর্যন্ত, আপনি চেষ্টা করতে পারেন।
- প্রথমত, নতুন ম্যাক্রো উইন্ডোতে ফিরে আসুন।
- "এক্সপোর্টফোল্ডারউইটঅল আইটেমস" সাব্রোটিনে পরবর্তী ক্লিক করুন।
- তারপরে এই ম্যাক্রোটি চালাতে F5 কী বোতামটি টিপুন।
- এর পরে, আপনাকে একটি নির্দিষ্ট ফোল্ডার নির্বাচন করতে হবে।
- শেষ অবধি, যখন আপনি একটি বার্তা পেয়েছেন “সম্পূর্ণ”, আপনি পূর্বনির্ধারিত স্থানীয় ফোল্ডারটি অ্যাক্সেস করতে পারবেন। আপনি দেখতে পাবেন যে সমস্ত আইটেম একই ফোল্ডার কাঠামোর মধ্যে সংরক্ষণ করা হয়েছে।
আউটলুক ক্র্যাশগুলি থেকে ডেটা ক্ষতি রোধ করুন
সম্ভবত আপনি অনেকবার আউটলুক ক্র্যাশের সম্মুখীন হয়েছেন। বেশিরভাগ সময়, রিস্টার্ট করার পর আউটলুক স্বাভাবিকভাবে কাজ করতে পারে। তবে, এমনও হতে পারে যে আমাদের PST ফাইলটি করাপ্টেড হয়ে গেছে। সেই সময়ে, আপনি আপনার PST ডেটা পুনরুদ্ধার করার জন্য সেরা চেষ্টা করবেন, যেমন কোনো অভিজ্ঞ টুলের সাহায্য নেওয়া। DataNumen Outlook Repair। এটা সক্ষম আউটলুক ঠিক করুন ত্রুটি এবং একটি ঘাম না ভেঙে আপোষকৃত পিএসটি ফাইল থেকে ডেটা উত্তোলন।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় SQL Server মেরামত এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com