Consultor Eletrônico



Kbase P169345: Where can I find a free web service that validates email addresses?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   07/07/2010
Status: Unverified

GOAL:

Where can I find a free web service that validates email addresses?

GOAL:

Where can I find some sample code that calls an email address validation web service?

FACT(s) (Environment):

All Supported Operating Systems
OpenEdge 10.x

FIX:

The website www.fraudlabs.com hosts a web service that validates email addresses and allows you to obtain a free license for it. The following sample code shows how to call and and has a comment on where to go to obtain the free license.

DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hmailboxvalidatorSoap AS HANDLE NO-UNDO.
DEFINE VARIABLE EMAIL AS CHARACTER NO-UNDO INITIAL "EMAIL_ADDRESS_GOES_HERE".
DEFINE VARIABLE LICENSE AS CHARACTER NO-UNDO INITIAL "LICENSE_GOES_HERE".
DEFINE VARIABLE MailBoxValidatorResult AS LONGCHAR NO-UNDO.
DEFINE VARIABLE X AS CHARACTER NO-UNDO.

/* Go to http://www.fraudlabs.com/freelicense.aspx?PackageID=9 to get free license */

CREATE SERVER hWebService.

hWebService:CONNECT("-WSDL 'http://ws2.fraudlabs.com/mailboxvalidator.asmx?wsdl'").

RUN mailboxvalidatorSoap SET hmailboxvalidatorSoap ON hWebService.

RUN MailBoxValidator IN hmailboxvalidatorSoap(INPUT EMAIL, INPUT LICENSE, OUTPUT MailBoxValidatorResult).

ASSIGN X = MailBoxValidatorResult.

MESSAGE X VIEW-AS ALERT-BOX.