Puedes validar si una determinada dirección de email existe, para eso utilizamos un webservicio que se encuentra disponible en Internet. Requieres tener instalado SOAP Toolkit..
cEmail = "dav_amador@davphantom.net"
oSOAP = Createobject("MSSOAP.SoapClient")
oSOAP.mssoapinit("http://soap.einsteinware.com/email/emailservices.asmx?WSDL","EmailServices")
cRet = oSOAP.ValidateEmailAddress(cEmail)
cResult = Upper(cRet.Item(0).nodeValue)
Do Case
Case cResult =
"INVALID USER"
cMen = "El usuario de ese email no existe"
Case cResult =
"INVALID SERVER"
cMen = "El servidor del email no existe"
Case cResult =
"INVALID ADDRESS"
cMen = "La dirección de email no existe"
Case cResult =
"VALID"
cMen = "El email es valido"
Endcase
=Messagebox(cMen, 64, "Validar Email")
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
