A voir également:
- Afficher le mail recherché et le transférer via VBA
- Yahoo mail - Guide
- Recherche musique - Guide
- Google recherche par image - Guide
- Transferer photo android vers pc - Guide
- Cci mail - Guide
1 réponse
yg_be
Messages postés
22624
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 mars 2024
1 461
13 août 2019 à 15:24
13 août 2019 à 15:24
bonjour, suggestion:
Dim ittem As Object, message As MailItem For Each ittem In Dossier.Items If ittem.Class = olMail Then Set message = ittem senderemail1 = message.SenderEmailAddress objectemail = message.Subject If senderemail1 = "***@***" And objectemail = data Then MsgBox "mail trouvé" Set MonMail = message.Forward Exit For End If End If Next ittem
14 août 2019 à 09:35