কিছু ব্যবহারকারী একটি সমাধানের জন্য আকাঙ্ক্ষা করে যা তাদের দ্রুত সময়ের মধ্যে একটি আউটলুক ইমেল হিসাবে একটি Word নথির নির্দিষ্ট পৃষ্ঠাগুলি পাঠাতে দেয়। এই নিবন্ধে, আমরা বিস্তারিতভাবে যেমন একটি পদ্ধতি চালু করা হবে।
আপনি যদি আমার আগের নিবন্ধটি পড়ে থাকেন "একটি আউটলুক ইমেলের সাথে কীভাবে কোনও ওয়ার্ড ডকুমেন্টের সুনির্দিষ্ট পৃষ্ঠাগুলি সংযুক্ত করতে হয়", আপনি এমন একটি পদ্ধতির জন্য জিজ্ঞাসা করতে পারেন যা একটি ইমেল সংযুক্তির পরিবর্তে সরাসরি একটি Word নথির নির্দিষ্ট পৃষ্ঠাগুলিকে একটি ইমেল হিসাবে পাঠাতে পারে। এখন, নিম্নলিখিতগুলিতে, আমরা আপনাকে VBA কোডের একটি অংশ দেখাব, যা সহজেই এটি উপলব্ধি করতে পারে।
একটি আউটলুক ইমেল হিসাবে একটি শব্দ নথির নির্দিষ্ট পৃষ্ঠাগুলি পাঠান
- শুরু করার জন্য, আপনাকে উৎস ওয়ার্ড ডকুমেন্ট অ্যাক্সেস করতে হবে যার নির্দিষ্ট পৃষ্ঠাগুলি আপনি পাঠাতে চান।
- তারপরে, খোলা ওয়ার্ড উইন্ডোতে, আপনাকে "Alt + F11" বোতাম টিপুন।
- এটি "অ্যাপ্লিকেশনের জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোটি আনবে।
- এই উইন্ডোতে, আপনার একটি নতুন মডিউল সন্নিবেশ করা উচিত।
- এরপরে, আপনাকে "Microsoft Outlook Object Lib" সক্ষম করতে হবেrary ”।
- "সরঞ্জাম" ক্লিক করুন এবং ড্রপ ডাউন তালিকা থেকে "রেফারেন্স" নির্বাচন করুন।
- পপআপ ডায়ালগ বক্সে, আপনি "Microsoft Outlook Object Lib" দেখতে না পাওয়া পর্যন্ত নিচে স্ক্রোল করুনrary"। এটি সক্রিয় করুন এবং "ঠিক আছে" ক্লিক করুন।
- এর পরে, আপনি এই মডিউলে নীচের VBA কোডের অংশটি অনুলিপি করতে পারেন।
Sub SendSpecificPagesAsOutlookEmail()
Dim objSelectedPages As Word.Range
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
'Copy the contents from Page 3 to 4
'Change the page number as per your needs
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
Set objSelectedPages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
objSelectedPages.Select
objSelectedPages.Copy
'Get Outlook Application
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
'Create a new email
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
'Paste the contents in specific pages into message body
Set objMailDocument = objMail.GetInspector.WordEditor
Set objTempRange = objMailDocument.Range(0, 0)
objTempRange.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
- অবশেষে, আপনি একবারে এই ম্যাক্রো চালাতে পারেন। বর্তমান মডিউলে শুধু "F5" কী বোতাম টিপুন।
- আপনি নিম্নলিখিত স্ক্রিনশটের মতো একটি আউটলুক সতর্কতা পেতে পারেন। আপনি সরাসরি "অনুমতি দিন" ক্লিক করতে পারেন।
- শেষ পর্যন্ত, আপনি একটি ইমেল পাবেন যাতে Word নথির নির্দিষ্ট পৃষ্ঠাগুলি রয়েছে।
আউটলুক ডেটা সুরক্ষা মনোযোগ দিন
আপনি আউটলুকে ফাংশনের পরিমাণে যথেষ্ট সন্তুষ্ট হতে পারেন। তবে, এটিতে এখনও ত্রুটি রয়েছে। উদাহরণস্বরূপ, এটি ত্রুটি এবং দুর্নীতির জন্য সংবেদনশীল। এই ক্ষেত্রে, আপনাকে নিয়মিত ব্যবধানে আপনার Outlook PST ফাইলগুলির ব্যাকআপ সহ আউটলুক সুরক্ষায় অনেক মনোযোগ দিতে হবে। উপরন্তু, এটা বিচক্ষণ এবং একটি শক্তিশালী রাখা প্রস্তাবিত পিএসটি মেরামত ইউটিলিটি, মত DataNumen Outlook Repair. এটি এত শক্তিশালী যে এটি গুরুতরভাবে দূষিত Outlook ফাইল থেকে সর্বাধিক ডেটা বের করতে পারে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ মেরামত এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com