কিছু কারণে, আপনি আপনার Outlook এ অনেক খসড়া ইমেল সংরক্ষণ করতে পারেন। এই নিবন্ধটি আপনাকে শেখাবে কিভাবে ব্যাচ তাদের সবগুলিকে পাঠাতে হয় বা শুধুমাত্র নির্বাচিতকে এক ক্লিকের মাধ্যমে পাঠাতে হয়, যা Outlook VBA দিয়ে তৈরি করা হয়েছে।
কখনও কখনও, আপনি এখনই ইমেলগুলি পাঠানোর আশা করতে পারেন না। অতএব, আপনি সেগুলিকে খসড়া মেল ফোল্ডারে সংরক্ষণ করবেন এবং পরে সেগুলি পাঠাতে চান৷ যথারীতি, আপনি যখন ড্রাফ্টগুলি পাঠাতে চান, তখন আপনাকে সেগুলি পৃথকভাবে খুলতে হবে এবং একের পর এক "পাঠান" বোতাম টিপুন৷ যদি প্রচুর পরিমাণে খসড়া পাঠানো হয়, তবে এটি বেশ সময়সাপেক্ষ হবে। তাই, অনেক ব্যবহারকারী আশা করে যে আউটলুক তাদের শুধুমাত্র একটি বোতামে ক্লিক করে সমস্ত খসড়া পাঠানোর অনুমতি দিতে পারে। যাইহোক, ডিফল্টরূপে, এই ধরনের একটি বোতাম নেই। কিন্তু আপনি এটি তৈরি করতে Outlook VBA প্রয়োগ করতে পারেন। এখানে বিস্তৃত পদক্ষেপ এবং VBA কোড আছে।
ব্যাচ সব খসড়া ইমেল পাঠান
- প্রথমে, Outlook অ্যাপ্লিকেশন চালু করুন এবং "Alt + F11" শর্টকাট টিপুন।
- তারপর আপনি VBA সম্পাদক উইন্ডো খুলবেন, যেখানে আপনার একটি নতুন মডিউল খুলতে হবে।
- পরবর্তীকালে, এটিতে নিম্নলিখিত ভিবিএ কোডগুলি অনুলিপি করুন এবং আটকান।
Sub SendAllDraftEmails()
Dim objDrafts As Outlook.Items
Dim objDraft As Object
Dim strPrompt As String
Dim nResponse As Integer
Dim i As Long
Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
If objDrafts.Count > o Then
strPrompt = "Are you sure to send out all the drafts?"
nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
If nResponse = vbYes Then
For i = objDrafts.Count To 1 Step -1
objDrafts.Item(i).Send
Next
End If
Else
MsgBox ("No Drafts!")
End If
End Sub
- এর পরে, আপনি VBA সম্পাদক থেকে প্রস্থান করতে পারেন এবং দ্রুত অ্যাক্সেস টুলবার বা রিবনে VBA প্রকল্প যোগ করতে এগিয়ে যেতে পারেন। এখানে আমরা একটি উদাহরণ হিসাবে দ্রুত অ্যাক্সেস টুলবার নেব।
- প্রথমত, “ফাইল” > “বিকল্পসমূহ” > “দ্রুত অ্যাক্সেস টুলবার” ট্যাবে যান।
- তারপরে দ্রুত অ্যাক্সেস টুলবারে নতুন ম্যাক্রো যুক্ত করতে নীচের ছবিতে দেখানো পদক্ষেপগুলি অনুসরণ করুন।
- অবশেষে আপনি মূল আউটলুক উইন্ডোতে ফিরে যেতে পারেন। আপনি দ্রুত অ্যাক্সেস টুলবারে নতুন বোতাম দেখতে পাবেন।
- ড্রাফ্ট ফোল্ডারে কোনো আইটেম না থাকলে, আপনি যখন বোতামটি ক্লিক করেন, আপনি নিম্নলিখিত স্ক্রিনশটের মতো একটি বার্তা পাবেন।
- কিন্তু খসড়া ফোল্ডারে আইটেম থাকলে, আপনি নীচের ছবির মত একটি প্রম্পট পাবেন। যত তাড়াতাড়ি আপনি "হ্যাঁ" নির্বাচন করবেন, আউটলুক সমস্ত খসড়া পাঠাতে শুরু করবে।
ব্যাচ নির্বাচিত খসড়া ইমেল পাঠান
আপনি যদি শুধুমাত্র নির্বাচিত খসড়া পাঠানোর আশা করেন, তাহলে উপরের কোডগুলো অনুপযুক্ত। আপনি পরিবর্তে নিম্নলিখিত কোড ব্যবহার করতে পারেন.
- প্রথমত, তাদের একটি নতুন মডিউলে অনুলিপি করুন।
Sub SendSelectedDraftEmails()
Dim objSelection As Selection
Dim strPrompt As String
Dim nResponse As Integer
Dim i As Long
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If objSelection.Count > 0 Then
strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
If nResponse = vbYes Then
For i = objSelection.Count To 1 Step -1
objSelection.Item(i).Send
Next
End If
Else
MsgBox ("No items selected!")
End If
End Sub
- তারপরে যথারীতি দ্রুত অ্যাক্সেস টুলবারে নতুন ম্যাক্রো যোগ করুন।
- পরবর্তীকালে, আপনি নির্বাচন করতে পারেন tarখসড়া ইমেল পান এবং বোতাম টিপুন, আপনি চিত্রের মতো একটি প্রম্পট পাবেন:
- অবশেষে, যতক্ষণ আপনি "হ্যাঁ" ক্লিক করবেন, নির্বাচিত খসড়া ইমেলগুলি পাঠানো হবে।
বিরক্তিকর আউটলুক সমস্যা নিষ্পত্তি
সম্ভবত আপনি একাধিক বিরক্তিকর আউটলুক সমস্যার সম্মুখীন হয়েছেন। কিভাবে আপনি তাদের পরিত্রাণ পেতে পারেন? যথারীতি, আপনি এটির অন্তর্নির্মিত মেরামতের সরঞ্জাম, Scanpst.exe ব্যবহার করে দেখতে পারেন। এটি ছোট আউটলুক পিএসটি ফাইলের সমস্যাগুলি ঠিক করতে সক্ষম। কিন্তু যদি আপনি দুর্ভাগ্যবশত গুরুতর ঝামেলার সাথে দেখা করেন, যেমন PST ইমেল ক্ষতি, ইনবক্স টুল প্রভাব তৈরি করবে না. সেই মুহুর্তে, আপনার কাছে আরও অগ্রগণ্য সরঞ্জাম নিয়োগ করা ছাড়া কোন বিকল্প নেই, যেমন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় mdf ত্রুটি মেরামত এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com