যখন আপনি "এ একটি সংযুক্তি পাবেন.zip"ফাইল এক্সটেনশন" থাকলে, আপনি যদি সেগুলোকে আনজিপ করতে চান, তবে সাধারণত সেগুলোকে লোকাল ড্রাইভে সেভ ও আনজিপ করা উচিত। কিন্তু অনেকেই সরাসরি আউটলুকে সেগুলো আনজিপ করতে চান। এই আর্টিকেলটি আপনাকে শেখাবে কিভাবে VBA ব্যবহার করে এটি করা যায়।
আপনি নিশ্চয়ই কখনও সেই সংযুক্তিগুলি পেয়েছেন যেগুলি ".zip" ফাইল এক্সটেনশন. এক মধ্যে অভ্যন্তরীণ ফাইল অ্যাক্সেস করার জন্য zip ফাইলটি প্রথমে আনজিপ করতে হবে। এক্ষেত্রে, যথারীতি, প্রথমে ফাইলটি সেভ করতে হবে। zip ফাইলটি লোকাল ড্রাইভে কপি করুন এবং তারপর সেটির উপর রাইট-ক্লিক করে কনটেক্সট মেনু থেকে “Extract All” নির্বাচন করুন। বাস্তবে, অনেক ব্যবহারকারী সরাসরি আউটলুকের মধ্যেই ফাইলটি আনজিপ করতে পছন্দ করেন। তবে, আউটলুকে এমন কোনো বিল্ট-ইন ফিচার নেই। সৌভাগ্যবশত, আপনি নিচের ধাপগুলো অনুসরণ করে ভিবিএ (VBA) ব্যবহার করে খুব সহজেই এই কাজটি করতে পারবেন।
আনজিপ করুন .Zip সংযুক্তি সরাসরি আউটলুক
- প্রথম স্থানে, আপনার আউটলুক অ্যাপ্লিকেশন চালু করুন।
- তারপরে ভিবিএ সম্পাদক অ্যাক্সেস করতে আউটলুক উইন্ডোতে "Alt + F11" কী শর্টকাট টিপুন।
- "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোটির পরবর্তী, একটি মডিউল ব্যবহার করুন যা ব্যবহারযোগ্য নয়।
- পরবর্তীকালে, এই মডিউলটিতে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করুন এবং আটকান।
Public Sub UnzipFileInOutlook()
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objShell As Object
Dim objFileSystem As Object
Dim strTempFolder As String
Dim strFilePath As String
Dim strFileName As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objAttachments = objMail.attachments
'Save & Unzip the zip file in local drive
Set objShell = CreateObject("Shell.Application")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "yyyy-mm-dd-hh-mm-ss")
MkDir (strTempFolder)
For Each objAttachment In objAttachments
If Right(objAttachment.FileName, 3) = "zip" Then
strFilePath = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strFilePath)
objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath)).Items
End If
Next
'Reattach the files extracted from the zip file
strFileName = Dir(strTempFolder & "\")
While Len(strFileName) > 0
objMail.attachments.Add (strTempFolder & "\" & strFileName)
strFileName = Dir
objMail.Save
Wend
'Delete the attachments in “.zip” file extension
Set objAttachments = objMail.attachments
For Each objAttachment In objAttachments
If Right(objAttachment.FileName, 3) = "zip" Then
objAttachment.Delete
objMail.Save
End If
Next
'Delete the temp folder and files
objFileSystem.DeleteFolder (strTempFolder)
End Sub
- এর পরে, আপনি যথারীতি মেসেজ উইন্ডোটির দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে নতুন ভিবিএ প্রকল্প যুক্ত করতে পারেন।
- শেষ পর্যন্ত, আপনি চেষ্টা করতে পারেন।
- প্রথমে এর সাথে একটি বার্তা খুলুন zip নিজস্ব উইন্ডোতে ফাইল।
- তারপরে "ক্রিয়াগুলি"> "বার্তা সম্পাদনা করুন" এ ক্লিক করুন।
- এরপরে দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে নতুন ম্যাক্রো বোতামটি ক্লিক করুন।
- একবারে, zip ফাইলটি আনজিপ করার পর নিচের স্ক্রিনশটের মতো দেখাবে:
বিরক্তিকর পিএসটি ইস্যু থেকে মুক্তি পান
যদিও নতুন ইউনিকোড ফর্ম্যাটে পিএসটি ফাইলটি 20 গিগাবাইট ফাইলের আকারকে সমর্থন করে, তবুও ফাইলটি যতটা সম্ভব ছোট রাখা বুদ্ধিমান। কারণ এটি একটি বৃহত পিএসটি ফাইল দুর্নীতিতে অনেক বেশি প্রবণ। আপনার পিএসটি ফাইলটি একবার আপস হয়ে গেলে, আপনাকে চেষ্টা করতে হবে পিএসটি পুনরুদ্ধার করুন তথ্য। সেই দৃশ্যে, আপনার কাছে কোনও ভাল-প্রমাণিত এবং নামী সরঞ্জামের মতো পুনরাবৃত্তি করা ছাড়া কোনও বিকল্প নেই DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় বর্গফুট মেরামত এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com