Supprimer définitivement MailMessage dans Outlook avec VBA?

Je suis à la recherche d'un moyen de supprimer définitivement un MailMessage à partir d'Outlook 2000 avec du code VBA. J'aimerais le faire sans avoir à le faire une deuxième boucle de vider les éléments Supprimés.

Essentiellement, je suis à la recherche d'un code équivalent à la méthode de l'INTERFACE utilisateur de cliquer sur un message et en appuyant sur la touche MAJ+SUPPRIMER.

Est-il une telle chose?

OriginalL'auteur eidylon | 2009-07-10

  1. 11

    Essayez de le déplacer d'abord, puis de le supprimer (fonctionne sur certains patchs en 2000) ou l'utilisation de RDO ou CDO pour faire le travail pour vous (vous devrez les installer)

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

    CDO façon 

    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

    Vous pourrait aussi marquer le message en premier, avant de la supprimer et de la boucle dans le dossier éléments supprimés et trouver une dthe appel de supprimer un deuxième temps. Marquer à l'aide d'un Userproperty.

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

    boucle à travers vous, les éléments supprimés de regarder pour que l'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
    Je préfère ne pas aller CDO ou RDO, parce que tout mon point ici est de réduire la complexité du code, et je préfère ne pas aller à l'introduction de toutes nouvelles dépendances. La deuxième est fondamentalement ce que je fais maintenant. J'ai d'abord faire (pseudo): pour chaque msg dans la boîte de réception msg.supprimer " / / se déplace à supprimé les éléments suivant pour chaque msg dans deletedItems msg.supprimer " / / supprime de façon permanente à côté alors que ce que je voudrais faire, c'est quelque chose comme: pour chaque msg dans la boîte de réception msg.supprimer(permanent = true) suivant
    Il n'y a pas une telle méthode en 2000. Vous aurez à créer votre propre fonction en VBA. Quel est le problème avec le déplacer-supprimer ou de votre boucle ? est-il la performance ?
    Rien d'intrinsèquement "mauvais" avec elle, j'étais juste à la recherche d'un moyen de le faire plus proprement que de compter sur les deux boucles. Merci quand même bien.
    Pour RDO, vous pouvez remplacer la ligne objRDOSession.Ouverture de session avec objRDOSession.MAPIOBJECT = Application.Sessionn.MAPIOBJECT

    OriginalL'auteur 76mel

  2. 2

    Je sais que c'est un vieux thread, mais depuis que j'ai récemment eu l'occasion d'écrire une macro qui fait cela, j'ai pensé que je devais partager. J'ai trouvé que la méthode Remove semble être une la suppression définitive. Je suis l'aide de cet extrait:

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

    J'ai commencer avec une liste des éléments qui ont été filtrés par certains critères. Alors, je viens de supprimer un à un jusqu'à ce qu'il s'en est allé.

    HTH

    Super! Je confirme que cela fonctionne pour moi. J'ai utiliser l'Application.ActiveExplorer.CurrentFolder.Éléments.Supprimer(1) sur un dossier test dans une macro VBA.

    OriginalL'auteur end-user

  3. 1

    Vous pouvez utiliser l'approche suivante, fondamentalement, vous supprimez tous vos messages que vous êtes en train de faire, puis d'appeler cette ligne de vider le dossier éléments supprimés. Le code est en jscript, mais je peux traduire si vous avez vraiment besoin de moi 🙂

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

app.ActiveExplorer().CommandBars("Menu Bar").Controls("Tools").Controls('Empty "Deleted Items" Folder').Execute();
    +1 mais je voudrais utiliser le FindControl ID pour vérifier qu'il fonctionne sur des versions non anglaises de Outlook.

    OriginalL'auteur Marcus Pope

  4. 1

    Solution la plus simple de toutes, semblable à la première:

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

    Le faire deux fois et ce sera parti pour de bon, et pas de la performance de tuer en boucle. (Espace de noms peut être un particulier de l'espace de noms de variable, si ce n'est dans le magasin par défaut.) Remarque cela ne fonctionne que si vous ne supprimez pas l'ensemble des magasins, ce qui peut modifier le champ EntryID ou de le supprimer totalement.

    Cela ne fonctionne que pour un PST magasin où le message d'id d'entrée n'est pas modifié lorsqu'il est déplacé vers un autre dossier. Il ne sera pas le travail de l'onu, la banque d'informations Exchange (soit mis en cache ou en ligne).
    A cela vient de changer? J'ai d'abord fait pour boîtes aux lettres Exchange 2007.
    Non, ça a toujours été le cas avec PST magasins vs Échange.

    OriginalL'auteur SilverbackNet