Ce script permet de se connecter à un serveur POP3 et d'y récupérer des messages qui s'y trouvent avec toutes leurs caractéristiques (expediteur, destinataire, sujet, date, ...).
<%@ Page aspcompat=true language="VB"%>
<%
Dim Mailer as Object
Dim iLoop as Object
Dim iMessages as Object
' Création de l'objet
Mailer = Server.CreateObject("POP3svg.Mailer")
' Définition du server POP3
Mailer.RemoteHost = "mail.server-pop3.com"
' Nom d'utilisateur/Mot de passe
Mailer.UserName = "username"
Mailer.Password = "password"
'Connexion au serveur POP3
Mailer.OpenPop3
'Récupère le nombre de messages
iMessages = Mailer.MessageCount
Response.Write ("Il y a " & iMessages & " message(s) sur ce serveur.<br><br>")
'Affichage des messages valides récupérés
For iLoop = 1 to iMessages
If Mailer.Retrieve(iLoop) Then
Response.Write ("Message " & iLoop & " :<br>")
Response.Write ("Sujet : " & Mailer.Subject & "<br>")
Response.Write ("Expediteur : " & Mailer.FromName & " " & Mailer.FromAddress & "<br>")
Response.Write ("Date : " & Mailer.Date & "<br><br>")
Response.Write ("----------------------------<br><br>")
End If
Next
' NOTE : Vous pouvez également afficher le contenu du message avec la commande : Mailer.BodyText
'Fermeture de la connexion au serveur POP3
Mailer.ClosePop3
' Destruction de l'objet
Mailer = Nothing
%>
|
| Retour |
|
|
