VBA OUTLOOK

Bonjout tout le monde

Voilà mon prob: je cherche à créer une macro sour outllok 2003 qui me permettrait de bloquer une sélection complète de mail provenant d'expéditeurs indésirables. Il est possible de le faire via le menu contextuel mais uniquement si un seul mail est sélectionné. Je voudrais donc pouvoir plusieurs mail en une fois.
J'ai réussi à retrouver les mails sélectionnés dans ma macro:
    Dim myOlApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim oItem As Object
    Dim oExp As Outlook.Explorer
    Dim oSel As Outlook.Selection
   Dim oMailItem As Outlook.MailItem    
   Set myOlApp = CreateObject("Outlook.Application")
   
    Set oExp = myOlApp.ActiveExplorer  .
    Set oSel = oExp.Selection       .
   
    For i = 1 To oSel.Count         
        Set oItem = oSel.item(i)    
        
         Set oMailItem = oItem
         oMailItem. ???
ICI, COMMENT UTILISER OU APPELER LA FONCTION QUI, SOIT APPROUVE SOIT  DESAPPROUVE L'EXPEDITEUR???? 
   

Next i


Merci d'avance

Mia