কখনও কখনও, আপনি ব্যাচের সমস্ত ইমেলগুলি নির্দিষ্ট কথোপকথনে ক্যাপচার করতে এবং তারপরে ব্যাচটি স্থানীয় ফোল্ডারে টেক্সট ফাইল হিসাবে রফতানি করতে পারেন। এই নিবন্ধটি শিখাবে যে কীভাবে এটি দ্রুত সময়ে পাবেন।
কোনও কারণে, আপনার স্থানীয় ড্রাইভে একটি নির্দিষ্ট কথোপকথনে সমস্ত ইমেল রফতানি করতে হতে পারে। আপনি যদি ম্যানুয়ালি এটি করেন, যথা একে অপরের সন্ধান করা এবং সংরক্ষণ করা, তবে এটি এক ক্লান্তিকর এবং কঠিন কাজ হবে। অতএব, আপনি আরও দ্রুত পদ্ধতি যেমন আরও নীচের মতো চেয়েছিলেন তা আরও ভালভাবে চেয়েছিলেন। এটি ঘাম ভেঙে না পেয়ে এটি পাওয়ার জন্য এক টুকরো ভিবিএ কোড ব্যবহার করবে।
পাঠ্য ফাইল হিসাবে কথোপকথনে সমস্ত মেল রফতানি করে
- একেবারে গোড়ার দিকে আপনার আউটলুক অ্যাপ্লিকেশনটি চালু করুন।
- তারপরে আউটলুক ভিবিএ সম্পাদকটি অ্যাক্সেস করতে "Alt + F11" কী বোতাম টিপুন।
- পরবর্তীকালে, নতুন উইন্ডোতে আপনাকে এমন একটি মডিউল খুলতে হবে যা ব্যবহারে নেই বা সরাসরি একটি নতুন মডিউল inোকাতে হবে।
- এরপরে আপনাকে এই মডিউলে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করে আটকানো উচিত।
Public strFilePath, strFileName As String
Sub ExportMailsInConversationAsTXT()
Dim objSelectedMail As Outlook.MailItem
Dim objConversation As Outlook.Conversation
Dim objMail As Outlook.MailItem
Set objSelectedMail = ActiveExplorer.Selection.Item(1)
Set objConversation = objSelectedMail.GetConversation
If Not (objConversation Is Nothing) Then
'Get all root items in this conversation
For Each objMail In objConversation.GetRootItems
strFileName = objMail.Subject
'Remove the unsupported characters in email subject
strFileName = Replace(strFileName, "/", " ")
strFileName = Replace(strFileName, "\", " ")
strFileName = Replace(strFileName, ":", "")
strFileName = Replace(strFileName, "?", " ")
strFileName = Replace(strFileName, Chr(34), " ")
strFileName = Format(objMail.ReceivedTime, "YYYY-MM-DD") & "_" & strFileName & ".txt"
'Export as Text files
'Change "E:\" to other local folder path as per your needs
strFilePath = "E:\" & strFileName
objMail.SaveAs strFilePath, OLTXT
'Process all children as well
Call ProcessChildren(objMail, objConversation)
Next
End If
MsgBox "Complete!", vbExclamation
End Sub
Sub ProcessChildren(objCurMail As Outlook.MailItem, objCurConversation As Outlook.Conversation)
Dim objItems As Outlook.SimpleItems
Dim objItem As Outlook.MailItem
Set objItems = objCurConversation.GetChildren(objCurMail)
If objItems.Count > 0 Then
For Each objItem In objItems
strFileName = objItem.Subject
strFileName = Replace(strFileName, "/", " ")
strFileName = Replace(strFileName, "\", " ")
strFileName = Replace(strFileName, ":", "")
strFileName = Replace(strFileName, "?", " ")
strFileName = Replace(strFileName, Chr(34), " ")
strFileName = Format(objItem.ReceivedTime, "yyyy-mm-dd") & "_" & strFileName & ".txt"
strFilePath = "E:\" & strFileName
objItem.SaveAs strFilePath, OLTXT
'Process all children recursively
Call ProcessChildren(objItem, objCurConversation)
Next
End If
End Sub
- এর পরে, আপনি যথারীতি দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে নতুন ভিবিএ প্রকল্প যুক্ত করতে পারেন।
- পরে আপনার আউটলুক ম্যাক্রো সুরক্ষা স্তরটিকে নীচে নামানোর বিষয়টি নিশ্চিত করুন।
- শেষ পর্যন্ত, আপনি চেষ্টা করতে পারেন।
- প্রথমত, একটি ইমেল নির্বাচন করুন।
- তারপরে কুইক অ্যাক্সেস সরঞ্জামদণ্ডে নতুন ম্যাক্রো বোতামটি ক্লিক করুন।
- আপনি যখন "সম্পূর্ণ" বার্তাটি পান, আপনি পূর্বনির্ধারিত স্থানীয় ফোল্ডারটি খুলতে পারেন, যাতে আপনি ইমেলগুলি "টিএক্সটি" ফর্ম্যাটে দেখতে পাবেন।
দুর্নীতির পরে পিএসটি ডেটা পুনরুদ্ধারের টিপস
প্রায়শই, আউটলুকে, আপনি বিভিন্ন আউটলুক ত্রুটির মুখোমুখি হতে পারেন যার মধ্যে কয়েকটি গুরুতর জ্বলজ্বল হতে পারে যাতে তারা সরাসরি পিএসটি দুর্নীতির দিকে পরিচালিত করে। সেই সময়, আপনার কাছে পদক্ষেপ নেওয়া দরকার মেরামত পিএসটি আপনার মূল্যবান তথ্য ফিরে পেতে ফাইল। এই ক্ষেত্রে, আপনি কেবল একটি নামী এবং ভাল-প্রমাণিত সরঞ্জাম, যেমন পুনরাবৃত্তি করতে পারেন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় পুনরুদ্ধার sql server এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com