আপনি যদি একক শব্দ নথিতে ব্যাচ এক্সপোর্ট একাধিক আউটলুক ইমেল করতে চান তবে আপনি এই নিবন্ধে প্রদর্শিত ভিবিএ কোডটি ব্যবহার করতে পারেন। এটি আপনাকে কয়েক সেকেন্ডের মধ্যে এই কাজটি সম্পাদন করতে সহায়তা করতে পারে।
আমি কখনই আমার পূর্ববর্তী নিবন্ধে একটি আউটলুক ইমেলকে ওয়ার্ড ডকুমেন্টে রূপান্তর করতে পারি তা চালু করেছি - “একটি শব্দ নথিতে একটি আউটলুক ইমেল রূপান্তর করার কার্যকর পদ্ধতি 2 XNUMX”। যাইহোক, উভয় 2 অর্থ যে পিost আপনি যখন ব্যাচকে একটি ওয়ার্ড ডকুমেন্টে রফতানি করতে ইচ্ছুক সেই ক্ষেত্রে অসহায় হয়ে পড়বেন। অতএব, এখানে আমরা আপনাকে অন্য একটি উপায় শিখিয়ে দেব। এখন এটিকে বিস্তারিতভাবে পড়তে পড়ুন।
ব্যাচ এক্সপোর্ট একাধিক আউটলুক ইমেলগুলিকে এক ওয়ার্ড ডকুমেন্টে
- টু এসtarএর সাথে আপনার আউটলুক প্রোগ্রামটি চালু করুন।
- তারপরে, মূল আউটলুক উইন্ডোতে প্রবেশ করার পরে, আপনাকে "Alt + F11" কী বোতাম টিপতে হবে।
- এরপরে আপনি আউটলুক ভিবিএ সম্পাদকটিতে অ্যাক্সেস পাবেন, এতে আপনার খালি মডিউলটি খুলতে হবে।
- পরবর্তীকালে, নীচে খোলা মডিউল উইন্ডোতে ভিবিএ কোডটি অনুলিপি করুন।
Sub ExportMultipleEmails_OneWordDocument()
Dim objFileSystem As Object
Dim strTempFolder As String
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim strFileName As String
Dim objWordApp As Word.Application
Dim objNewWordDocument As Word.Document
Dim objWordRange As Word.Range
Dim strWordDocument As String
Dim i As Long
'Create a temp folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "YYYYMMDDhhmmss")
MkDir (strTempFolder)
On Error Resume Next
'Save each selected email as an individual Word document in a temp folder
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For Each objMail In objSelection
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), " ")
objMail.SaveAs strTempFolder & "\" & strFileName & ".doc", olDoc
Next
'Merge all the Word documents into a single document
Set objWordApp = CreateObject("Word.Application")
Set objNewWordDocument = objWordApp.Documents.Add
strWordDocument = Dir(strTempFolder & "\" & "*.doc")
i = 0
Do Until strWordDocument = ""
i = i + 1
Set objWordRange = objNewWordDocument.Range
With objWordRange
.Collapse wdCollapseEnd
If i > 1 Then
.InsertBreak wdSectionBreakNextPage
.End = objNewWordDocument.Range.End
.Collapse wdCollapseEnd
End If
.InsertFile strTempFolder & "\" & strWordDocument
End With
strWordDocument = Dir()
Loop
'Change the path as per your own needs
objNewWordDocument.SaveAs "E:\Exported Emails " & Format(Now, "YYYY-MM-DD hh-mm-ss")
objWordApp.Quit
'Delete the temp folder
objFileSystem.DeleteFolder (strTempFolder)
End Sub
- এর পরে, আপনি এই নতুন ভিবিএ প্রকল্পটি দ্রুত অ্যাক্সেস সরঞ্জামদণ্ড বা ফিতাতে যুক্ত করা ভাল।
- শেষ পর্যন্ত, আপনি চেষ্টা করে দেখতে পারেন।
- প্রথম স্থানে, একাধিক আউটলুক ইমেল নির্বাচন করুন।
- তারপরে সন্ধান করুন এবং সদ্য যুক্ত হওয়া ম্যাক্রো বোতামটি ক্লিক করুন।
- আপনাকে “সম্পূর্ণ” হওয়ার অনুরোধ জানানোর পরে, একটি নতুন ওয়ার্ড ডকুমেন্ট খুঁজতে আপনি পূর্বনির্ধারিত লোকাল ফোল্ডারে ব্রাউজ করতে পারেন।
- এই দস্তাবেজটি খুলুন, যাতে আপনি নির্বাচিত সমস্ত ইমেলগুলি রফতানি করা দেখতে পারেন।
কাছাকাছি একটি শক্তিশালী পুনরুদ্ধার সরঞ্জাম রাখুন
অসংখ্য ফাংশন নির্বিশেষে, আউটলুক ত্রুটি থেকে এখনও সুরক্ষা পেতে পারে না। যদি আপনি ত্রুটিগুলি একা রাখার জন্য ব্যবহার করেন তবে সেগুলি আরও বাড়িয়ে তোলা হলে আউটলুক ক্রাশ অবশ্যই ঘটবে। এই মুহুর্তে, এর মতো শক্তিশালী এবং কার্যকর পুনরুদ্ধারের সরঞ্জামটি পুনরাবৃত্তি করা অপরিহার্য DataNumen Outlook Repair। এটি ভাল পারদর্শী হয় পিএসটি ঠিক করা। যতক্ষণ না এটির সাথে, আপনার আর কোনও দৃষ্টিভঙ্গির ডেটা হ্রাস সম্পর্কে উদ্বিগ্ন হওয়ার দরকার নেই।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত এমডিএফ এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com