Discussion :

[DBane]

Bonjour à tous,

j'ai fait un programme qui pioche dans des fichiers Excel des adresses email afin de diffuser une newsletter.

Le problème est qu'il y a un très grand nombre d'adresses email. Plusieurs emails sont donc envoyés l'un après l'autre avec une grosse liste de destinataires (liste qui est une chaîne remplie dans le programme). Et si une adresse est mal formatée, cela bloque l'envoie de l'email pour tous les autres destinataires de la liste. Il serait très difficile de rechercher chaque erreur du fait du très grand nombre de destinataires.

Mon souci est donc de ne pas inclure les adresses emails non valides dans la liste des destinataires et de les écrire séparément dans un fichier word afin de traiter leur cas manuellement.

J'aimerais donc savoir si VBA Outlook inclut une méthode ou quelque chose qui permet à partir d'une chaîne de caractère de vérifier que celle-ci est correctement formatée et ne bloquera pas l'envoi.

Sinon si vous avez d'autres propositions de solutions, n'hésitez pas.

Merci d'avance

[Dolphy35]

Salut,

lors de l'import tu test chaque adresse si ok ajout dans mail si pas ok tu le transfert dans un fichier texte.

tu peux te servir des différentes instructions pour les chaînes de caractères http://access.developpez.com/faq/?pa...erChaineCaract

Dolphy

[DBane]

Bonjour et merci pour la réponse.

Donc ça c'est effectivement ce que j'ai fait. Mais j'aimerais quelque chose de fiable à 100%, parce que là je ne suis pas certain d'avoir traité tous les cas possibles d'adresses mail mal formatées qui risquent de bloquer mon programme.

J'avais pensé que peut être Outlook aurait une fonction utilisable en VBA pour détecter les adresses mal formatées, puisqu'il les détecte bien au moment d'un envoi de mail manuel.

[Dolphy35]

Salut,

Dans ton cas non car il te le dira au moment de l'envoi, mais si tu as 500 adresses en envois tu risque de t'éclater.

Dans ton cas l'idéal est le VBA.

Dolphy

[DBane]

D'accord, merci pour ces réponses.

Il va donc falloir que j'arrive à repérer toutes les adresses mal formatées à l'aide des fonctions sur les chaînes.
Actuellement j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If (InStr(1, contenuCellule, "@") = 0 _
            Or InStr(InStr(1, contenuCellule, "@") + 1, contenuCellule, ".") = 0 _
            Or InStr(1, contenuCellule, ";") <> 0 _
            Or InStr(1, contenuCellule, ",") <> 0 _
            Or InStr(1, contenuCellule, " ") <> 0 _
            Or InStr(1, contenuCellule, "(") <> 0 _
            Or InStr(1, contenuCellule, ")") <> 0 _
            Or InStr(1, contenuCellule, "[") <> 0 _
            Or InStr(1, contenuCellule, "]") <> 0) Then

Ca fonctionne pour l'instant, mais je doute que ce soit fiable à 100%.