Composant pop3 gratuit pour retrouver ses mails

Techniques

Cette section permet de regrouper un ensemble de techniques ou de scripts qui ont l'originalité d'arriver à résoudre une difficulté avec le moindre effort ou qui sont particulièrement efficaces...

Techniques / Composant POP : DypsoPOP 2.0

•  Visualiser le contenu de votre boîte mail en ASP avec DypsoPop :

L'exemple de code suivant à pour but de démontrer les capacités du composant DypsoPop en mettant en oeuvre certaine de ses fonctionalités. Le but est d'interroger une boîte mail et d'afficher dans un tableau, la liste des mails reçus ainsi que les différentes informations qui s'y rapportent :

<%
set Mess = server.createObject("DypsoPop.Message")

Mess.Host = "pop3.free.fr"
Mess.Login ="dypso"
Mess.password = "mypassword"
Mess.DeleteOnReceive = false

if Mess.connect then
%>
<table style="border:1px solid black" cellspacing='1'>
	<tr bgcolor='#6699cc'><th>Date</th>
		<th>From</th>
		<th>Subject</th>
		<th>Size</th>
		<th>Attachments
		</th>
	</tr>
<%
	
	for i=0 to Mess.getNumberMessage 
	set msg = Mess.getMail(cint(i))
	
	if i mod 2 = 0 then
		bgcol = "#D8E8FC"
	else
		bgcol = "#f2f2f2"
	end if
	
	response.write "<tr bgcolor='"&bgcol&"'>"&_
			"<td >"& msg.Send_date&_
			"</td>"&_
			"<td>"& msg.from &_
			"</td>" &_
			"<td>"& msg.subject &_
			"</td>"&_
			"<td>"& msg.size &_
			"</td>"&_
		"<td>"
		
	if msg.AttachmentsCount>0 Then
	        for j = 0 to msg.AttachmentsCount-1
		set att = msg.getAttachMent(cint(j))
	           response.write "Filename : " &_
	            att.filename & "<br>"
                   next
	end if
	
	response.write "</td></tr>" &  chr (13)
	next
%>
	</table>
<%
else
     response.write "no message or connection not possible!"
end if
set Mess = Nothing

%>

Le résultat de ce script donnera l'affichage suivant :

Page précédente <<Spécifications DypsoPop

Exemple : Filtrer le contenu de votre boîte mail>> Page suivante