কখনও কখনও, আপনি যখন একটি ইমেল ফরোয়ার্ড করেন যাতে একাধিক সংযুক্তি থাকে, আপনি ফরওয়ার্ড করার সময় সরাসরি সংযুক্তিগুলির নাম পরিবর্তন করতে চাইতে পারেন। এই নিবন্ধটি আপনাকে আউটলুক VBA দিয়ে কীভাবে এটি সম্পাদন করতে হয় তা শেখাবে।
ডিফল্টরূপে, আউটলুক ব্যবহারকারীকে ফরওয়ার্ড করার সময় সংযুক্তিগুলির নাম পরিবর্তন করার অনুমতি দেয় না। অতএব, আপনি যদি তাদের নাম পরিবর্তন করতে চান, তবে অনন্য উপায় হল প্রথমে ফাইলগুলিকে আপনার কম্পিউটারের একটি স্থানীয় ফোল্ডারে সংরক্ষণ করুন, তারপরে তাদের নাম পরিবর্তন করুন এবং পরবর্তীতে ফরওয়ার্ডিং ইমেলের সাথে পুনরায় সংযুক্ত করুন৷ স্পষ্টতই এই পদ্ধতিটি যথেষ্ট ঝামেলাপূর্ণ। তাছাড়া, কখনও কখনও, এই ফাইলগুলি আপনার জন্য অপরিহার্য হতে পারে, তাই আপনি সত্যিই সেগুলিকে আপনার কম্পিউটারে সংরক্ষণ করতে চান না৷ এই পরিস্থিতিতে, আপনাকে অবশ্যই একটি দ্রুত পদ্ধতির জন্য আকাঙ্ক্ষা করতে হবে যাতে আপনি সরাসরি ফরওয়ার্ডিং ইমেলে সংযুক্ত ফাইলগুলির নাম পরিবর্তন করতে পারেন৷ আউটলুক VBA এর মাধ্যমে এটি উপলব্ধি করার জন্য নিম্নলিখিত একটি পদ্ধতি।
একটি ইমেল ফরোয়ার্ড করার সময় সংযুক্তিগুলির নাম পরিবর্তন করুন
- প্রথম স্থানে, আউটলুক চালু করুন এবং "ডেভেলপার" ট্যাবে যান।
- তারপরে সনাক্ত করুন এবং "ভিজ্যুয়াল বেসিক" বোতামে ক্লিক করুন।
- এর পরে, নতুন পপআপ উইন্ডোতে, "সন্নিবেশ" > "মডিউল" নির্বাচন করে একটি নতুন মডিউল খুলুন।
- পরবর্তীকালে, আপনাকে নিম্নলিখিত ভিবিএ কোডগুলি এতে অনুলিপি করে আটকাতে হবে।
Sub RenameAttachmentsWhenForwarding()
Dim olItem As MailItem
Dim Att As Attachment
Dim Atts As Attachments
Dim olForward As MailItem
Dim FWAtt As Attachment
Dim FWAtts As Attachments
Dim FSO As Object
Dim TempFPath As Object
Dim FilePath As String
Dim strName As String
Dim strExten As String
Dim strFile As String
Set olItem = Application.ActiveExplorer.Selection.Item(1)
Set Atts = olItem.Attachments
Set olForward = olItem.Forward
olForward.Display
On Error Resume Next
For Each Att In Atts
'Get the path to Temporary Folder
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFPath = FSO.GetSpecialFolder(2)
FilePath = TempFPath.Path & "\"
'Rename the attachments
strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
'Change "4" based on the length of the attachment file extension
strExten = Right(Att.FileName, 4)
strFile = FilePath & strName & "." & strExten
If strName <> "" Then
'Save the attachments to the Temporary Folder
Att.SaveAsFile (strFile)
'Add the attachments saved in new names from the Temporary Folder
olForward.Attachments.Add (strFile)
Set FWAtts = olForward.Attachments
'Remove the original attachments
For Each FWAtt In FWAtts
If InStr(FWAtt.FileName, Att.FileName) > 0 Then
FWAtt.Delete
End If
Next
End If
Next
End Sub
- এর পরে, আপনি বর্তমান "ভিজ্যুয়াল বেসিক" উইন্ডো থেকে প্রস্থান করতে পারেন এবং যথারীতি দ্রুত অ্যাক্সেস টুলবারে নতুন ম্যাক্রো যুক্ত করতে এগিয়ে যেতে পারেন।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- প্রথমে, একটি ইমেল নির্বাচন করুন এবং তারপরে দ্রুত অ্যাক্সেস টুলবারে নতুন ম্যাক্রো বোতামে ক্লিক করুন।
- তারপরে একটি নতুন ফরওয়ার্ডিং ইমেল খুলবে। আপনি "সংযুক্ত" লাইনে মূল নামে সংযুক্ত ফাইলগুলি দেখতে পারেন এবং একটি ডায়ালগ বক্সও পাবেন যা আপনাকে একটি নির্দিষ্ট সংযুক্তির জন্য একটি নতুন নাম লিখতে দাবি করে৷
- সমস্ত ফাইলের জন্য নতুন নাম নির্দিষ্ট করার পরে এবং "ঠিক আছে" ক্লিক করুন, আপনি দেখতে পাবেন যে সমস্ত সংযুক্ত ফাইলগুলি নতুন নামে রয়েছে।
- অবশেষে আপনি ফরওয়ার্ডিং ইমেলগুলি রচনা করতে পারেন এবং বার্তাটি পাঠাতে "পাঠান" বোতাম টিপুন।
আপনার আউটলুকের সমস্ত সম্ভাব্য হুমকি সম্পর্কে সতর্ক থাকুন
এটা স্বীকৃত যে Outlook দুর্নীতির জন্য সংবেদনশীল। সুতরাং ভাইরাস সংক্রমণ, ম্যালওয়্যার আক্রমণ, এবং সহ সমস্ত হুমকির বিরুদ্ধে আউটলুক ডেটা রক্ষা করা একটি দীর্ঘ টানা কাজ। আউটলুক পিএসটি ডেটা ক্ষতিইত্যাদি। সবচেয়ে গুরুত্বপূর্ণ কাজটি হলো আপনার আউটলুক ডেটার নিয়মিত ব্যাকআপ তৈরি করা। এছাড়াও, হাতের কাছে একটি সেরা মানের রিপেয়ার টুল রাখা বুদ্ধিমানের কাজ, যেমন DataNumen Outlook Repair, যা কাজে আসবে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত ক্ষতিগ্রস্ত mdf এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com