Comment tester une adresse mail ?

**jackop** · 08/09/2005, 14h34

bonjour,
je cherche a tester si une adresse mail est valide.
cad que si on envoi un mail à cette adresse, on ne recevra pas un message nous indiquant que le mail n'a pas été transmis.
Je sais qu'il existe une fonction en PHP mais je ne sais pas comment faire sous Delphi.

**Bestiol** · 08/09/2005, 14h41

Quelle précision souhaites-tu par rapport à cette vérification ??

Tu peux par exemple ne vérifier que la présence d'un arobase et d'un point situé derrière cet arobase :

Code :

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

1
2
3
4
if (Pos('@', Mail) > 0) and (PosEx('.', Mail, Pos('@', Mail)) > 0) then
  MailValide := True
else
  MailValide := False;

Ceci dit si l'adresse mail contient des caractères non autorisés, tu ne le sauras pas.

**PpPool** · 08/09/2005, 14h51

Bonjour,

J'ai déjà participé à un post sur le forum en présentant un exemple tiré du bouquin Oracle 9i sous windows de G.Briard qui s'appuyait sur les webservices pour vérifier une adresse mail.

De mémoire, je l'avais même fourni à l'équipe de rédaction de dvp.com.

essaie de le rechercher sinon je te refournirai les sources (enfin si je l'ai retrouve -)

@