Validar si existe un email

[Marcelo Roggeri]

Hola buenos dias al foro, tengo la necesidad de validar (como bien dice el asunto) una casilla de email, si existe o no.
Cuando enviamos un email que no existe el email sale, pero nos devuelve otro email diciendo que no existe ese email.
Bueno la pregunta es: se puede saber eso? tal vez teniendo conocimiento de la API de google o del servidor que sea Yahoo también, y si fuera un email con dominio propio?
Espero que me hallan entendido y que algún experto sepa como hacerlo
Gracias desde Argentina. Marcelo

[jvtecheto]

Hola Marcelo.
Yo creo que eso solo se puede comprobar con una Api, ya que se necesita acceder a la web, yo creo que está es gratuita.

https://wwwhatsnew.com/2015/11/29/email ... lido-o-no/

Adaptarla a Fivewin con una clase seria ya otro cantar., pero esta Cristóbal que es un experto en APIS sería un buen añadido para Fivewin.

Saludos.

Jose

Enviado desde mi POCOPHONE F1 mediante Tapatalk

[Marcelo Roggeri]

Gracias Esteban, veré que sale de esta inquietud, creo que seria un lindo paso para la validación de email.
Saludos

[cnavarro]

Prueba esto

Code: Select all

Function EsValidoMail( cMail )
local oApi
local cResponse
oApi := CreateObject( "MSXML2.XMLHTTP" )

oApi:Open( "GET", "https://garridodiaz.com/emailvalidator/index.php/?email=" + cMail )
oApi:SetRequestHeader( "Content-Type", "application/json" )
oApi:Send()
cResponse := oApi:ResponseText()
? cResponse
Return cResponse
 

Si alguien lo prueba que diga si funciona, porque lo he hecho del "tirón" y no lo he probado

[Armando]

Cristóbal:

Tira este mensaje

Error description: (DOS Error -2147352567) WINOLE/1007 El dato necesario para completar esta operación no está disponible todavía.
(0x8000000A): msxml3.dll

Saludos

[cnavarro]

Ya lo he visto. Un poco más tarde lo pruebo y os digo

[cnavarro]

De todas formas, la comprobación no es completa.
Sólo comprueba si el servidor es correcto, y algunas cosas más pero si el "recipiente" como tal existe, no estoy tan seguro que sea fiable la comprobación
Esto es lo que tienen las apis gratuitas

[Cgallegoa]

Marcelo:

Crea una cuenta gratuita en https://www.ipqualityscore.com/.

Te enviarán un email con tu API kEY y esa la digitas en el siguiente ejemplo:

Code: Select all

#include "FiveWin.ch"

Function Inicio()
  LOCAL cTime, aToolTip[15]
  LOCAL oDlg, oBtn[15] oFont1, oFont2
  LOCAL cEmail := PADR("gatolucido@gmail.com",100,"")

  DEFINE DIALOG oDlg FROM 0,0 TO 200,430 TITLE "Email verification JSON API REST" PIXEL COLORS nRGB(0,0,0),nRGB(255,255,255) TRANSPARENT

     @ 10,10 SAY "email to verify:" OF oDlg PIXEL
     @ 09,50 GET cEmail OF oDlg PIXEL SIZE 150,10

     @ 030,70 BUTTON oBtn[ 1] PROMPT "Verify email."       OF oDlg PIXEL SIZE 75,18 ACTION Api_GetFactura01(AllTrim(cEmail))

     @ 060,70 BUTTON oBtn[10] PROMPT "Exit" OF oDlg PIXEL SIZE 75,18 ACTION oDlg:End()

  ACTIVATE DIALOG oDlg CENTERED
Return(NIL)
//===================================================================//

Function Api_GetFactura01(cEmail)
  LOCAL hResponse
  LOCAL oSoap := CreateObject( "MSXML2.ServerXMLHTTP.6.0")
  LOCAL cParam := ""
  LOCAL cUrl  := "https://www.ipqualityscore.com/api/json/email/"
  LOCAL cApi_Key := "aqui_la_api_key_que_te_enviaron"

  if Empty(cEmail)
     return(NIL)
  endif

  cParam := cApi_Key + "/" + cEmail

  oSoap:Open( "GET" , cUrl+cParam , .F. )
  oSoap:SetRequestHeader( "Content-Type", "application/json" )

  oSoap:Send()

  hResponse := oSoap:responseText
  hb_jsondecode( hResponse, @hResponse )
  HSetCaseMatch( hResponse, .F. )

  xBrowse( hResponse , "JSon Response => Valid:   " + cValToChar(hResponse:valid) + "  ;  Success:   " + cValToChar(hResponse:success))

Return(NIL)
//===================================================================//
 

[Marcelo Roggeri]

Muchas gracias Carlos, voy a probar y luego comento
Saludos

[Marcelo Roggeri]

Ya lo probe Carlos, anda bien, salvo un par de veces que no me validaba bien, tengo que hacer otras pruebas y comento.
Saludos. Mil gracias. Marcelo