আপনি যদি এক্সেল ওয়ার্কবুকের সমস্ত ওয়ার্কশীট আলাদা আউটলুক ইমেল হিসাবে পাঠাতে চান, তাহলে আপনি এই নিবন্ধে প্রবর্তিত পদ্ধতিটি ব্যবহার করতে পারেন। এটি আপনাকে বিপুলভাবে একের পর এক প্রেরণ না করে এটিকে প্রচুর পরিমাণে উপলব্ধি করতে পরিচালিত করতে পারে।
আমার আগের পোস্টে “আউটলুক ইমেল হিসাবে একটি এক্সেল ওয়ার্কশিট প্রেরণের 2 দ্রুত পদ্ধতিওই পোস্টে আপনি একটি এক্সেল ওয়ার্কশিট ইমেইল হিসেবে পাঠানোর দুটি উপায় শিখতে পারেন। যদি আপনি একটি ওয়ার্কবুকের সমস্ত ওয়ার্কশিট আলাদা আলাদা ইমেইল হিসেবে একসাথে পাঠাতে চান, তবে সেখানে উল্লিখিত দুটি পদ্ধতির যেকোনো একটি ব্যবহার করা বেশ ক্লান্তিকর এবং ঝামেলাপূর্ণ হবে। তাই, এখানে আমরা আরেকটি উপায় তুলে ধরব, যার মাধ্যমে খুব অল্প সময়ে এই ধরনের “ব্যাচ সেন্ড” করা সম্ভব।
ব্যাচ একক এক্সেল ওয়ার্কবুকের সমস্ত ওয়ার্কশীট পৃথক ইমেল হিসাবে পাঠান
- প্রথম স্থানে, আপনার সোর্স এক্সেল ওয়ার্কবুক খুলতে হবে।
- তারপরে, এক্সেল উইন্ডোতে প্রবেশ করার পরে, আপনাকে "Alt + F11" কী শর্টকাটগুলিতে আলতো চাপতে হবে।
- পরবর্তী, "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজুয়াল বেসিক" নামে আরেকটি উইন্ডো প্রদর্শিত হবে।
- এটিতে, আপনাকে একটি অব্যবহৃত মডিউল খুলতে হবে বা একটি নতুন মডিউল সন্নিবেশ করতে হবে।
- পরবর্তী সময়ে, আপনি এই মডিউলে নিম্নলিখিত ভিবিএ কোডটি অনুলিপি করতে পারেন।
Sub SendEachWorksheet_inOutlookEmail()
Dim objWorksheet As Excel.Worksheet
Dim objRange As Excel.Range
Dim objTempWorkbook As Excel.Workbook
Dim objTempWorksheet As Excel.Worksheet
Dim strTempFolder As String
Dim strHTMLFile As String
Dim objHTMLFile As Object
Dim objFileSystem As Object
Dim objTextStream As Object
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
For Each objWorksheet In ActiveWorkbook.Sheets
Set objRange = objWorksheet.UsedRange
objRange.Copy
Set objTempWorkbook = Excel.Application.Workbooks.Add(1)
Set objTempWorksheet = objTempWorkbook.Sheets(1)
With objTempWorksheet.Cells(1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteFormats
End With
strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
strHTMLFile = strTempFolder & "\Temp" & Format(Now, "yyyymmddhhmmss") & ".htm"
Set objHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
objHTMLFile.Publish (True)
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFileSystem.OpenTextFile(strHTMLFile)
objMail.HTMLBody = objTextStream.ReadAll
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = objWorksheet.Name
.Display
End With
objTextStream.Close
objTempWorkbook.Close False
Kill strHTMLFile
Next
End Sub
- এর পরে, আপনি F5 কী বোতাম টিপে বা টুলবারে "রান" আইকনে ক্লিক করে এই ম্যাক্রোটি ট্রিগার করতে পারেন।
- একবারে, এই এক্সেল ওয়ার্কবুকের সমস্ত ওয়ার্কশীটের সাথে সামঞ্জস্যপূর্ণ ইমেলগুলি আউটলুকে প্রদর্শিত হবে।
- অবশেষে, আপনি সমস্ত ইমেলের বিশদ পুনরায় পরীক্ষা করতে পারেন এবং শেষ পর্যন্ত ইমেলগুলি পাঠাতে "পাঠান" বোতামে ক্লিক করুন।
ব্যাকআপ না থাকলে একটি শক্তিশালী পুনরুদ্ধারের সরঞ্জাম প্রয়োগ করুন
আরও বেশি ব্যবহারকারী ডেটা ব্যাকআপের গুরুত্ব বুঝতে পেরেছেন। যতক্ষণ আপনি আপনার PST ফাইল ব্যাক আপ করেছেন, পিএসটি পুনরুদ্ধার ক্ষতির পরে বেশ সহজ হবে। কিন্তু যদি একটি কার্যকর এবং আপ-টু-ডেট পিএসটি ব্যাকআপ না থাকে, তাহলে আপনার বাহ্যিক পিএসটি মেরামতের সরঞ্জামের সাহায্য নেওয়া ছাড়া আর কোন উপায় নেই, যেমন DataNumen Outlook Repair। এটি বাতাসের মতো আপস করা পিএসটি ফাইলগুলি মেরামত করতে পারে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় পুনরুদ্ধার এসকিএল এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com