आउटलुक नियम - मेल स्थानांतरित करें जो एक्सएडी की तुलना में आरईएडी और पुराना है

Question

आउटलुक 2010. एक ऐसा नियम बनाना चाहते हैं जो मेरे इनबॉक्स से दूसरे मेल को दूसरे फ़ोल्डर में ले जाए:

• पढ़ लिया गया है
• X दिनों से पुराना है

मैं ऑटो-आर्काइविंग को देख रहा था, लेकिन मुझे अपने मानदंडों के साथ यह विशिष्ट नहीं लगता है।

Comments

क्या कोई इसे Microsoft Outlook टीम को अग्रेषित कर सकता है?

— जयन

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