Vba - outlook

Résolu
Signaler
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
Bonjour

Je suis à la recherche d'un code qui permettra de créer une règle qui supprime le mail définitivement.

Exemple :

je reçois un mail de xyz@abc.com
je clique sur le bouton et sa me crée une règle pour cette adresse comme sa la prochaine fois dés que je reçois le mail de 
[mailto:xyz@abc.com
xyz@abc.com
]
il soit supprimer directement

merci d'avance

@+

4 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Je vois pas en qui c'est long mais bon

Voila une méthode qui supprime les mail de
[mailto:xyz@abc.com
xyz@abc.com
]
:



Option Explicit

Public WithEvents myOlItems As Outlook.Items

Public Sub Application_Startup()
  Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
  Dim Itm As Outlook.MailItem
  Set Itm = Item
  If Itm.SenderEmailAddress = "xyz@abc.com" Then
    Itm.Delete
  End If
End Sub ,

----

(Nouveau forum VBA/Office
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Salut,

Tu as des régles toutes faites pour ca.
Enfin, ca dépends peut-être de la version utilisée.






__________
Kenji

(


Nouveau forum VBA/Office
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

oui je sait mais je cherhche comment le faire par programmation car la méthode est quand même assez longue ...
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

merci :d