ডিফল্টরূপে, আপনি একবারে কেবল একটি ফোল্ডারে একটি নিয়ম চালাতে পারেন। এই নিবন্ধে, আমরা আপনাকে শিখাব কীভাবে সমস্ত মেল ফোল্ডারে একটি নির্দিষ্ট নিয়ম চালানোর জন্য ভিবিএ কোডের একটি অংশ ব্যবহার করতে হয়।
আউটলুক ব্যবহারকারীদের ম্যানুয়ালি চালানোর অনুমতি দেয়। আপনি কেবলমাত্র "বিধি এবং সতর্কতা" ডায়ালগ বাক্স অ্যাক্সেস করতে পারেন এবং "এখনই নিয়ম চালান" বোতামটি টিপুন। পরবর্তী ডায়লগ বাক্সে, একটি নির্দিষ্ট নিয়ম নির্বাচন করুন এবং একটি ফোল্ডার চয়ন করুন যাতে আপনি এই নিয়মটি চালাতে চান। তবে, আপনি যদি সমস্ত মেল ফোল্ডারে দ্রুত কোনও নিয়ম চালাতে চান তবে নীচের ভিবিএ কোডটি ব্যবহার করতে পারেন।
সমস্ত মেল ফোল্ডারে দ্রুত একটি নির্দিষ্ট নিয়ম চালান
- প্রথম স্থানে, এসtarআপনার আউটলুক প্রোগ্রাম টি।
- তারপরে মূল আউটলুক উইন্ডোতে, “Alt + F11” কী বোতাম টিপুন।
- উদীয়মান "অ্যাপ্লিকেশনগুলির জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে, আপনার একটি ব্যবহার-অ-ব্যবহার মডিউলটি খুলতে হবে।
- পরবর্তীকালে, এই মডিউল উইন্ডোতে নীচে ভিবিএ কোডটি অনুলিপি করুন। এছাড়াও, আপনার নিজের কেসের উপর ভিত্তি করে কিছু লাইন পরিবর্তন করা উচিত, যেমন নিয়মের নাম।
Sub RunSpecificRule_AllMailFolders()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objPSTFile As Outlook.Folder
Dim objFolders As Outlook.folders
Dim objFolder As Object
Set objStores = Outlook.Application.Session.Stores
'Process all Outlook PST files in your Outlook
For Each objStore In objStores
Set objPSTFile = objStore.GetRootFolder
For Each objFolder In objPSTFile.folders
Call ProcessFolders(objFolder)
Next
Next
MsgBox "Complete!", vbExclamation + vbOKOnly, "Run Rule "
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
Dim objRules As Outlook.Rules
Dim objRule As Outlook.Rule
Dim objSubfolder As Outlook.Folder
Set objRules = Outlook.Application.Session.DefaultStore.GetRules
'Change the rule name as per your actual case
Set objRule = objRules.Item("Move Mails to Temp")
On Error Resume Next
'Only work on non-empty Mail folder
If objCurrentFolder.Items.count > 0 And objCurrentFolder.DefaultItemType = olMailItem Then
With objRule
.Enabled = True
.Execute ShowProgress:=True, Folder:=objCurrentFolder, IncludeSubfolders:=True
End With
End If
'Process subfolders recursively
If objCurrentFolder.folders.count > 0 Then
For Each objSubfolder In objCurrentFolder.folders
Call ProcessFolders(objSubfolder)
Next
End If
End Sub
- এর পরে, আপনার আউটলুক ম্যাক্রো সেটিংসটি পরীক্ষা করা উচিত, ম্যাক্রোর অনুমতি দেওয়া নিশ্চিত করা উচিত।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- কেবল "রানস্পিফিকালিউর_আলমেলফোল্ডার্স" সাবউরটিনে ক্লিক করুন।
- তারপরে এই কোডটি ট্রিগার করতে F5 কী বোতাম টিপুন।
- পরবর্তী অবিলম্বে ম্যাক্রো চলবে।
- এটি সম্পূর্ণ হওয়ার পরে, আপনি নীচের স্ক্রিনশটের মতো একটি বার্তা পাবেন। এটি নিয়ম সমাপ্ত হয়েছে বোঝায়।
দূষিত ম্যাক্রোগুলির জন্য সতর্কতা অবলম্বন করুন
যেমনটি আমরা সবাই জানি, দূষিত ইমেলগুলি ক্রমশ বেড়ে চলেছে mp এই জাতীয় ইমেলগুলি প্রায়শই দূষিত ম্যাক্রো সহ বহন করে। সুতরাং, আপনি যদি আপনার আউটলুক ম্যাক্রো সুরক্ষা স্তরটিকে নীচে সেট করেন তবে আপনাকে লুকানো ভাইরাস এবং ম্যালওয়্যার থেকে সাবধান থাকতে হবে। তদুপরি, একটি শক্তিশালী পিএসটি ফিক্স সরঞ্জামটি ধরে রাখা বুদ্ধিমানের কাজ DataNumen Outlook Repair। এটা সক্ষম মেরামত পিএসটি একটি ঘাম না ভেঙে আপনার জন্য ফাইল এবং সর্বাধিক ডেটা উত্তোলন।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ পুনরুদ্ধার এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com