// ce scripte a pour but de vous montrer comment aspirer les titres du figaro et du monde et les envoyer par email

var s:string;
var revue_de_presse: Tstringlist;revue_de_presse:=Tstringlist.create;

maxbrowsers(1);


navigate('http://www.figaro.fr',1);
revue_de_presse.add('SOURCE: FIGARO');
s:=gettext('TD(2)/TR(1)/TBODY(0)/TABLE(0)/BODY(0)/HTML(0)/',1);
revue_de_presse.add(s);

navigate('http://www.lemonde.fr',1);
revue_de_presse.add('SOURCE: LE MONDE');
s:=gettext('TD(2)/TR(0)/TBODY(0)/TABLE(3)/BODY(0)/HTML(0)/',1);
revue_de_presse.add(s);

sendstringbyemail('webmaster','[email protected]',revue_de_presse.text);