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, ...).
<%
Dim Mailer, iLoop, iMessages
' Création de l'objet
Set 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
Set Mailer = Nothing
%>
|
| Retour |
|
|
