বর্তমান ওয়ার্ড ডকুমেন্টকে ইমেল সংযুক্তি হিসাবে প্রেরণে এমএস ওয়ার্ডের সরাসরি বৈশিষ্ট্য রয়েছে। তবে কখনও কখনও আপনি কেবল ওয়ার্ড ডকুমেন্টের নির্দিষ্ট পৃষ্ঠাগুলি একটি আউটলুক ইমেলের সাথে সংযুক্ত করার আশা করতে পারেন। এখন, এই নিবন্ধটি আপনাকে একটি পদ্ধতি ভাগ করে নেবে।
এমএস ওয়ার্ড অ্যাপ্লিকেশনটিতে ইমেল সংযুক্তি হিসাবে একটি সম্পূর্ণ ওয়ার্ড ডকুমেন্ট প্রেরণ করতে, আপনি কেবল "ফাইল" মেনুতে যেতে পারেন এবং "সংরক্ষণ করুন & প্রেরণ করুন" ট্যাবে স্থানান্তর করতে পারেন, যার অধীনে আপনি একটি "সংযুক্তি হিসাবে প্রেরণ করুন" বোতামটি খুঁজে পেতে পারেন। তবুও, অনেক সময় আপনি যা পাঠাতে চান তা কেবলমাত্র নথির নির্দিষ্ট পৃষ্ঠা হতে পারে। এই পরিস্থিতিতে, আপনি এটি অনুসরণ করতে নিম্নলিখিত পদ্ধতিতে চালু পদ্ধতিটি ব্যবহার করতে পারেন।
একটি ইমেলের সাথে একটি শব্দ নথির নির্দিষ্ট পৃষ্ঠা সংযুক্ত করুন
- প্রথমে, আপনার উত্স ওয়ার্ড ডকুমেন্টটি খোলা উচিত যার নির্দিষ্ট পৃষ্ঠাগুলি আপনি ইমেলটিতে প্রেরণ করতে চান।
- তারপরে, এমএস ওয়ার্ড উইন্ডোতে আসার পরে, আপনাকে "Alt + F11" কী বোতাম টিপতে হবে।
- এর পরে, আপনি এমএস ওয়ার্ডে ভিবিএ সম্পাদকের অ্যাক্সেস পাবেন।
- এরপরে, আপনাকে “মাইক্রোসফট আউটলুক অবজেক্ট লাইব্রেরি” সক্রিয় করতে হবে। এটি করার জন্য আপনি “টুলস” > “রেফারেন্স”-এ ক্লিক করতে পারেন।
- পরবর্তীকালে, আপনাকে নিম্নলিখিত ভিবিএ কোডটি এমন কোনও মডিউলে অনুলিপি করা উচিত যা ব্যবহার হয় না।
Sub AttachSpecificPagesToOutlookEmail()
Dim strDocumentName As String
Dim objSelectedPages As Word.Range
Dim objTempDocument As Word.Document
Dim objTempRange As Word.Range
Dim i As Long
Dim strTempDocument As String
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
strDocumentName = Left(ActiveDocument.Name, InStr(ActiveDocument.Name, ".") - 1)
'Copy the contents from Page 2 to 4
'You can change the page as per your own needs
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
Set objSelectedPages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
objSelectedPages.Select
objSelectedPages.Copy
'Paste the copied contents into a new Word Document
Set objTempDocument = Word.Application.Documents.Add
objTempDocument.Activate
Set objTempRange = objTempDocument.Range(0, 0)
objTempRange.PasteAndFormat (wdFormatOriginalFormatting)
For i = objTempDocument.Paragraphs.Count To 1 Step -1
If Len(objTempDocument.Paragraphs(i).Range) = 1 Then
objTempDocument.Paragraphs(i).Range.Delete
Else
Exit For
End If
Next i
'Save this document
strTempDocument = "E:\" & strDocumentName & " (Excerpt).doc"
objTempDocument.SaveAs2 strTempDocument, wdFormatDocument
'Attach the new document to a new Outlook email
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Attachments.Add (strTempDocument)
objMail.Display
objTempDocument.Close False
Kill strTempDocument
End Sub
- অবশেষে, আপনি এই ম্যাক্রো চালাতে পারেন। কেবল এফ 5 কী বোতাম টিপুন বা সরঞ্জামদণ্ডে "রান" আইকনে আলতো চাপুন।
- ম্যাক্রো শেষ হওয়ার পরে, একটি নতুন আউটলুক ইমেল প্রদর্শিত হবে যা নীচের স্ক্রিনশটের মতো উত্স ওয়ার্ড ডকুমেন্টের একটি অংশের সাথে সংযুক্ত রয়েছে:
দূষিত আউটলুক ফাইল থেকে সর্বোচ্চ ডেটা উত্তোলন করুন
আপনি যদি কয়েক দশক ধরে আউটলুক ব্যবহার করেন, আপনি পপআপ অভ্যন্তরীণ ত্রুটি বার্তা, হঠাৎ ক্র্যাশ এবং গুরুতর ফাইল ক্ষতি সহ বিভিন্ন আউটলুক সমস্যার মুখোমুখি হতে পারেন। এই কারণে যে স্ক্যানপস্ট, অন্তর্নির্মিত মেরামত সরঞ্জাম, কেবলমাত্র ছোট সমস্যাগুলিই মোকাবেলা করতে পারে, বলুন আপনার বাহ্যিক শক্তিশালী ফিক্স সরঞ্জামটি খুব ভাল রাখা উচিত DataNumen Outlook Repair। এটি ক্ষতিগ্রস্থ আউটলুক ডেটা ফাইল থেকে সর্বাধিক ডেটা আঁকতে সক্ষম।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় বর্গফুট ঠিক করা এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com