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!!
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
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!!
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!!
Assinar:
Postagens (Atom)