Con lo script di oggi, concludiamo la lista degli script dedicata alla lettura delle email usando il componente free JMail.
Nello script #341 abbiamo usato il codice che ci permetteva di collegarci alla casella di posta e visualizzare i messaggi presenti al suo interno.
Con quello di oggi selezioneremo il primo e ne visualizzeremo alcuni dettagli, ma passando un ID è possibile in pratica visualizzarli tutti.

<%

Set Mailbox = Server.CreateObject("jmail.POP3")
Mailbox.Connect "username","pwd","server"
If MailBox.Count>0 then
  Set Message = Mailbox.Messages(1)
  'Data del messaggio
  Response.Write "Data: " & Message.Date
  'Mittente
  Response.Write "Da: " & Message.From
  'Oggetto
  Response.Write "Oggetto: " & Message.Subject
  'Testo del messaggio
  Response.Write "Mesto del messaggio: " & Message.Body
Else
  Response.Write "Non hai messaggi nella tua casella email"
End If

%>

Per visualizzare tutti i dettagli possibili di un singolo messaggio vi rimando alla ottima documentazione inclusa con il componente.

Per visualizzare i messaggi in arrivo con Jmail, si veda:
https://www.aspitalia.com/liste/usag/script.aspx?ID=341