recupera e-mail de um servidor pop3

[xanburzum 169]

XPopMail recupera e-mail de um servidor pop3. XPopMail

retorna vazio (sem retorno). Ele escreve o fluxo de saída

usando Response.Write.Iremos utilizar o objeto JMail.POP3.

 

 

argumentos:

==============

usr

string. você está tentando acessar

 

pass

string. senha para o usuário especificado na acct

 

mailserver

string. servidor de e-mail quando o usuário especificado.

 

mailport

long. porta para se conectar ao servidor especificado no mailserver. Geralmente 110.

 

bShowHeaders

boolean. true = mostrar apenas cabeçalhos.

false = mostrar assunto e corpo da mensagem.

 

sintaxe:

 

XPopMail usr, pass, mailserver, mailport, bShowHeaders

 

exemplo:

<%
XPopMail "meuemail@email.com", "meupassword", "mail.email.com", 110, false
%>

code:

<%
Function XPopMail(ByVal usr, ByVal pass, ByVal mailserver, _
	ByVal mailport, byVal bShowHeaders)
	'declara variaveis
	Dim pop, headers, i, messages, ct, message

	'criar jmail pop3 objeto
	Set pop = CreateObject("JMail.POP3")
	
	'conectar à conta
	pop.Connect usr, pass, mailserver, mailport

	'download mail cabeçalhos
	pop.DownloadHeaders

	'download mail
	pop.DownloadMessages

	'obter as mensagens
	Set messages = pop.Messages

	'contagem de mensagens recuperadas
	ct = messages.count - 1

	' se não há mensagens
	if ct >= 1 then

		'loop 
		for i = 1 to ct

			'obter a mensagem
			Set message = messages.item(i)

			'show cabeçalhos ...
			if bShowHeaders then

				'exibe header
				Response.Write( message.Text & "<BR><BR>")
			else

				'exibr subject e body
				Response.Write( "<B>" & _
									message.subject & "</B><BR>" )
				Response.Write( message.body & _
									"<BR><BR>" )
			end if

			Set message = nothing
		next
	else

		'sem mensagens
		Response.Write( "no messages on " & mailserver )
	end if

	'disconecta o server
	pop.disconnect

	Set messages = Nothing

	Set pop = Nothing
End Function
%>

[hargon 64]

Muito bom Xan.

 

Mas fiquem atentos ao testar o código. Não façam isso com sua conta de e-mail principal, pois se tiver mensagens e ocorrer algum erro, pode-se perder tudo.

[xanburzum 169]

muito bem , lembrado, sempre é primordial backup , para tudo, e quando digo tudo , é tudo mesmo...