topic-38640

Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

Validar si existe un email
Posted: Thu Mar 19, 2020 01:12 PM

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

FWH - Harbour - BCC7 - PellesC

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Validar si existe un email
Posted: Fri Mar 20, 2020 06:12 PM

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

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

Marcelo Roggeri

Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

Re: Validar si existe un email
Posted: Fri Mar 20, 2020 08:44 PM

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

FWH - Harbour - BCC7 - PellesC

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Validar si existe un email
Posted: Fri Mar 20, 2020 08:47 PM

Prueba esto

Code (fw): Select all Collapse

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Validar si existe un email
Posted: Fri Mar 20, 2020 09:26 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Validar si existe un email
Posted: Fri Mar 20, 2020 09:31 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Validar si existe un email
Posted: Fri Mar 20, 2020 09:36 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Re: Validar si existe un email
Posted: Sat Mar 21, 2020 12:40 AM

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 (fw): Select all Collapse

#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)
//===================================================================//

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Marcelo Roggeri

Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

Re: Validar si existe un email
Posted: Sat Mar 21, 2020 02:40 PM

Muchas gracias Carlos, voy a probar y luego comento
Saludos

FWH - Harbour - BCC7 - PellesC

Marcelo Roggeri

Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

Re: Validar si existe un email
Posted: Sat Mar 21, 2020 09:31 PM

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

FWH - Harbour - BCC7 - PellesC

FiveTech Support Forums

Continue the discussion