Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

matheusmarson

Ler emails via IMAP ou POP3

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

você pode usar componentes para isso, tem algums pagos outros free, abaixo um exemplo:

 

<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>

<%

set mailman = Server.CreateObject("Chilkat.MailMan2")


mailman.UnlockComponent "30-day trial"

mailman.MailHost = "mail.chilkatsoft.com"
mailman.PopUsername = "login"
mailman.PopPassword = "password"


set bundle = mailman.GetAllHeaders(0)
if (not (bundle is nothing)) then
	Response.write "<table border=1 cellpadding=5>"
	response.write "<tr>"
	response.write "<td><b>De</b></td>"
	response.write "<td><b>Assunto</b></td>"
	response.write "<td><b>Corpo</b></td>"
	response.write "</tr>"


	n = bundle.MessageCount
	for i = 0 to n-1
		set email = bundle.GetEmail(i)
		response.write "<tr>"
		response.write "<td>"+Server.HTMLEncode(email.From)+"</td>"
		response.write "<td>"+Server.HTMLEncode(email.Subject)+"</td>"
		response.write "<td><form method=""post"" action=""DisplayEmail.asp"" target=""emailDetail"">"
 			response.write "<input type=""submit"" name=""Submit"" value=""Display"">"
		response.write "<input type=""hidden"" name=""Uidl"" value=""" + email.Uidl +"""></form></td>"

		response.write "</tr>"
	next
	response.write "</table><br>"
end if
%>
   <br><b>HTML Log:</b><br>
<%
   Response.write mailman.LastErrorHtml

' Standard ASP cleanup of objects
Set email = Nothing
Set mailman = Nothing

%>

</BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito