Discussion :

[beenosse]

Bonjour à tous,

Je souhaiterais réaliser une macro qui me permettrait de tester la validité d'une liste d'adresses mail sur le site http://www.mailtester.com/testmail.php.

Le site permet de tester une adresse à la fois et un ami m'a dit qu'il était possible de tester la liste grâce à une macro.

Je n'ai aucune connaissance en VBA et donc il a ébauché pour moi une première macro en utilisant Internet Explorer. Le problème actuel est que ma macro vérifie bien la première adresse mais elle ne passe pas aux suivantes automatiquement.

Voici la macro actuelle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub Test_mails()
 
'Définition des variables
Dim IEapp As New InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Dim LeTexteExtrait As String
 
'Ouverture de mail tester avec Internet Explorer
IEapp.navigate ("http://mailtester.com/testmail.php")
IEapp.Visible = True
Do While Not IEapp.readyState = 4
Loop
 
'Recherche du champs à remplir sur la page internet
Set maPageHtml = IEapp.document
Set Helem = maPageHtml.getElementsByTagName("input")
 
'Une fois le champs trouvé, on le rempli avec l'adresse mail à tester
With Helem
.Item(1).innerText = Worksheets("Adresses mail").Cells(1, 1).Value
End With
 
'On clique sur le bouton "check address"
Helem(2).Click
 
'C'est là que ça ne fonctionne plus. Je veux copier le contenu de la page en faisant ctrl+A puis ctrl+C (utilisation de la commande SendKeys). Une autre piste et d'identifier le tableau (.getelementbytype ou un truc du genre) qui contient le résultat du test et d'en extraire les données.
With maPageHtml
Application.Wait Now + TimeValue("00:00:1")
Application.SendKeys "^a"
Application.Wait Now + TimeValue("00:00:1")
Application.SendKeys "^c"
End With
 
'On colle le contenu en format texte sur une page du classeur excel
Workbooks("Essai requête mail tester.xlsm").Worksheets("Feuille de travail").Activate
Range("a1").Select
ActiveSheet.PasteSpecial Format:="Texte"
 
'On ferme internet explorer puis on vide les variables (je pense qu'on ne fermera plus la fenêtre internet quand on voudra automatiser la macro sur 10 000 adresses mail)
IEapp.Quit
Set IEapp = Nothing
Set maPageHtml = Nothing
Set Helem = Nothing
 
End Sub

Merci d'avance pour votre aide