Я ищу способ навсегда удалить MailMessage из Outlook 2000 с кодом VBA. Я хотел бы сделать это без необходимости выполнять второй цикл для очистки удаленных элементов.
По сути, я ищу код, эквивалентный методу пользовательского интерфейса, когда щелкаешь сообщение и нажимаешь SHIFT+DELETE.
Что-то подобное существует?
Попробуйте сначала переместить его, а затем удалить (работает с некоторыми патчами в 2000 году) или используйте RDO или CDO, чтобы сделать эту работу за вас (вам придется их установить).
Set objDeletedItem = objDeletedItem.Move(DeletedFolder)
objDeletedItem.Delete
способ CDO
Set objCDOSession = CreateObject("MAPI.Session")
objCDOSession.Logon "", "", False, False
Set objMail = objCDOSession.GetMessage(objItem.EntryID, objItem.Parent.StoreID)
objMail.Delete
set objRDOSession = CreateObject("Redemption.RDOSession")
objRDOSession.MAPIOBJECT = objItem.Session.MAPIOBJECT
set objMail = objRDOSession.GetMessageFromID(objItem.EntryID>)
objMail.Delete
Вы также можете сначала пометить сообщение, прежде чем удалить его, а затем просмотреть папку удаленных элементов и найти его и вызвать удаление во второй раз. Отметьте его с помощью пользовательского свойства.
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
Самое простое решение, похожее на первый способ:
FindID = deleteme.EntryID
deleteme.Delete
set deleteme = NameSpace.GetItemFromID(FindID)
deleteme.Delete
Сделайте это дважды, и это исчезнет навсегда, и не будет петли, убивающей производительность. (NameSpace может быть определенной переменной пространства имен, если она не находится в хранилище по умолчанию.) Обратите внимание, что это работает, только если вы не удаляете данные из разных хранилищ, что может изменить EntryID или полностью удалить его.
Я знаю, что это старый поток, но, поскольку недавно у меня была причина написать макрос, который делает это, я решил поделиться. Я обнаружил, что метод Remove выглядит как постоянное удаление. Я использую этот фрагмент:
While oFilteredItems.Count > 0
Debug.Print " " & oFilteredItems.GetFirst.Subject
oFilteredItems.Remove 1
Wend
Я начинаю со списка элементов, которые были отфильтрованы по некоторым критериям. Затем я просто удаляю по одному, пока он не исчезнет.
ХТН
Вы можете использовать следующий подход: в основном вы удаляете все свои сообщения электронной почты, как вы это делаете сейчас, а затем вызываете эту одну строку, чтобы очистить папку удаленных элементов. Код в jscript, но я могу перевести, если вам это действительно нужно :)
var app = GetObject("", "Outlook.Application"); //use new ActiveXObject if fails
app.ActiveExplorer().CommandBars("Menu Bar").Controls("Tools").Controls('Empty "Deleted Items" Folder').Execute();
Недавно мне пришлось навсегда удалить все контакты. Это сработало для меня (Outlook 2016). Вы получили новую ссылку на элемент в папке корзины, в противном случае он говорит «уже удален» или что-то в этом роде. Просто перейдите с конца, и недавно перемещенные элементы будут там. Затем вызов Delete приводит к постоянному удалению. Этот фрагмент можно использовать в цикле.
myContacts(i).Move (trashFolder)
trashCount = trashFolder.Items.Count
For j = trashCount To 1 Step -1
Set trashItem = trashFolder.Items(j)
If trashItem.MessageClass = "IPM.Contact" Then
trashItem.Delete
Else
Exit For
End If
Next
