Filtrer des Mail (Outlook VBA)

Hello forum,

Je ne sais pas si on peut traiter des sujets hors Excel par ici. Je souhaite boucler sur tous les mails de ma boites de réception, en excluant les mails de rendez-vous et réunions diverses..

J'ai tenté les propriétés: "Mail.class=olMail" ou "Mail.messageclass="IPM.Note" " ou encore Typename(Mail)="MailItem" , avec Mail est un object Outlook.MailItem sans succès.

Quelqu'un aurait-il une suggestion ?

Merci d'avance.

Yeshua

Sub FOR_AUTOMATION()
    For Each Mail In fldMail.Items
        'If Mail.MessageClass = "IPM.Note" And Mail.Class = olmail Then   'teste si le courriel est un mail standard
        If TypeName(Mail) = "MailItem" Then
            If Match_SubjectMail(Mail.Subject) = True Then
                '''
                ' Code
            endif
         endif
   next Mail
End sub