vba - outlookRésolu

Question

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 

@+

Utilisateur anonyme · Accepted Answer

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

Utilisateur anonyme · Answer

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

dodo1309 · Answer

oui je sait mais je cherhche comment le faire par programmation car la méthode est quand même assez longue ...

dodo1309 · Answer

merci :d

Vba - outlook

4 réponses

Votre réponse

Discussions similaires