আউটলুক বিধি - এক্স দিনের চেয়ে পুরানো মেলটি সরান Move

Question

আউটলুক 2010. একটি নিয়ম তৈরি করতে চান যা আমার ইনবক্স থেকে সমস্ত মেলকে অন্য ফোল্ডারে নিয়ে যায়:

• পড়া হয়েছে
• এক্স দিনের চেয়ে পুরনো

আমি অটো-সংরক্ষণাগারটির দিকে তাকিয়ে ছিলাম তবে আমার মাপদণ্ডের সাথে এটি আমাকে এই নির্দিষ্ট হতে দেবে বলে মনে হয় না।

Comments

কেউ কি মাইক্রোসফ্ট আউটলুক দলে ফরোয়ার্ড করতে পারে?

— জয়ন

Answer 1

এই মুহুর্তে এটি করার সবচেয়ে ভাল উপায়টি হ'ল কাস্টম মানদণ্ডের সাথে একটি নতুন অনুসন্ধান ফোল্ডার তৈরি করা যেমন নির্দিষ্ট তারিখে বা তার আগে সংশোধিত আইটেমগুলি। আমি তারপরে ফোল্ডারে ডান ক্লিক করুন এবং 'মুছুন সমস্ত' চয়ন করুন যা অনুসন্ধান ফোল্ডারে সমস্ত আইটেমটি বিনটিতে প্রেরণ করে।

Comments

এটি কোনও উত্তর নয়, কারণ বার্তাগুলি কোনও ফোল্ডারে সরানো হয়নি, সেগুলি কেবল বিনে সরানো হয়েছে ।

— প্রো ব্যাকআপ

Answer 2

অনুসন্ধানের ফোল্ডারগুলি উত্তর, তবে ওপি কোনও নির্দিষ্ট তারিখের চেয়ে পুরানো মেল সম্পর্কে জিজ্ঞাসা করেছিল । আপনি যদি "গত সপ্তাহে সংশোধিত" ব্যবহার করেন তবে এটি সর্বশেষ সপ্তাহের মধ্যে সমস্ত কিছু দেখায় এবং 1 সপ্তাহেরও বেশি পুরানো জিনিসগুলি ফিল্টার করে। বিপরীত যেটির জন্য, ভাষাটি ব্যবহার করুন:

• 8 দিন আগে
• 1 সপ্তাহ আগে
• ইত্যাদি ...

Comments

দুর্দান্ত, আপনি জানেন না যে আপনি মূল্যটির জন্য প্রাকৃতিক ভাষা লিখতে পারেন!

— রিপারডক

Answer 3

আমি সেরকমই কিছু খুঁজছিলাম। আমার ইনস্টলেশনটির জন্য অটো-সংরক্ষণাগারটি অক্ষম থাকায় আমাকে একটি ম্যাক্রো ব্যবহার করতে হবে। আমি এখানে যা এলাম তা এখানে:

Option Explicit
Private Sub Application_MAPILogonComplete()
    ' this runs on app startup
    Const MSG_AGE_IN_DAYS = 7

    Dim oFolder As Folder
    Dim oFilteredItems As Outlook.Items
    Dim oItem As MailItem
    Dim oDate As Date

    oDate = DateAdd("d", -MSG_AGE_IN_DAYS, Now())
    oDate = Format(oDate, "mm/dd/yyyy")

    ' you can use this command to select a folder
    'Set oFolder = Application.Session.PickFolder

    Set oFolder = Me.Session.Folders.GetFirst

    ' shows all the folder names
    'For Each fldr In oFolder.Folders
    '    Debug.Print fldr.Name
    'Next fldr

    ' this was the sub-folder I wanted to cleanup.
    Set oFolder = oFolder.Folders("Storage").Folders("batch runs")

    Debug.Print "checking " & oFolder.FolderPath
    Debug.Print "for msgs older than " & oDate

    ' you can modify the filter to suit your needs
    Set oFilteredItems = oFolder.Items.Restrict("[Received] <= '" & oDate & "' And [Unread] = True")

    Debug.Print "removing " & oFilteredItems.Count & " items"

    While oFilteredItems.Count > 0
        Set oItem = oFilteredItems.GetFirst
        Debug.Print "   " & oItem.UnRead & " " & oItem.Subject

        ' the remove method permanently deletes the item.
        oFilteredItems.Remove 1
        'Debug.Print oFilteredItems.Count & " items left"
    Wend

    Debug.Print ". end"

    Set oFolder = Nothing
    Set oFilteredItems = Nothing
    Set oItem = Nothing
End Sub

এই ম্যাক্রো অ্যাপ্লিকেশনটির জীবনচক্রের শেষ পর্যায়ে যুক্ত; এটি চালিত হয় যখন আউটলুক শুরু হয়। আপনি সম্ভবত এটিতে স্বাক্ষর করতেও চাইবেন (এবং আপনার স্বাক্ষরের উপর বিশ্বাস রাখুন) যাতে আপনি সুরক্ষা অভিযোগ পান।

আছে HTH