সাধারণত, "আনরার করতে.rarইমেইলের অ্যাটাচমেন্ট আনরার করতে হলে, প্রথমে সেটি সেভ করতে হবে এবং তারপর ভেতরের ফাইলগুলো বের করার জন্য নির্দিষ্ট টুল ব্যবহার করতে হবে। এই আর্টিকেলটিতে সরাসরি আউটলুকে আনরার করার একটি পদ্ধতি জানানো হবে।
আউটলুক আপনাকে “ প্রিভিউ করার অনুমতি দেয় না.RAR"সংযুক্তি"। এছাড়াও, আপনি "আনরার করতে পারবেন না"।.RARআউটলুকের মধ্যে সরাসরি অ্যাটাচমেন্ট আনরার করা যায় না। তাই, আপনি যদি এই ধরনের কোনো অ্যাটাচমেন্ট দেখতে চান, তাহলে প্রথমে সেটিকে আপনার লোকাল ড্রাইভে সেভ করতে হবে এবং তারপরে WinRAR-এর মতো বিশেষ ইউটিলিটির মাধ্যমে এর ভেতরের ফাইলগুলো এক্সট্র্যাক্ট করতে হবে। এই বিষয়টির উপর আলোকপাত করে, এখানে আমরা আপনাকে এমন একটি উপায় জানাবো, যা আপনাকে অ্যাটাচমেন্ট আনরার করতে সাহায্য করবে।.RARশুধুমাত্র আউটলুকে সংযুক্তি। এখন বিস্তারিত পদক্ষেপ এবং VBA কোড পেতে পড়ুন।
Unrar .RAR সংযুক্তি সরাসরি আউটলুক
- প্রথমত, যেহেতু এই পদ্ধতিটি একটি নির্দিষ্ট টুল – WinRAR-এর উপর নির্ভর করে, তাই প্রথমে আপনার পিসিতে এটি ইনস্টল করে নিশ্চিত হয়ে নিন যে এটি কোথায় মাউন্ট করা হয়েছে।
- তারপর আপনি স্বাভাবিক হিসাবে আপনার Outlook অ্যাপ্লিকেশন খুলতে পারে.
- পরবর্তী প্রধান আউটলুক উইন্ডোতে "Alt + F11" কী বোতাম টিপুন।
- পরবর্তীকালে, Outlook VBA সম্পাদকে, একটি খালি মডিউল খুলুন।
- এবং তারপরে এই মডিউলটিতে নিম্নলিখিত ভিবিএ কোডটি অনুলিপি করুন।
Public objFileSystem As Object
Public strTempFolder As String
Public strTargetFolderPath As String
Public objAttachment As Outlook.Attachment
Sub UnRARAttachment()
Dim objMail As Outlook.MailItem
Dim objShell As Object
Dim strTempFolder As String
Dim strRARFile As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path
strTargetFolderPath = strTempFolder & "\Temp " & Format(Now, "YYYY-MM-DD-hh-mm-ss")
MkDir (strTargetFolderPath)
Set objShell = CreateObject("Wscript.Shell")
If objMail.attachments.Count > 0 Then
For Each objAttachment In objMail.attachments
If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
strRARFile = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strRARFile)
'Change "C:\Program Files\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
objShell.Run Chr(34) & "C:\Program Files\WinRAR\WinRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34)
End If
Next
End If
End Sub
Sub AttachExtractedFiles()
Dim strFolderPath As String
Dim strFile As String
'Attach the extracted files to the current email
strFolderPath = strTargetFolderPath & "\"
strFile = Dir(strFolderPath)
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
While Len(strFile) > 0
objMail.attachments.Add strFolderPath & strFile
strFile = Dir
Wend
'Delete the .RAR attachments
For Each objAttachment In objMail.attachments
If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
objAttachment.Delete
End If
Next
End Sub
- এর পরে, আপনাকে নিশ্চিত করতে হবে যে আপনার আউটলুকে ম্যাক্রো অনুমোদিত।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- প্রথমে, এমন একটি ইমেল খুলুন যাতে রয়েছে .RAR সংযুক্তি।
- তারপর নতুন ম্যাক্রো বোতামে ফিরে যান।
- “UnRARAttachments” সাবরুটিনে ক্লিক করুন এবং F5 চাপুন।
- এবং পরবর্তীতে নিম্নলিখিত "AttachExtractedFiles" সাবরুটিনে ক্লিক করুন এবং F5 কী টিপুন।
- এরপরে, আপনি মেইল উইন্ডোতে ফিরে যেতে পারেন। আপনি দেখতে পাবেন যে .RAR সংযুক্তিগুলি ডিকম্প্রেস করা হয়েছে। সমস্ত নিষ্কাশন ফাইল সংযুক্ত করা হয়েছে.
আনজিপ .Zip আউটলুকে সংযুক্তি
চাপ কমানোর মতো .RAR অ্যাটাচমেন্টগুলো ডিকম্প্রেস করার জন্য আউটলুকের নিজস্ব কোনো ফিচার নেই।.zip"সংযুক্তি"। অতএব, যদি আপনি সরাসরি "আনজিপ করতে না পারেন".Zipডিফল্টরূপে আউটলুকে সরাসরি সংযুক্তি। ভাগ্যক্রমে, আপনি এখনও এই ফাংশনটি অর্জন করতে Outlook VBA ব্যবহার করতে পারেন। আরো বিস্তারিত জানার জন্য, আপনি আমার আগের নিবন্ধটি পরীক্ষা করতে পারেন - "কিভাবে আনজিপ করবেন .Zip ভিবিএর মাধ্যমে সরাসরি আউটলুকে সংযুক্তি".
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় ঠিক করা SQL Server এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com