verificare esistenza indirizzo mail

[DarioMarco]

Salve a tutti, volevo sapere se è possibile verificare l'esistenza di un'indirizzo email con asp.
Ho visto in rete che esistono alcuni script a pagamento, quindi penso che dovrebbe esserci un metodo.

Grazie, ciao.

[alexba64]

Originariamente inviato da DarioMarco
Salve a tutti, volevo sapere se è possibile verificare l'esistenza di un'indirizzo email con asp.
Ho visto in rete che esistono alcuni script a pagamento, quindi penso che dovrebbe esserci un metodo.

Grazie, ciao.

Se hai solo bisogno di verificarlo

se invece vuoi uno script da utilizzare sul tuo sito, non saprei

[agenti]

function IsEmail(strEmail)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z0-9]{2,4}$"
objRegExp.IgnoreCase = True
IsEmail = objRegExp.Test(strEmail)
end function

[alexba64]

Originariamente inviato da agenti
function IsEmail(strEmail)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z0-9]{2,4}$"
objRegExp.IgnoreCase = True
IsEmail = objRegExp.Test(strEmail)
end function

Questo serve a validare un indirizzo email non a sapere se esiste.

[agenti]

vedi,
tu mi stimoli e io esco soluzioni

http://webservices.tiscali.com/Email...p=IsValidEmail

[agenti]

ops...

dimenticavo il codice


Function EmailExists(EmailToTest)
Dim Tiscali, XMLHTTP
Tiscali = "http://webservices.tiscali.com/"
Tiscali = Tiscali & "EmailServices.asmx/IsValidEmail"
Tiscali = Tiscali & "?email="
Set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.Open "GET", Tiscali & EmailToTest, False
XMLHTTP.Send
If InStr(1, CStr(XMLHTTP.ResponseText), "true") > 0 Then
EmailExists = True
Else
EmailExists = False
End If
Set XMLHTTP = Nothing
End Function

[DarioMarco]

l'ho provato, ma mi dispiace dirti che non funziona, forse tiscali non da più il servizio

[optime]

Originariamente inviato da alexba64
Se hai solo bisogno di verificarlo

se invece vuoi uno script da utilizzare sul tuo sito, non saprei

non mi sembra affidabilissimo: ho provato con qualche indirizzo vero e funzionante e mi dice sempre "bad"...

[alexba64]

Originariamente inviato da optime
non mi sembra affidabilissimo: ho provato con qualche indirizzo vero e funzionante e mi dice sempre "bad"...

Ma come sei pignolo

[agenti]

si, ora proviamo a farne un altro..