Mostrando postagens com marcador Email. Mostrar todas as postagens
Mostrando postagens com marcador Email. Mostrar todas as postagens

sábado, 10 de outubro de 2009

Verificando a existência de um domínio de email

Fala, galera!!

O código que irei postar agora é muito interessante para aplicações de envio de newsletters.
É normal em um ambiente com milhares ou milhões de emails que muitos desses emails sejam inválidos.

Validar o formato do email apenas não garante que um email realmente existe.
Existe uma outra validação que podemos aplicar que aumenta as chances de garantirmos que o email existe: A validação do domínio do email.

Esta validação não garante 100% que a existência da conta do usuário, mas garante pelo menos que o domínio do email é um domínio válido.

Segue o código:


        Dim dominio As String
        Dim ObjHost As System.Net.IPHostEntry
        Try
            dominio = Email.Substring("email".IndexOf("@") + 1)
            ObjHost = System.Net.Dns.GetHostEntry(dominio)
            ObjHost = Nothing
            Response.Write("Domínio válido")
        Catch ex As Exception
            Response.Write("Domínio inválido")
        End Try

É isso ae.

Um abraço e até a próxima!!

Acessando uma caixa postal através de uma aplicação ASP.Net

Fala, galera!!

Hoje estarei postando um código para acessar uma caixa postal através de uma aplicação .net.
Este recurso é muito útil para quem deseja desenvolver seu próprio webmail ou fornecer alguma solução baseada em emails. Seja ela qual for.

O código abaixo utiliza uma DLL de terceiros totalmente gratuita e que pode ser baixada aqui.

Vamos ao que interessa:


        Dim oEmail As New Pop3Client("usuario", "senha", "servidor")
        oEmail.OpenPOP3()
        'Salva todos os anexos no diretório escolhido
        oEmail.AttachmentFolder = "c:\anexos"
        Response.Write("Foram localizados " & oEmail.MessageCount.ToString() & " email(s)")
        While oEmail.NextEmail()
            Response.Write(oEmail.From & "<br>")
            Response.Write(oEmail.Subject & "<br>")
            Response.Write(oEmail.HTMLBody & "<br>")
        End While
        oEmail.CloseConnection()

Simples assim.

Um abraço e até a próxima!!