যখন আপনাকে কাউকে প্রচুর পরিমাণে ইমেল ফরোয়ার্ড করতে হয়, তখন আপনি সেগুলোকে একটিমাত্র কম্প্রেসড ফাইলে রূপান্তর করতে চাইতে পারেন। তাই, এই পোস্টে আপনাকে শেখানো হবে কীভাবে দ্রুত একাধিক ইমেল একসাথে ফরোয়ার্ড করা যায়। zip সংযুক্তি
আউটলুক ব্যবহারকারীদের একাধিক ইমেল সংযুক্তি হিসাবে ফরওয়ার্ড করার অনুমতি দেয়। সত্যি বলতে, এটা সুবিধাজনক। কিন্তু, যদি ফরওয়ার্ড করা ইমেলগুলির সংখ্যা বেশ বড় হয়, তাহলে আপনি অবশ্যই তাদের একটি একক ফাইলে সংকুচিত করার আশা করবেন, যেমন zip ফাইল স্থানীয় ড্রাইভে সেগুলি সংরক্ষণ করা এবং সেগুলি সংকুচিত করা ছাড়াও, এখানে আমরা আরেকটি উপায় উপস্থাপন করব, যা আপনাকে একক হিসাবে অনেক ইমেল ফরওয়ার্ড করতে দেয় zip এক ক্লিকে সংযুক্তি।
একাধিক ইমেল যোগ করুন এবং ফরওয়ার্ড করুন a হিসাবে Zip ক্রোক
- একেবারে শুরুতে, স্বাভাবিকভাবে আপনার Outlook চালু করুন।
- তারপর, আউটলুক উইন্ডোতে, "Alt + F11" কী বোতাম টিপুন।
- পরবর্তীকালে, আপনি সাফল্যের সাথে আউটলুক VBA এডিটর উইন্ডোতে অ্যাক্সেস পাবেন।
- এই মুহুর্তে, আপনি একটি অব্যবহৃত মডিউল খুলতে পারেন বা কেবল একটি নতুন সন্নিবেশ করতে পারেন।
- পরবর্তী, আপনাকে এই মডিউলে নিম্নলিখিত VBA কোডটি অনুলিপি করতে হবে।
Sub ForwardMultipleEmailsAsZipAttachment()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim strSubject As String
Dim strTempFolder As String
Dim varTempFolder As Variant
Dim objShell As Object
Dim varZipFile As Variant
Dim objForward As Outlook.MailItem
Set objSelection = Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
'Save selected emails to Temporary folder
strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
varTempFolder = strTempFolder & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
MkDir (varTempFolder)
varTempFolder = varTempFolder & "\"
For Each objMail In objSelection
strSubject = objMail.Subject
'Remove unsupported characters in the subject
strSubject = Replace(strSubject, "/", " ")
strSubject = Replace(strSubject, "\", " ")
strSubject = Replace(strSubject, ":", "")
strSubject = Replace(strSubject, "?", " ")
strSubject = Replace(strSubject, Chr(34), " ")
objMail.SaveAs varTempFolder & strSubject & ".msg", olMsg
Next
'Create a new zip file
varZipFile = InputBox("Specify a name for the new zip file", "Name Zip File")
varZipFile = strTempFolder & "\" & 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 emails 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
Set objMail = Application.CreateItem(olMailItem)
'Add the zip attachment to a new email
With objMail
.Attachments.Add varZipFile
.Display
End With
End If
End Sub
- এর পরে, আপনি বর্তমান ম্যাক্রো থেকে প্রস্থান করতে পারেন।
- এবং পরবর্তীতে সুবিধাজনক অ্যাক্সেসের জন্য, আপনি এই ম্যাক্রোকে দ্রুত অ্যাক্সেস টুলবারে যুক্ত করা ভাল।
- শেষ পর্যন্ত, আপনি চেষ্টা করতে পারেন।
- প্রথমত, আপনি যে ইমেলগুলি অন্য কাউকে পাঠাতে চান তা নির্বাচন করুন।
- পরবর্তী, দ্রুত অ্যাক্সেস টুলবারে ম্যাক্রো বোতামে ক্লিক করুন।
- তারপরে, আপনাকে সংকুচিত ফাইলের জন্য একটি নাম ইনপুট করতে হবে।
- একটি নাম প্রবেশ করে এবং "ওকে" চাপার পরে, একটি নতুন ইমেল প্রদর্শিত হবে, যেখানে আপনি একটি দেখতে পাবেন zip ফাইল সংযুক্ত, যেমন নীচের স্ক্রিনশট:
একটি গুরুত্বপূর্ণ মেরামতের সরঞ্জাম কাছাকাছি রাখুন
Outlook- এ অধিক সংখ্যক ইমেইল সংরক্ষিত থাকায় PST ফাইলটি আরও বড় এবং বড় হবে। এই ক্ষেত্রে, আউটলুক বিভিন্ন ত্রুটি এবং এমনকি ক্র্যাশ ভোগ করবে। অতএব, আপনি একটি শক্তিশালী রাখা ভাল ছিল পিএসটি মেরামত আশেপাশে সরঞ্জাম, পছন্দ DataNumen Outlook Repair। এটি উচ্চ পুনরুদ্ধারের হারের কারণে এটি একটি অত্যন্ত প্রস্তাবিত সরঞ্জাম।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দুর্নীতিগ্রস্থ sql এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com