কোনও ব্যবহারকারী ইমেলগুলিকে আউটলুক থেকে স্বতন্ত্রভাবে দেখার জন্য বা অন্য কারও সাথে ভাগ করে নিতে হার্ড ড্রাইভে সেভ করতে চাইতে পারে। এই নিবন্ধে, আমরা ভিবিএর মাধ্যমে স্বয়ংক্রিয়ভাবে কীভাবে এটি করব তা উপস্থাপন করব।
আউটলুক থেকে ইমেলগুলি রফতানি করুন
প্রতিটি ইন্টারনেট ব্যবহারকারী আউটলুককে ইমেল ক্লায়েন্ট হিসাবে ব্যবহার করে না এবং বিকল্প কোনও ব্যবহার করতে পারে। এমন পরিস্থিতিও থাকতে পারে যেখানে প্রকৃত ইমেলটি না পাঠিয়ে কারও সাথে ইমেল ভাগ করে নেওয়া দরকার। ডকুমেন্টেশন এবং যাচাইয়ের উদ্দেশ্যে ইমেলগুলি প্রায়শই প্রমাণ হিসাবে উপস্থাপিত হয়। এই জাতীয় পরিস্থিতিতেগুলির জন্য, আউটলুক একটি .msg বা .html ফাইল হিসাবে স্বতন্ত্রভাবে ইমেল রফতানি করার একটি পদ্ধতি সরবরাহ করে। নিম্নলিখিত ভিবিএ স্ক্রিপ্টটি প্রতিটি আগত ইমেল এইচটিএমএল ফর্ম্যাটে ব্যবহারকারীর হস্তক্ষেপ ছাড়াই হার্ড ড্রাইভে একটি পূর্বনির্ধারিত স্থানে স্বয়ংক্রিয়ভাবে সংরক্ষণ করে। একবার সেভ হয়ে গেলে কোনও ইমেল ক্লায়েন্টের প্রয়োজন ছাড়াই ইমেলটি কোনও ইন্টারনেট ব্রাউজারে দেখা যায়।
আউটলুক ভিবিএ স্ক্রিপ্ট
নীচে সম্পূর্ণ আউটলুক ভিবিএ স্ক্রিপ্ট রয়েছে:
Private WithEvents Items As Outlook.Items
Private Count As Integer
Private Sub Application_Startup()
Dim objApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
' Get the items in the Inbox folder
Set objApp = Outlook.Application
Set objNameSpace = objApp.GetNamespace("MAPI")
Set Items = objNameSpace.GetDefaultFolder(olFolderInbox).Items
' Initialize count
Count = 1
End Sub
Private Sub Items_ItemAdd(ByVal objItem As Object)
On Error GoTo ShowError
Dim objMail As Outlook.MailItem
' Check if the item is a mail. If yes, then save it as a HTML file and update Count
If TypeName(objItem) = "MailItem" Then
Set objMail = objItem
objMail.SaveAs "C:\MyEmails\MyEmail" & CStr(Count), olHTML
Count = Count + 1
End If
Exit Sub
ShowError:
MsgBox Err.Number & " - " & Err.Description
End Sub
স্ক্রিপ্টটি কীভাবে চালানো যায়
প্রেস Alt + F11 আউটলুক ভিবিএ এডিটর খুলুন এবং উপরের কোডটি “ThisOutlookSession”-এ পেস্ট করুন। এই স্ক্রিপ্টটি চালানোর আগে, নিশ্চিত করুন যে “C:\MyEmails” ফোল্ডারটি বিদ্যমান এবং ব্যবহারকারীর এতে লেখার অনুমতি আছে। এছাড়াও, এটি জানা গুরুত্বপূর্ণ যে এই স্ক্রিপ্টটি চালানোর আগে, “Tools” মেনু থেকে প্রজেক্ট রেফারেন্সে Microsoft Outlook XX Object লাইব্রেরিটি যোগ করতে হবে, যেখানে XX হলো লাইব্রেরির সংস্করণ।
স্ক্রিপ্ট বুঝতে
স্ক্রিপ্টে, ইনবক্স ফোল্ডারে আসা প্রতিটি আইটেমের জন্য “Items_ItemAdd” রুটিনটি ট্রিগার হবে। “TypeName” ফাংশনটি আরও নিশ্চিত করে যে, রুটিনটি কেবল তখনই চলবে যখন আইটেমটি একটি ইমেল হবে, অন্য কোনো ধরনের আউটলুক অবজেক্ট নয়। আপনি যদি অন্য কোনো ফোল্ডার, যেমন “Sent Items” থেকে একটি ইমেল ইনবক্সে ড্র্যাগ করেন, তাহলেও রুটিনটি কাজ করবে এবং তার কাজটি সম্পন্ন করবে। এটি মনে রাখা গুরুত্বপূর্ণ যে, “Items_ItemAdd” কেবল তখনই ট্রিগার হবে, যখন মূল ইনবক্স ফোল্ডারে একটি ইমেল যোগ করা হবে। যদি মূল ইনবক্স ফোল্ডারের মধ্যে নেস্টেড ফোল্ডার থাকে, তবে সেগুলোর কোনোটিতে ইমেল যোগ করা হলে কোডটি কাজ করবে না। অন্য কোনো ফোল্ডারের জন্য এটি কাজ করাতে হলে, “Application_Startup” রুটিনে “Items_ItemAdd”-কে সেই নির্দিষ্ট ফোল্ডারের সাথে সংযুক্ত করতে হবে। উপরের স্ক্রিপ্টে, olHTML ফরম্যাটকে olMSG, olRTF, olDoc বা olTxt ফরম্যাট দিয়ে প্রতিস্থাপন করা যেতে পারে। সংরক্ষণ করার জন্য প্রতিটি ইমেলের ডিফল্ট নামকরণের ফরম্যাট হলো “MyEmail##”, যেখানে ## হলো গণনা, যা ১ থেকে শুরু হয়ে ক্রমান্বয়ে বাড়তে থাকে। উদাহরণস্বরূপ, এই স্ক্রিপ্টটি চালানোর পর দ্বাদশ আগত ইমেলটি “MyEmail12” হিসাবে সংরক্ষিত হবে।
আউটলুক ব্যর্থতার পরে ডেটা রিকভারি
আউটলুকের ব্রেকআপ হওয়া খুব অস্বাভাবিক পরিস্থিতি নয় এবং ব্যবহারকারীরা প্রচুর পরিমাণে ডেটা হারিয়ে ফেলেন। এই ধরনের পরিস্থিতি থেকে পুনরুদ্ধার করা খুব কঠিন এবং সময় সাধ্যের কাজ হতে পারে। এ জাতীয় ক্ষেত্রে আপনার জীবনকে সহজ করতে আপনি একটি ব্যবহার করতে পারেন আউটলুক তথ্য পুনরুদ্ধার একটি দক্ষ এবং বাগ ফ্রি পুনরুদ্ধারের জন্য সরঞ্জাম।
লেখকের ভূমিকা:
মেরি আন্ডারউড একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় dwg পুনরুদ্ধার এবং rar পুনরুদ্ধার সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com