কখনও কখনও, আপনি একটি ইমেলের সমস্ত সংযুক্তি সংক্ষেপ করতে চাইতে পারেন zip সরাসরি আউটলুক ফাইল। এই ক্ষেত্রে, আপনি এই বৈশিষ্ট্যটি অর্জন করতে এই নিবন্ধে প্রবর্তিত ভিবিএ কোডটি ব্যবহার করতে পারেন।
ডিফল্টরূপে, আউটলুকের তার সংযুক্তি আকারের সীমা রয়েছে - পিওপি 20, আইএমএপি বা অন্যান্য ওয়েব-ভিত্তিক ইমেল অ্যাকাউন্টগুলির জন্য 3 এমবি এবং এক্সচেঞ্জ অ্যাকাউন্টগুলির জন্য 10 এমবি। সুতরাং, যখন সংযুক্তির মোট আকার সীমা ছাড়িয়ে যায়, আপনি সম্পর্কিত ত্রুটি পাবেন। এই ক্ষেত্রে, এটিতে সমস্ত সংযুক্তি সংকুচিত করা ভাল বিকল্প zip ফাইল.
তবে, আপনি দেখতে পাচ্ছেন, আউটলুক এমন সরাসরি বৈশিষ্ট্য সরবরাহ করে না। এটি বলতে হবে, আপনাকে প্রথমে দরকার zip হার্ড ড্রাইভে এই ফাইলগুলি এবং তারপরে নতুন তৈরি হওয়াটিকে পুনরায় সংযুক্ত করুন zip ফাইল। বাস্তবে মিost ব্যবহারকারীরা আশা করেন যে তারা এটি সরাসরি আউটলুকের মধ্যেই অর্জন করতে পারে। এই প্রয়োজনীয়তার প্রতিক্রিয়া হিসাবে, আমরা নিম্নলিখিতগুলিতে এটি উপলব্ধি করতে কীভাবে ভিবিএ ব্যবহার করব তা উপস্থাপন করব।
সমস্ত সংযুক্তি সংক্ষেপে ক Zip ফাইল
- প্রথম স্থানে, আপনার আউটলুক অ্যাপ্লিকেশন চালু করুন।
- তারপরে মূল আউটলুক উইন্ডোতে "Alt + F11" কী বোতাম টিপুন।
- নতুন আউটলুক ভিবিএ সম্পাদক উইন্ডোতে একটি মডিউল খুলুন।
- পরবর্তী সময়ে, মডিউলটিতে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করুন এবং আটকান।
Sub ZipAttachments()
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objFileSystem As Object
Dim objShell As Object
Dim varTempFolder As Variant
Dim varZipFile As Variant
'Save the attachments to Temporary folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
varTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
MkDir (varTempFolder)
varTempFolder = varTempFolder & "\"
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objAttachments = objMail.attachments
For Each objAttachment In objAttachments
objAttachment.SaveAsFile (varTempFolder & objAttachment.FileName)
Next
'Create a new zip file
varZipFile = InputBox("Specify a name for the new zip file", "Name Zip File", objMail.Subject)
varZipFile = objFileSystem.GetSpecialFolder(2).Path & "\" & varZipFile & ".zip"
Open varZipFile For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
'Copy all the saved attachments to the new zip file
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items
'Keep macro running until Compressing is done
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 all the attachments
Set objAttachments = objMail.attachments
While objAttachments.Count > 0
objAttachments.Item(1).Delete
Wend
'Add the new zip file to the current email
objMail.attachments.Add varZipFile
'Prompt
MsgBox ("Complete!")
End Sub
- এর পরে, ম্যাক্রোর অনুমতি দেওয়া হয়েছে তা নিশ্চিত করার জন্য আপনাকে আপনার আউটলুক ম্যাক্রো সেটিংস পরীক্ষা করতে হবে।
- পরে আপনি যথারীতি মেসেজ উইন্ডোর কুইক অ্যাক্সেস সরঞ্জামদণ্ডে নতুন ভিবিএ প্রকল্প যুক্ত করতে পারেন।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- প্রথমত, একটি নতুন ইমেল তৈরি করুন এবং বেশ কয়েকটি ফাইল সংযুক্ত করুন। অথবা কেবলমাত্র অনেক সংযুক্তি সহ একটি মেল খুলুন।
- এরপরে দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে ম্যাক্রো বোতামটি ক্লিক করুন।
- পরে আপনাকে এর জন্য একটি নাম নির্দিষ্ট করতে হবে zip ফাইল এবং হিট "ওকে"। ডিফল্টরূপে, এটি মেল বিষয় হিসাবে সেট করা হবে।
- একবারে, সমস্ত সংযুক্তি একটিতে সংকুচিত হবে zip ফাইল, নিম্নলিখিত স্ক্রিনশটের মতো:
Unzip দ্য .Zip সংযুক্তি সরাসরি আউটলুক
এটি অনিবার্য যে আপনি "এর সাথে কোনও সংযুক্তি পাবেন।zip”ফাইল এক্সটেনশন এখন এবং তারপরে। এই পরিস্থিতিতে, আপনি সরাসরি আন আনতে চাইতে পারেনzip লোকাল ড্রাইভে সেগুলি সংরক্ষণ এবং সঙ্কুচিত করার পরিবর্তে এই জাতীয় ফাইলগুলি আপনার আউটলুকের মধ্যে থেকে। যদিও আউটলুকের এমন কোনও স্থানীয় বৈশিষ্ট্য নেই তবে আপনি এটি পাওয়ার জন্য এখনও ভিবিএ ব্যবহার করতে পারেন। আরও বিশদ জন্য আপনি অন্য আর্টিকেল পড়তে পারেন - “কিভাবে আনzip দ্য .Zip ভিবিএর মাধ্যমে সরাসরি আউটলুকে সংযুক্তি".
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় বর্গফুট ঠিক করা এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com