বাস্তবে, আপনাদের মধ্যে অনেকেই হয়তো নির্দিষ্ট সিসি প্রাপকসহ ইমেলগুলো স্বয়ংক্রিয়ভাবে সরানোর জন্য একটি আউটলুক রুল তৈরি করতে চান। কিন্তু আউটলুক রুলে সিসি প্রাপক যাচাই করার সুবিধা নেই। তাই এই আর্টিকেলটিতে শেখানো হবে কীভাবে আউটলুক ভিবিএ (VBA) ব্যবহার করে এটি করা যায়।
স্পষ্টতই, নির্দিষ্ট সিসি প্রাপকদের অনুসন্ধান করার জন্য আপনার পক্ষে আউটলুক বিধি তৈরি করা অসম্ভব। নিম্নলিখিত স্ক্রিনশটে প্রদর্শিত হিসাবে প্রাপ্ত প্রাপ্ত ইমেলগুলির জন্য, আপনি কেবল নিজের নাম সিসি বাক্সে আছে কিনা তা পরীক্ষা করতে পারেন। একইভাবে, প্রেরিত ইমেলের জন্য, এমনকি সিসি বাক্স চেক করার কোনও নিয়ম শর্ত নেই।
সুতরাং, যদি আপনি নির্দিষ্ট সিসি প্রাপকদের সাথে ইমেলগুলি স্বয়ংক্রিয়ভাবে সরিয়ে নিতে আউটলুক কনফিগার করতে চান তবে আপনাকে অন্য উপায়গুলি খুঁজতে হবে। তারপরে। আউটলুক ভিবিএর মাধ্যমে এটি কীভাবে অর্জন করা যায় তা আমরা এখানে শিখাব।
নির্দিষ্ট সিসি প্রাপকদের সাথে প্রেরিত ইমেলগুলি স্বয়ংক্রিয়ভাবে সরান
- প্রথমত, "বিকাশকারী" ট্যাবে ফিরে যান এবং "ভিজ্যুয়াল বেসিক" বোতামে ক্লিক করুন।
- তারপরে "এই আউটলুকসেশন" প্রকল্পটি খুলুন এবং এতে নীচের ভিবিএ কোডগুলি অনুলিপি করুন।
Public WithEvents olItems As Outlook.Items
Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub olItems_ItemAdd(ByVal Item As Object)
If Item.Class = olMail Then
MoveMail Item
End If
End Sub
Sub MoveMail(Mail As Outlook.MailItem)
Dim ccRecip As String
Dim desFolder As Folder
'Replace "test" with your desired CC'd recipient name or address
ccRecip = "test"
'The "Test" folder is a subfolder under "Sent Items" folder
Set desFolder = Session.GetDefaultFolder(olFolderSentMail).Folders("Test")
If InStr(LCase(Mail.CC), ccRecip) > 0 Then
Mail.Move desFolder
End If
End Sub
- পরবর্তীকালে, আপনার এই কোডটি সাইন করতে এবং যথারীতি ম্যাক্রো সেটিংস পরিবর্তন করতে হবে।
- শেষ অবধি, আপনি "ভিজ্যুয়াল বেসিক" উইন্ডো থেকে প্রস্থান করতে পারেন। এরপরে নির্দিষ্ট সিসি প্রাপকদের সাথে ইমেলগুলি নির্দিষ্ট মেল ফোল্ডারে সরানো হবে।
নির্দিষ্ট সিসি প্রাপকদের সাথে প্রাপ্ত প্রাপ্ত ইমেলগুলি স্বয়ংক্রিয়ভাবে সরান
এখন যেহেতু উপরের ভিবিএ কোডটি নির্দিষ্ট সিসি প্রাপকদের সাথে প্রেরিত ইমেলগুলি সরিয়ে নেওয়া হয়েছে, আপনি যদি প্রাপ্ত প্রাপ্ত ইমেলগুলিতে নির্দিষ্ট সিসি প্রাপকদের সন্ধান করতে চান এবং তারপরে এটি সরিয়ে নিতে চান তবে পরিবর্তে আপনাকে নিম্নলিখিত কোডগুলি ব্যবহার করা উচিত।
Public WithEvents olItems As Outlook.Items
Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Sub olItems_ItemAdd(ByVal Item As Object)
If Item.Class = olMail Then
MoveMail Item
End If
End Sub
Sub MoveMail(Mail As Outlook.MailItem)
Dim Recips As Recipients
Dim Recip As Recipient
Dim ccRecip As String
Dim desFolder As Folder
Set Recips = Mail.Recipients
'Replace "test" with the specific words in your desired CC recipient address
ccRecip = "test"
For Each Recip In Recips
If Recip.Type = olCC Then
If InStr(LCase(Recip.Address), ccRecip) > 0 Then
'The "Test" folder is a subfolder under "Inbox" folder
Set desFolder = Session.GetDefaultFolder(olFolderInbox).Folders("Test")
Mail.Move desFolder
End If
End If
Next
End Sub
আউটলুক দুর্নীতির জন্য ভালভাবে প্রস্তুত থাকুন
যদিও আউটলুক বৈশিষ্ট্যযুক্ত সমৃদ্ধ, তবুও এটি দুর্নীতির হাত থেকে সুরক্ষিত হতে পারে না। সুতরাং আপনার সমস্ত সম্ভাব্য ঝুঁকির বিরুদ্ধে সতর্কতা অবলম্বন করা উচিত। নিঃসন্দেহে, সমালোচনামূলক পদক্ষেপটি অবশ্যই আউটলুক ডেটার জন্য একটি সামঞ্জস্যপূর্ণ এবং আপ টু ডেট ব্যাকআপ তৈরি করবে be তদ্ব্যতীত, আপনি একটি রাখা উচিত দূষিত আউটলুক পুনরুদ্ধার সরঞ্জাম আশেপাশে ব্যাকআপ এবং Scanpst.exe উভয়ই ব্যর্থ হলে এটি কার্যকর হবে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত SQL Server এমডিএফ ফাইল ত্রুটি এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com