[Pillole][VB.NET] Validazione mail con controllo sul mail server

[zampa28]

    Public Function ValidateMailServer(ByVal strEmail As String) As Boolean
        Dim posAt
        Dim sDomain As String
        posAt = InStr(1, strEmail, "@")
        If posAt > 0 Then
            sDomain = Mid(strEmail, posAt + 1, Len(strEmail) - posAt)
        Else
            sDomain = ""
        End If
        Dim mailserver As String = ""
        If sDomain <> "" Then
            Dim info As New ProcessStartInfo
            Dim ns As Process
            info.UseShellExecute = False
            info.RedirectStandardInput = True
            info.RedirectStandardOutput = True
            info.FileName = "nslookup"
            info.Arguments = "-type=MX " + sDomain.ToUpper.Trim
            ns = Process.Start(info)
            Dim sout As StreamReader
            sout = ns.StandardOutput
            Dim reg As Regex = New Regex("mail exchanger = (?<server>[^\\\s]+)")
            Dim response As String = ""
            Do While (sout.Peek() > -1)
                response = sout.ReadLine()
                Dim amatch As Match = reg.Match(response)
                If (amatch.Success) Then
                    mailserver = amatch.Groups("server").Value
                    Exit Do
                End If
            Loop
        End If
        If mailserver.Length <> 0 Then
            Return True
        Else
            Return False
        End If
    End Function

Ho trovato e riadattato questa semplice funzione che dato un indirizzo mail, ne estrapola il dominio e verifica l'esistenza di un mail server.
Pensate ci siano casi in qui non funzioni?

Attendo conferme.

ciao ciao

[riccardone]

Non so darti una risposta alla tua domanda ma penso che in futuro provero' ad usare questa pillola che mi sembra utile. Non ho guardato bene il codice e quindi non ho capito se controlla solo il funzionamento del mail server oppure anche della specifica casella di posta elettronica.

[sms]

da quello che ho capito io solo del mailserver.. poi puoi inserire una casella inesistente..

[riccardone]

Originariamente inviato da sms
da quello che ho capito io solo del mailserver.. poi puoi inserire una casella inesistente..

se cosi' fosse la procedura potrebbe essere arricchita con qualche riga di codice che permetta il controllo della specifica mailbox da utilizzare ad es. nei form di iscrizione per evitare iscrizioni farlocche