Accueil > > > POP2RSS: CREATION D'UN FIL RSS DEPUIS UNE LISTE DE MAILS POP
POP2RSS: CREATION D'UN FIL RSS DEPUIS UNE LISTE DE MAILS POP
Information sur la source
Description
Cela peut servir à pouvoir consulter de temps en temps ses emails en attente d'un simple clic dans le navigateur.
Source
- <?php /*** Créer un fil RSS depuis un compte POP par g0g0 ***/
- ?><rss version="2.0">
- <channel>
- <title>Mails en attente</title>
- <link>http://webmail.free.fr/</link>
- <description>Mails en attente</description>
- <webMaster>g0g0pubs@free.fr</webMaster>
- <language>fr</language>
- <lastBuildDate>Thu, 18 Jan 2007 16:28:18 GMT</lastBuildDate>
- <ttl>30</ttl>
-
- <image>
- <title>www.monsiteweb.com</title>
- <url>http://abner.wordpress.com/files/2006/08/WindowsLiveWriter/ManualdePHP_7610/php%5B5%5D.gif</url>
- <link>http://webmail.free.fr/</link>
- <width>120</width>
- <height>48</height>
- </image>
-
- <?php
-
- define("read_each_mail",false); // Lecture ou pas des informations de l'entête
-
-
- // ********************************************************************************
- // ********************************************************************************
- // ********************************************************************************
- // This is the only lines you need to modify.
- // Ce sont les seules lignes que vous avez à modifier.
- //
- // Il est possible de mettre 1 seul compte comme 30... pas de différence
- // You can type as well as 1 account as well as 30, no difference
- //
- lire_mails("pop.magic.fr","moncompte","monpassword","moncompte@magic.fr");
- lire_mails("pop.free.fr","moncompte","monpassword","moncompte@free.fr");
- lire_mails("pop.orange.fr","moncompte","monpassword","moncompte@orange.fr");
- // ********************************************************************************
- // ********************************************************************************
- // ********************************************************************************
-
-
- // *** Ecrire un buffer dans une socket
- function s_write($socket,$buff)
- {
- if(socket_write($socket,$buff)==FALSE) return(false);
- // *** En principe il faudrait tester le nombre d'octets envoyés
- return(true);
- }
-
- // *** Lire une ligne depuis une socket
- function s_read($socket)
- {
- $buff="";
- $c='';
- while(ord($c)!=10)
- {
- socket_recv($socket,$c,1,0);
- $buff.=$c;
- }
- // *** suppression des retours chariots
- $buff=preg_replace("/(\r|\n)/","",$buff);
- return($buff);
- }
-
-
-
-
- function lire_mails($pop,$user,$pass,$email)
- {
-
- // *** Création de la socket
- $address = gethostbyname($pop);
- $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
- if ($socket < 0) {
- die("socket_create() a échoué : raison : " . socket_strerror ($socket) . "\n");
- }
-
- // *** Connexion de la socket
- $result=socket_connect($socket,$address,110);
- if($result<0) die("Impossible de connecter la socket !");
- $mails=array();
-
- $ok=false;
-
- // *** Lecture du message d'accueil
- $rep=s_read($socket);
- if(substr($rep,0,3)=='+OK')
- {
- // *** Envoi du login
- if(s_write($socket,"USER $user\r\n"))
- {
- // *** Lecture du +OK
- $rep=s_read($socket);
- if(substr($rep,0,3)=='+OK')
- {
- // *** Envoi du pass
- if(s_write($socket,"PASS $pass\r\n"))
- {
- // *** Lecture du +OK
- $rep=s_read($socket);
- if(substr($rep,0,3)=='+OK')
- {
- $ok=true;
- }
- }
- }
- }
- }
- if($ok)
- {
- // *** Demande la liste des mails
- s_write($socket,"LIST\r\n");
- while($rep=s_read($socket))
- {
- if((substr($rep,0,1)=='.')&&(strlen($rep<=3))) break;
- if(substr($rep,0,3)!='+OK')
- {
- $i=strpos($rep,' ');
- if($i>0)
- {
- $idx=substr($rep,0,$i)+0;
- $mails[$idx]=array();
- }
- }
- }
-
- // *** Lecture de chaque entête ???
- if(read_each_mail)
- {
- $line=1;
- foreach($mails as $key=>$value)
- {
- // *** Lire l'entête de chaque mail
- s_write($socket,"TOP $key 0\r\n");
- $buff='';
- while($rep=s_read($socket))
- {
- if((substr($rep,0,1)=='.')&&(strlen($rep<=3))) break;
-
- $buff=$rep;
- $i=strpos($buff,":");
- if($i>0)
- {
- $lkey=substr($buff,0,$i);
- $buff=substr($buff,$i+1);
- $mails[$key][$lkey]=$buff;
- }
- $buff='';
- }
- $titre=$mails[$key]['From'];
- $titre.=': '.$mails[$key]['Subject'];
- $date=$mail[$key]['Date'];
-
- // *** Créer le XML
-
- $url="http://webmail.free.fr";
- print "<item>";
- print "<guid>$url</guid>";
- print "<title>".htmlentities($titre)."</title>";
- print "<link>$url</link>";
- print "<pubDate>$date</pubDate>";
- print "</item>";
-
- $line++;
- }
- }
- }
- s_write($socket,"QUIT\r\n");
- socket_close($socket);
-
- // *** Créer le XML
- if(!read_each_mail)
- {
- $url="http://webmail.free.fr";
- if($ok)
- {
- $count=count($mails);
- if($count==0)
- $titre="$email: aucun email";
- else
- $titre="$email: $count email(s)";
- }
- else
- $titre="$email: erreur de lecture";
- $date=date("Y-m-d H:i:s");
- print "<item>";
- print "<guid>$url</guid>";
- print "<title>".htmlentities($titre)."</title>";
- print "<link>$url</link>";
- print "<pubDate>$date</pubDate>";
- print "</item>";
- }
- return('');
- }
-
- ?>
- </channel>
- </rss>
<?php /*** Créer un fil RSS depuis un compte POP par g0g0 ***/
?><rss version="2.0">
<channel>
<title>Mails en attente</title>
<link>http://webmail.free.fr/</link>
<description>Mails en attente</description>
<webMaster>g0g0pubs@free.fr</webMaster>
<language>fr</language>
<lastBuildDate>Thu, 18 Jan 2007 16:28:18 GMT</lastBuildDate>
<ttl>30</ttl>
<image>
<title>www.monsiteweb.com</title>
<url>http://abner.wordpress.com/files/2006/08/WindowsLiveWriter/ManualdePHP_7610/php%5B5%5D.gif</url>
<link>http://webmail.free.fr/</link>
<width>120</width>
<height>48</height>
</image>
<?php
define("read_each_mail",false); // Lecture ou pas des informations de l'entête
// ********************************************************************************
// ********************************************************************************
// ********************************************************************************
// This is the only lines you need to modify.
// Ce sont les seules lignes que vous avez à modifier.
//
// Il est possible de mettre 1 seul compte comme 30... pas de différence
// You can type as well as 1 account as well as 30, no difference
//
lire_mails("pop.magic.fr","moncompte","monpassword","moncompte@magic.fr");
lire_mails("pop.free.fr","moncompte","monpassword","moncompte@free.fr");
lire_mails("pop.orange.fr","moncompte","monpassword","moncompte@orange.fr");
// ********************************************************************************
// ********************************************************************************
// ********************************************************************************
// *** Ecrire un buffer dans une socket
function s_write($socket,$buff)
{
if(socket_write($socket,$buff)==FALSE) return(false);
// *** En principe il faudrait tester le nombre d'octets envoyés
return(true);
}
// *** Lire une ligne depuis une socket
function s_read($socket)
{
$buff="";
$c='';
while(ord($c)!=10)
{
socket_recv($socket,$c,1,0);
$buff.=$c;
}
// *** suppression des retours chariots
$buff=preg_replace("/(\r|\n)/","",$buff);
return($buff);
}
function lire_mails($pop,$user,$pass,$email)
{
// *** Création de la socket
$address = gethostbyname($pop);
$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
if ($socket < 0) {
die("socket_create() a échoué : raison : " . socket_strerror ($socket) . "\n");
}
// *** Connexion de la socket
$result=socket_connect($socket,$address,110);
if($result<0) die("Impossible de connecter la socket !");
$mails=array();
$ok=false;
// *** Lecture du message d'accueil
$rep=s_read($socket);
if(substr($rep,0,3)=='+OK')
{
// *** Envoi du login
if(s_write($socket,"USER $user\r\n"))
{
// *** Lecture du +OK
$rep=s_read($socket);
if(substr($rep,0,3)=='+OK')
{
// *** Envoi du pass
if(s_write($socket,"PASS $pass\r\n"))
{
// *** Lecture du +OK
$rep=s_read($socket);
if(substr($rep,0,3)=='+OK')
{
$ok=true;
}
}
}
}
}
if($ok)
{
// *** Demande la liste des mails
s_write($socket,"LIST\r\n");
while($rep=s_read($socket))
{
if((substr($rep,0,1)=='.')&&(strlen($rep<=3))) break;
if(substr($rep,0,3)!='+OK')
{
$i=strpos($rep,' ');
if($i>0)
{
$idx=substr($rep,0,$i)+0;
$mails[$idx]=array();
}
}
}
// *** Lecture de chaque entête ???
if(read_each_mail)
{
$line=1;
foreach($mails as $key=>$value)
{
// *** Lire l'entête de chaque mail
s_write($socket,"TOP $key 0\r\n");
$buff='';
while($rep=s_read($socket))
{
if((substr($rep,0,1)=='.')&&(strlen($rep<=3))) break;
$buff=$rep;
$i=strpos($buff,":");
if($i>0)
{
$lkey=substr($buff,0,$i);
$buff=substr($buff,$i+1);
$mails[$key][$lkey]=$buff;
}
$buff='';
}
$titre=$mails[$key]['From'];
$titre.=': '.$mails[$key]['Subject'];
$date=$mail[$key]['Date'];
// *** Créer le XML
$url="http://webmail.free.fr";
print "<item>";
print "<guid>$url</guid>";
print "<title>".htmlentities($titre)."</title>";
print "<link>$url</link>";
print "<pubDate>$date</pubDate>";
print "</item>";
$line++;
}
}
}
s_write($socket,"QUIT\r\n");
socket_close($socket);
// *** Créer le XML
if(!read_each_mail)
{
$url="http://webmail.free.fr";
if($ok)
{
$count=count($mails);
if($count==0)
$titre="$email: aucun email";
else
$titre="$email: $count email(s)";
}
else
$titre="$email: erreur de lecture";
$date=date("Y-m-d H:i:s");
print "<item>";
print "<guid>$url</guid>";
print "<title>".htmlentities($titre)."</title>";
print "<link>$url</link>";
print "<pubDate>$date</pubDate>";
print "</item>";
}
return('');
}
?>
</channel>
</rss>
Conclusion
Fonctionnement global: - Avec une socket: connexion au serveur de mail POP port 110, envoi des commandes USER, PASS, LIST, QUIT - Création en même temps de la page XML du flux RSS
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Problème de compatibilité de script [ par Chris54 ]
Bonjour,J'ai un problème d'execution d'un script javascript sous netscape alors qu'il fonctionne parfaitement sous IE mais je ne sais pas pourquoi.Que
formulaire pour e-mail invisible [ par pyranhaz ]
Bonjour,Je cherche à élaborer un formulaire php afin que les clients de mes petites annonces puissent envoyer leur réponse sans connaître le e-mail du
Capter l'email une fois lu. [ par zzzzzz ]
Salutj'aimerai savoir si il y a un moyen de "capter" l'email d'un destinataire. Si par exemple j'envoie un mail à bidon@hotmail.comj'aimerai appellé u
envoie d'Email :Je dois avoir de la merde dans les yeux [ par Wam0106 ]
Voila chez Online.net il me dise qu'il y a une erreure a la ligne 3 mais je ne vois pas ou est le pb si qq'un peu me dire ce qui ne va pas:<? $head
Envoyer bcp de email avec mail() [ par ImmortalPC ]
Salut, Je me pose à un gros problème sur un de mes scripts, envoyer beaucoup d'email ( environs 20 000 ). Le problème c'est le time ou
fonction mail ? [ par badjouane ]
comment puis evité le "/" qui jalone les mail que j'envoi à partir de la section administration de mon site.Par exemple, si j'écri :Mes c'est quoi ce
Expediteur dans fonction Mail() [ par Bowlest ]
Bonjour,J'ai un mini problème: en fait ma fonction mail marche trés bien, mais lorsque je reçois le mail, son expéditeur est "Apac
Socket : Adresse d'un serveur [ par Leneuf8000 ]
Bonjour, voilà, j'ai trouvé des sripts permettant l'envoi de mail et qui utilise la fonction fsockopen, or comme j'ai un problème pour
aidez moi pb avec email !! [ par anisbs ]
Salut je suis débutant en phpje commence a essayer quelques trucs mais la fonction mail ne fonctionne pas Il me sort un truc comme :Warning: mail():
fonction mail bizarre [ par pouda ]
Salut a tousvoila je voudrai faire une mailing liste a partir d'une table nuked klan dans ma base cependant ma fonction mail deconnevoila le codegloba
|
Derniers Blogs
SQL SERVER : PHP ET SQL SERVERSQL SERVER : PHP ET SQL SERVER par christian
Juste une petite synthèse sur les possibilités de connecter une application PHP sur un serveur SQL Server. Non pas que je me sois reconverti en développeur PHP, mais je constate qu'actuellement il est très difficile dans un environnement PHP et partic...
Cliquez pour lire la suite de l'article par christian [TECHDAYS 2010] WINDOWS AZURE APPFABRIC (CLO305)[TECHDAYS 2010] WINDOWS AZURE APPFABRIC (CLO305) par NeuroCypher
Les webcasts sont désormais en ligne, je me décide donc à écrire ce post. J'ai encore eu la chance d'animer une session aux TechDays cette année. Le sujet : le même que l'année dernière, ou plutôt son évolution. En effet, l'année dernière la couche de com...
Cliquez pour lire la suite de l'article par NeuroCypher OUTILS D'IMPORT AVEC MISE à JOUR DANS MICROSOFT DYNAMICS CRMOUTILS D'IMPORT AVEC MISE à JOUR DANS MICROSOFT DYNAMICS CRM par bianca
Problématique
Si vous avez besoin d'exporter sous Excel une liste de comptes ou de contacts dans le but de faire des retouches à droite à gauche puis de réinjecter le tout dans CRM, vous ne pouvez pas vous en...
Cliquez pour lire la suite de l'article par bianca SQL SERVER : DéVELOPPER UN ADDON POUR SQL SERVER MANAGEMENT STUDIO (SSMS)SQL SERVER : DéVELOPPER UN ADDON POUR SQL SERVER MANAGEMENT STUDIO (SSMS) par christian
Pour celles et ceux qui aiment SQL Server et on l'âme de développeur (ou sont tout simplement développeur) et veulent étendre les fonctionnalités de SQL Server, voici un article qui devrait pouvoir un intéresser.
Certes ce dernier est écrit sur u...
Cliquez pour lire la suite de l'article par christian EDITEUR XAML DE VISUAL STUDIO: COMMENT ALIGNER LES ATTRIBUTS LES UNS EN DESSOUS DES AUTRES AUTOMATIQUEMENTEDITEUR XAML DE VISUAL STUDIO: COMMENT ALIGNER LES ATTRIBUTS LES UNS EN DESSOUS DES AUTRES AUTOMATIQUEMENT par Miiitch
Lorsque l'on écrit du XAML, les tags XML peuvent vraiment devenir très longs et pas pratique à lire: Il y a une option vraiment pratique dans l'éditeur de Visual Studio qui va nous permettre de réorganiser tout cela en mettant les attributs XAML les uns e...
Cliquez pour lire la suite de l'article par Miiitch
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|