কিছু ব্যবহারকারী আউটলুক ফোল্ডারে সমস্ত ইমেলগুলি একটিতে সংকুচিত করতে চান zip ফাইল। যদিও এর মতো সরাসরি কোনও কাজ নেই, আপনি দ্রুত উপলব্ধি করতে এই নিবন্ধে প্রকাশিত ভিবিএ কোডটি ব্যবহার করতে পারেন।
থেকে zip একটি আউটলুক ফোল্ডারের সমস্ত ইমেল পেতে, আপনাকে প্রথমে সেগুলিকে এক এক করে লোকাল ড্রাইভে এক্সপোর্ট করতে হবে এবং তারপরে "সেন্ড টু" > "কম্প্রেসড (জিপড) ফোল্ডার" ফিচারটি ব্যবহার করতে হবে। নিঃসন্দেহে, এই পদ্ধতিতে কাজটি বেশ ক্লান্তিকর। তাই, আপনাকে একবারে কাজটি করতে সাহায্য করার জন্য, নিচে আমরা আরেকটি পদ্ধতি শেখাবো। এটি আপনাকে শেখাবে কিভাবে VBA কোড দিয়ে কাজটি করা যায়। আপনি যদি VBA-এর সাথে পরিচিত না হন, তাহলে আপনি "আপনার আউটলুকে কীভাবে ভিবিএ কোড চালাবেন"ইতিমধ্যে।
একটি ফোল্ডারে সমস্ত ইমেল সঙ্কুচিত করুন Zip ফাইল
- শুরুতে, “Alt + F11” চেপে Outlook VBA এডিটর চালু করুন।
- তারপরে, ভিডিএ কোডটি মডিউলে কপি এবং পেস্ট করুন।
Sub ZipAllEmailsInAFolder()
Dim objFolder As Outlook.Folder
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim strSubject As String
Dim varTempFolder As Variant
Dim varZipFile As Variant
Dim objShell As Object
Dim objFileSystem As Object
'Select an Outlook Folder
Set objFolder = Outlook.Application.Session.PickFolder
If Not (objFolder Is Nothing) Then
'Create a temp folder
varTempFolder = "E:\" & objFolder.Name & Format(Now, "YYMMDDHHMMSS")
MkDir (varTempFolder)
varTempFolder = varTempFolder & "\"
'Save each email as msg file
For Each objItem In objFolder.Items
If TypeOf objItem Is MailItem Then
Set objMail = objItem
strSubject = objMail.Subject
strSubject = Replace(strSubject, "/", " ")
strSubject = Replace(strSubject, "\", " ")
strSubject = Replace(strSubject, ":", "")
strSubject = Replace(strSubject, "?", " ")
strSubject = Replace(strSubject, Chr(34), " ")
objMail.SaveAs varTempFolder & strSubject & ".msg", olMSG
End If
Next
'Create a new ZIP file
varZipFile = "E:\" & objFolder.Name & " Emails.zip"
Open varZipFile For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
'Add the exported msg files to the ZIP file
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items
On Error Resume Next
Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
Application.Wait (Now + TimeValue("0:00:01"))
Loop
On Error GoTo 0
'Delete the temp folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1)
End If
End Sub
- এরপরে, এই ম্যাক্রোটি চালাতে “F5” কী বোতামটি ক্লিক করুন।
- পরে, পপআপ ডায়লগ বাক্সে, উত্স আউটলুক ফোল্ডারটি নির্বাচন করুন এবং "ঠিক আছে" ক্লিক করুন।
- ম্যাক্রো শেষ হয়ে গেলে, একটি উইন্ডোজ ফোল্ডার প্রদর্শিত হবে, যেখানে একটি নতুন আছে zip ফাইলটিতে নির্বাচিত আউটলুক ফোল্ডার থেকে সমস্ত ইমেল রয়েছে যা নিম্নলিখিত চিত্রটিতে দেখানো হয়েছে।
সমস্যাযুক্ত আউটলুক ফাইল দুর্নীতি পরিচালনা করুন
আউটলুকের সমস্ত সাধারণ সমস্যাগুলোর মধ্যে, নিঃসন্দেহে আউটলুকের ক্ষতি সবচেয়ে গুরুতর। তবে, বাস্তবে, এই ধরনের সমস্যা যেকোনো সময় ঘটতে পারে। তাই, আপনি যদি আউটলুকের একজন নিয়মিত ব্যবহারকারী হন, তবে আপনার আউটলুক ডেটার নিয়মিত ব্যাকআপ তৈরি করা প্রয়োজন। এছাড়াও, একটি নির্ভরযোগ্য ব্যাকআপ সংগ্রহ করা বুদ্ধিমানের কাজ। আউটলুক মেরামত ইউটিলিটি, যেমন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় বর্গফুট ঠিক করা এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com