VBA के साथ Outlook में MailMessage को स्थायी रूप से हटाएं?

Question

मैं वीबीए कोड के साथ Outlook 2000 से MailMessage को स्थायी रूप से हटाने का तरीका ढूंढ रहा हूं। मैं हटाए गए आइटम खाली करने के लिए दूसरा लूप करने के बिना ऐसा करना चाहता हूं।

अनिवार्य रूप से, मैं एक संदेश पर क्लिक करने के यूआई पद्धति के लिए एक कोड बराबर रहा हूँ और मार शिफ्ट + DELETE।

क्या ऐसी कोई बात है?

Answer 1

यह पहली बार तो आगे बढ़ इसे हटाने (2000 में कुछ patchs पर काम करता है) का प्रयास करें या RDO या सीडीओ का उपयोग काम करने के लिए आप

Set objDeletedItem = objDeletedItem.Move(DeletedFolder) 
    objDeletedItem.Delete 

सीडीओ रास्ता

(आप उन्हें स्थापित करने के लिए होगा) के लिए

Set objCDOSession = CreateObject("MAPI.Session") 
objCDOSession.Logon "", "", False, False 
Set objMail = objCDOSession.GetMessage(objItem.EntryID, objItem.Parent.StoreID) 
objMail.Delete 

RDO

set objRDOSession = CreateObject("Redemption.RDOSession") 
objRDOSession.Logon 
set objMail = objRDOSession.GetMessageFromID(objItem.EntryID>) 
objMail.Delete 

तुम भी संदेश पहले निशान सकता है इससे पहले कि आप और वें हटाना ई हटाए गए आइटम फ़ोल्डर के माध्यम से लूप करें और इसे एक दूसरी बार हटाएं। इसे Userproperty का उपयोग करके चिह्नित करें। आप के माध्यम से

objMail.UserProperties.Add "Deleted", olText 
objMail.Save 
objMail.Delete 

पाश आइटम कि userprop

Set objDeletedFolder = myNameSpace.GetDefaultFolder(olFolderDeletedItems) 
    For Each objItem In objDeletedFolder.Items 
     Set objProperty = objItem.UserProperties.Find("Deleted") 
     If TypeName(objProperty) <> "Nothing" Then 
      objItem.Delete 
     End If 
    Next 

Answer 2

आप निम्नलिखित दृष्टिकोण का उपयोग कर सकते देखने के लिए, मूल रूप से आप अपने ई-मेल संदेश के सभी के रूप में आप वर्तमान में क्या कर रहे हैं को नष्ट नष्ट कर दिया है, तो यह एक लाइन फोन हटाए गए आइटम फ़ोल्डर खाली करें। कोड jscript में है, लेकिन अगर आप वास्तव में मुझे जरूरत के लिए :) मैं अनुवाद कर सकते हैं

var app = GetObject("", "Outlook.Application"); //use new ActiveXObject if fails 

app.ActiveExplorer().CommandBars("Menu Bar").Controls("Tools").Controls('Empty "Deleted Items" Folder').Execute(); 

Answer 3

सभी की

आसान समाधान, पहला तरीका के समान:

FindID = deleteme.EntryID 
    deleteme.Delete 
    set deleteme = NameSpace.GetItemFromID(FindID) 
    deleteme.Delete 

इसे दो बार करो और यह हूँ अच्छे के लिए चले जाओ, और कोई प्रदर्शन हत्या लूप नहीं। (यदि डिफ़ॉल्ट स्टोर में नहीं है तो नामस्थान एक विशेष नेमस्पेस चर हो सकता है।) ध्यान दें कि यह केवल तभी काम करता है जब आप स्टोर में नहीं हटाते हैं, जो EntryID को बदल सकता है या इसे पूरी तरह से हटा सकता है।

Answer 4

मुझे पता है कि यह एक पुराना धागा है, लेकिन चूंकि मुझे हाल ही में एक मैक्रो लिखने का कारण था जो ऐसा करता है, मैंने सोचा कि मैं साझा करूंगा। मैंने पाया कि निकालें विधि एक स्थायी विलोपन प्रतीत होता है।

While oFilteredItems.Count > 0 
    Debug.Print " " & oFilteredItems.GetFirst.Subject 
    oFilteredItems.Remove 1 
Wend 

मैं आइटम है कि कुछ मापदंडों के आधार पर फ़िल्टर कर दिए गए की एक सूची के साथ शुरू: मैं इस स्निपेट का उपयोग कर रहा हूँ। फिर, मैं इसे एक समय में हटा देता हूं जब तक यह खत्म नहीं हो जाता है।

HTH