এই সাধারণ ফিল্টারটি ঘটানোর জন্য প্রয়োজনীয় এই সমস্ত অংশগুলির জন্য আমি উচ্চ এবং নিম্ন দেখলাম। ইউনিক্স প্রোমেল ফিল্টারগুলি তুলনা করে ব্যবহার করা এত সহজ। সমস্ত মাইক্রোসফ্ট আউটলুক উইজার্ডস ওয়াইল্ডকার্ডগুলি ব্যবহার করে একটি সাধারণ ফিল্টারের পথে চলে। মাইক্রোসফ্ট ডিফল্টরূপে সরবরাহ করে এমন অনেকগুলি ইমেল ফিল্টার শর্তগুলি কার্যকর কোনও কিছুই চলমান কোডের নমনীয়তা এবং কাস্টমাইজেশনকে হারাতে পারে না।
- আপনার কোড লিখুন।
Alt-F11 ভিবিএ কোড সম্পাদক নিয়ে আসে। এই আউটলুকসেশনে ডাবল ক্লিক করুন। আপনার কোড লিখুন। আমার ক্ষেত্রে এটি সাবজেক্টের লাইনে একটি রেজেক্স ব্যবহার করছে এবং এটি ডিফল্ট ফোল্ডারে নয় বরং সাব-ফোল্ডারে আমার নিজের পিএসটি নিয়ে চলেছে।
Sub filter(Item As Outlook.MailItem)
Dim ns As Outlook.NameSpace
Dim MailDest As Outlook.Folder
Set ns = Application.GetNamespace("MAPI")
Set Reg1 = CreateObject("VBScript.RegExp")
Reg1.Global = True
Reg1.Pattern = "(.*Abc.20.*)"
If Reg1.Test(Item.Subject) Then
Set MailDest = ns.Folders("Personal Folders").Folders("one").Folders("a")
Item.Move MailDest
End If
End Sub
- একটি নিয়ম সহ প্রতিটি আগত ইমেলের জন্য কোড চালান।
নিয়মের অধীনে "বিধি এবং সতর্কতাগুলি পরিচালনা করুন ..." নির্বাচন করুন। নতুন নিয়মটি দেখতে হবে
Apply this rule after the message arrives run Project1.ThisOutlookSession.filter
এটি পেতে, পদক্ষেপ 1 এর জন্য: শর্ত নির্বাচন করুন: কেবলমাত্র পরবর্তী ক্লিক করুন। ওকে ক্লিক করে নিশ্চিত করুন এটি সমস্ত বার্তায় প্রযোজ্য। অ্যাকশন নির্বাচন করার জন্য "স্ক্রিপ্ট চালান" পরীক্ষা করুন তারপরে ফিল্টার স্ক্রিপ্ট চয়ন করতে ক্লিক করুন এবং Next বা সমাপ্ত নির্বাচন করুন। নির্বাচন ব্যতিক্রম (গুলি) এর জন্য Next বা সমাপ্তিতে ক্লিক করুন or এটি ভিবিএ-ফিল্টার এর মতো একটি ভাল নাম দিন এবং এই নিয়মটি চালু করুন দেখুন। সমাপ্তি ক্লিক করুন। যেহেতু এটি একটি স্থানীয় ফোল্ডারে অনুলিপি করা হয়েছে ঠিক আছে ক্লিক করুন যখন এটি অনলাইনে বা অন্য কোনও ডিভাইস থেকে চেক করা ইমেলটির জন্য কাজ করবে না তা নিশ্চিত করার জন্য জিজ্ঞাসা করে। বিধি ও সতর্কতা ডায়ালগ বাক্সে ওকে ক্লিক করুন।
- আউটলুক পছন্দ করে না যখন ম্যাক্রোগুলি স্বাক্ষরিত হয় না। আপনার ম্যাক্রোগুলিকে স্ব-স্বাক্ষর করতে একটি শংসাপত্র তৈরি করুন এবং এটি ব্যবহার করুন ।