Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Outlook Script VBA pour extraction d'adresses emails dans OUTLOOK

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

Papito92

XLDnaute Nouveau
Bonjour,

Je cherche depuis quelque temps à faciliter le traitement de mes contacts professionnels dans OUTLOOK.
Après renseignement, j'ai lu qu'il était possible d'extraire l'intégralité des adresses mails présentes dans les champs expéditeurs/destinataires de mes courriers, via l'utilisation d'une macro avec script VBA.
Je n'ai malheureusement pas trouvé de thread traitant de ce sujet sur le forum.

Je ne maîtrise pas la programmation même si je sais comment suivre un tuto 😛

Pourriez-vous SVP me donner un coup de main pour réaliser cette opération ?

L'idée est de les récupérer dans un simple tableau excel.
J'utilise Outlook 2010 sous Windows 7.

Merci pour votre aide.
Papito
 
Trier par date Trier par votes
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Bonjour Papito et bienvenue sur le forum,
Bonjour le forum 🙂

Ci-joint un fichier Excel contenant la macro RecupMails qui parcourt les mails de tous les dossiers d'Outlook et récupère les adresses mail des expéditeurs et destinataires.
Le résultat et renvoyé dans le tableau de la feuille de calcul.

Le code ne récupère que les adresses mails valides grâce à l'expression régulière proposée par MJ13 et retouchée par JNP 😉

Le classeur utilise les références :
  • Microsoft Outlook 15.0 Object Library pour interagir avec Outlook
  • Microsoft Scripting Runtime
  • Microsoft VBScript Regular Expressions 5.5 pour les expressions régulières

Vu tu utilises Office 2010, tu risques avoir une référence manquante sur Microsoft Outlook 15.0 Object Library qu'il te faudra remplacer par la 14.0.

Enfin, si tu as un grand nombre de dossiers/mails, la macro risque mettre un peu de temps à s'exécuter.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Hello Romain !
WOW !
Merci beaucoup pour ta réponse.
Je vois pour implémenter ça en début de semaine prochaine et te tiens au courant.
Bon week-end à tous !
Papi
 
Vote positif 0 Vote négatif
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Bonsoir Romain,

Alors alors 🙂
Ce que j'ai compris, en tant que non initié du tout :
> Tout ça se fait à partir d'Excel et non Outlook > ok
> Je lance la Macro une fois le fichier ouvert dans Excel > ok
> Je tombe sur une erreur de compilation, l'erreur que tu évoquais (fichier manquant).
> Je coche les versions 14.0 Object Library et tout se lance correctement puisque j'ai l'alerte comme quoi un programme essaye d'accéder à Outlook. Je fais Accepter.
> Là, problème (voir PB1.jpg)

> Donc : soit je mets fin à la tentative d'exécution de la macro, soit je 'débog'...
> Le débogage me donne un autre panneau (voir PB2.jpg);

Est-ce que je peux te demander ton avis sur ces 2 screens ??
Merci,

Papito
 

Pièces jointes

  • PB1.jpg
    51.7 KB · Affichages: 728
  • PB1.jpg
    51.7 KB · Affichages: 665
Vote positif 0 Vote négatif
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Bonjour Papito, le forum

Je pense que le problème était dû à un trop grand volume de mail à traiter. Normalement (et si le problème vient effectivement de là), cette version devrait faire l'affaire.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Bonjour Papito, le forum,

Bon, ton problème ne semblait pas venir de là… Peut-être que tu as un élément bizarre dans un de tes dossiers, mais c’est dur à voir sans les données 🙂
Du coup, essaye avec cette nouvelle version où la gestion des erreurs est désactivée pour la ligne qui pose problème.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Bonsoir ,

Cela fonctionne super , aprés avoir modifié la bibliothéque outlook pour Excel 2010.

Le code est une super mise en bouche pour travailler dans outllook.

A noter , l'utilisation des expressions régulières, pas toujours simple à utiliser .

Merci donc aussi pour ce bel exemple ..
 
Vote positif 0 Vote négatif
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Bonjour Romain😱 Nono😱papito et tout le forum
Tout simplement une merveille ce code, car pour trouver quelque chose dans le fichiers PST !!!!!!
merci encore
Papou😱
 
Vote positif 0 Vote négatif
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Bonjour,

Pas mal du tout ,
Je teste sur un unvers impitoyable et je reviendrait vous dire.
C'est le principe qui est génial.

Aprés je pense qu'au niveau rapidité et présentation (L'on pourrait changer de page pour éviter de mettre la liste sur la page d'accueil) cela peut s'améliorer . (Oui , je sais la cerise sur le gâteau , mais bon , on est gourmands ici)
 
Vote positif 0 Vote négatif
Re : Script VBA pour extraction d'adresses emails dans OUTLOOK

Salut à tous et au Forum,

Je refais un petit tour sur ce post.

Je me dit que l'on pourrait incllure une barre de progression.

Je l'ai testé dans "un univers impitoyable" et l'extraction de 3000 lignes (contacts) prend environ 30 minutes.


De plus,je me suis aperçu qu'a l’exécution de la macro excel et outlook était complètement bloqué --> Est-ce normal ?


Bonne journée

Seb
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…