किसी चयन पर वीबीए का उपयोग करके श्रेणियां सेट करना Outlook 2007

Question

में काम नहीं कर रहा है, मैं वर्तमान चयन के लिए मेल संदेश श्रेणियां सेट करने का प्रयास कर रहा हूं। जब मैं मैक्रो चलाता हूं तो मैं दिए गए श्रेणी में केवल एक ही संदेश पर सेट होता हूं। मैं निम्नलिखित कोड का उपयोग (और यह भी selection.count का उपयोग कर until..loop एक करते उपयोग करने के लिए कोशिश की है):

Sub SetSelectionComplete() 
    Dim mailMsg As MailItem 

    For Each mailMsg In Outlook.Application.ActiveExplorer.Selection 
     mailMsg.Categories = "Complete" 
    Next 

End Sub 

कोई भी विचार?

Answer 1

जनको आपको मेलिटम को कॉल करने की आवश्यकता है। जैसा कि रेमो कहते हैं कि चयन के साथ काम करना पीछे की ओर काम करने के लिए अच्छा है। मार्कस

Answer 2

सहेजें mailMsg आइटम हर बार, इस तरह:

Sub SetSelectionComplete() 
    Dim mailMsg As MailItem 
    For Each mailMsg In Outlook.Application.ActiveExplorer.Selection 
     mailMsg.Categories = "Complete" 
     mailMsg.Save 
    Next 
End Sub