Amazon : Comment avoir un fichier Excel/Numbers ( format CSV ) des factures à partir des emails ? ( sous Mac )

Après avoir demandé au support d’Amazon (très réactif sur Twitter) qui m’a envoyé vers ce lien : https://www.amazon.fr/gp/help/customer/display.html/ref=help_search_1-1?ie=UTF8&nodeId=202119330&qid=1521482623&sr=1-1 . Mais en fait ce lien n’est valable uniquement pour Amazon Business . Je me suis lancé dans la création d’un script …

Cette première version du script permet d’avoir (à 100%) :

  • La date.
  • La référence.
  • Le prix.

En fait dans mon fichier CSV j’ai mis :

  • compteur :compteur d’email : fiable à 100%
  • Fichier : lien vers l’email : fiable à 100%
  • De : envoyé par : fiable à 100% (c’est toujours  confirmation-commande@amazon.fr )
  • Date : date : fiable à 100%
  • Amazon RTE : le but était la recherche de la balise « X-AMAZON-RTE-VERSION:« 
  • Commande : Référence de la commande  : fiable à 100%
  • Document : le but était la recherche de la balise « X-SES-Outgoing: » . Pour plus d’information voir ici : https://docs.aws.amazon.com/fr_fr/ses/latest/DeveloperGuide/receiving-email-notifications-examples.html
  • Sequence : le but était la recherche de la balise « Feedback-ID:« .
  • Amazon Client Host : le but était la recherche de la balise « X-AMAZON-CLIENT-HOST:« .
  • Message ID : le but était la recherche de la balise « Message-ID:« .
  • Prix : prix total de la commande :  fiable à 100%
  • Cumul : non fiable
  • Version Total : version pour la découpage du total ( pour le debug )
  • Version Commande : version pour la découpage du total ( pour le debug )

Il ne faut pas tenir compte de la colonne cumul, car dans le fichier on trouve plusieurs fois une même commande (répétition des emails).

Comment utiliser le script ? Il suffit de faire un répertoire à la racine et de copier le script à l’intérieur. Ensuite le script recherche tous les emails dans Mail (sou Mac) qui sont relatifs à une commande. J’aurais pu faire le script en Perl ou Python, mais je préfère ne pas imposer d’installation de ses deux langages.

Voici le script (sans indentation … à cause du copier/coller sous WordPress):

#!/bin/bash
# ARIAS Frederic
# Version V1
compteur=1
erreur=0
Somme=0
NbLu=0

chercheFichier() {
 Rep="$1"
 for item in $Rep/*
 do [ -f "$item" ] 
 ext="${item##*.}"
 if [ "$ext" = "emlx" ] ; then
 De=`head -50 $item | grep "^X-Envelope-From:" | awk '{print $2 }' | head -1`
 if [ ! -n "$De" ] ;
 then
 De=`head -60 $item | grep "^From: " | awk -v FS="(<|>)" '{print $2}' | head -1`
 fi
 if [ ! -n "$De" ] ;
 then
 De=`head -60 $item | grep "^From: " | awk -v FS='("|")' '{print $2}' | head -1`
 fi
 NbLu=`expr $NbLu + 1`
 if [ "$De" == "confirmation-commande@amazon.fr" ] || [ "$De" == "confirmation-envoi@amazon.fr" ]
 then
 echo "Une nouvelle facture Amazon ? " 
 Business=`head -200 $item | grep "^X-AMAZON-RTE-VERSION:" | awk '{print $2}' | head -1`
 if [ ! -n "$Business" ] ;
 then
 Business='?'
 fi
 ClientHost=`head -200 $item | grep "^X-AMAZON-CLIENT-HOST:" | awk '{print $2}' | head -1`
 if [ ! -n "$ClientHost" ] ;
 then
 ClientHost='?'
 fi
 MessageID=`head -100 $item | grep "Message-ID: " | awk '{print $2}' | head -1`
 Date=`head -150 $item | grep "^Date:" | awk '{print $2 " " $3 " " $4 " " $5 " " $6}' | head -1`
 Document=`head -50 $item | grep "X-SES-Outgoing:" | awk '{print $2}' | head -1`
 Sequence=`head -50 $item | grep "Feedback-ID:" | awk '{print $2}' | head -1`
 Commande=`head -100 $item | grep "^Commande" | awk '{print $2}' | head -1`
 CommandeVersion=1
 if [ "$Commande" == "n=C2=B0" ] ;
 then
 Commande=`head -100 $item | grep "^Commande" | awk '{print "#" $3}' | head -1`
 CommandeVersion=2
 fi
 if [ ! -n "$Commande" ] ;
 then
 Commande=`head -100 $item | grep "D=C3=A9tails de votre commande n=C2=B0" | awk '{print "#" $6}' | head -1`
 CommandeVersion=3
 fi
 if [ ! -n "$Commande" ] ;
 then
 Commande=`head -100 $item | grep "tail de votre commande n" | awk '{print "#" $6}' | head -1`
 CommandeVersion=4
 fi
 if [ ! -n "$Commande" ] ;
 then
 Commande=`head -100 $item | grep "Commande Num=C3=A9ro de commande :=09=09=09" | awk '{print $5}' | sed 's/=09/ /g' | awk '{print "#" $2}' | head -1`
 CommandeVersion=5
 fi
 if [ ! -n "$Commande" ] ;
 then
 Commande=`head -100 $item | grep "N=C2=B0 de commande Amazon :" | awk '{print "#" $6}' | head -1`
 CommandeVersion=9
 fi
 if [ ! -n "$Commande" ] ;
 then
 Commande=`head -100 $item | grep "Num=C3=A9ro de commande :=09=09=09" | awk '{print $4}' | sed 's/=09/ /g' | awk '{print "#" $2}' | head -1`
 CommandeVersion=6
 fi
 if [ ! -n "$Commande" ] ;
 then
 Commande=`head -400 $item | grep "display-order-status" | sed 's/</ /g' | sed 's/>/ /g' | awk '{print "#" $3}' | head -1`
 CommandeVersion=7
 fi
 if [ ! -n "$Commande" ] ;
 then
 Commande=`head -300 $item | grep "history/view.html" | sed 's/</ /g' | sed 's/>/ /g' | awk '{print "#" $3}' | head -1 `
 CommandeVersion=8
 fi
 Total=`head -200 $item | grep "Montant total pour cet envoi :" | awk '{print $7}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=1
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep "Montant total de la commande :" | awk '{print $8}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=2
 fi
 if [ "$Total" == "EUR" ] ;
 then
 Total=`head -200 $item | grep "Montant total de la commande :" | awk '{print $7}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=3
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep "Montant total pour cet envoi :" | awk '{print $8}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=4
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep "Total TTC :" | awk '{print $8}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=5
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep "Total TTC :" | awk '{print $5}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=6
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep "^Total :" | awk '{print $4}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=7
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep "Total TTC:" | awk '{print $4}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=8
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep "Montant total pour cette commande&nbsp;:EUR" | awk '{print $6}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=9
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep '<td width="98%"><span class="small">' | awk '{print $4}' | sed 's/</ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=10
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep '<b>Montant total de la commande:' | awk '{print $7}' | sed 's/</ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=11
 fi
 if [ ! -n "$Total" ] ;
 then
 Total=`head -200 $item | grep "Total :" | awk '{print $4}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
 TotalVersion=12
 fi
 if [ -n "$Commande" ] ;
 then
 if [ -n "$Total" ] ; 
 then
 Somme=`echo "scale=3; $Somme + $Total " | bc`
 fi 
 if [ ! -n "$Total" ] ;
 then
 echo "Source (Total err) : $item "
 fi
 echo "$compteur | $De | $Date | $Business | $Commande | $Document | $Sequence | $ClientHost | $MessageID | $Total | $Somme "
 echo "$compteur ; $item ; $De ; $Date ; $Business ; $Commande ; $Document ; $Sequence ; $ClientHost ; $MessageID ; $Total ; $Somme ; $TotalVersion ; $CommandeVersion " >> facture_amazon.csv
 compteur=`expr $compteur + 1`
 fi
 if [ ! -n "$Commande" ] ;
 then
 echo "Source : $item "
 erreur=`expr $erreur + 1`
 fi
 fi
 fi
 [ -d "$item" ] && chercheFichier "$item"
 done
}

echo "compteur ; Fichier ; De ; Date ; Amazon RTE Version ; Commande ; Document ; Sequence ; Amazon Client Host ; Message ID ; Prix ; Cumul ; Version Total ; Version Commande " > facture_amazon.csv

START=$(date +%s);

[ -d "../Library/Mail/" ] && chercheFichier "../Library/Mail/"

END=$(date +%s);
DIFF=`echo $((END-START)) | awk '{print int($1/60)":"int($1%60)}'`

echo "Fin du script : Lu : $NbLu / Bon : $compteur / Mauvais : $erreur / Temps : $DIFF ."

J’ai testé ce script sur mes emails et cela a bien fonctionné. Le nom du fichier CSV est facture_amazon.csv et il doit être dans le répertoire crée. J’ai compté 12 syntaxes différentes sur les emails de 2006 à 2018.

Pour connaitre le nombre de commande il faut faire (les commandes sont en double, ou en triple … car il y a répétition des emails) :

cat facture_amazon.csv | awk '{print $15}' | grep -v "Document" | sort -n | uniq -c | wc -l

Sinon avec Number/Excel vous pouvez le faire aussi.

A suivre.

P.S.: Si vous utilisez ce script, j’accepte d’avoir une bière en retour ? .

iTunes : Comment avoir un fichier Excel/Numbers des factures iTunes à partir des emails ? ( sous Mac )

Rien de plus facile ! Pour informations les emails sont stockés sous : ./Library/Mail/ et les factures d’Apple ( iTunes, et non pas Apple Store )  ne sont pas des PDF. Pour rappel, si vous voulez voir la source d’un email il suffit de faire Cmd+Alt+U, ou bien aller dans le menu Présentation > Message > Contenu orginal.

Donc c’est facile l’étape n°1, vous prenez le script suivant que vous copiez à la racine de votre utilisateur c.a.d. /Users/MonLogin/ . Dans un fichier cherche_facture_Apple.bash par exemple …

Voici donc le script :

#!/bin/bash
# ARIAS Frederic
# Version V1
compteur=1
erreur=0
Somme=0
NbLu=0
chercheFichier() {
   Rep="$1"
   for item in $Rep/*
   do [ -f "$item" ] 
ext="${item##*.}"
if [ "$ext" = "emlx" ] ; then
De=`head -50 $item | grep "^X-Envelope-From:" | awk '{print $2 }' | head -1`
Sujet=`head -50 $item | grep "^Subject: " | awk '{print $2 }' | head -1`
NbLu=`expr $NbLu + 1`
#if [ "$De" == "do_not_reply@itunes.com" ]
#then
#echo "Sujet : '$Sujet'"
#echo "Fichier : $item"
#fi 
        if [ "$Sujet" == "Votre" ] || [[ "$Sujet" =~ =\?ISO\-8859\-1\?Q\?Votre_re* ]]  || [[ "$Sujet" =~ =\?ISO\-8859\-1\?Q\?Votre_facture* ]] || [[ "$Sujet" =~ =\?UTF\-8\?Q\?Votre_re* ]]
                                then
#echo "Une nouvelle facture Apple ? " 
if [ ! -n "$De" ] ;
then
De=`head -50 $item | grep "^From: " | awk -v FS="(<|>)" '{print $2}' | head -1`
fi
if [ ! -n "$De" ] ;
then
De=`head -50 $item | grep "^From: " | awk -v FS='("|")' '{print $2}' | head -1`
fi
Business=`head -50 $item | grep "^X-Business-Group:" | awk '{print $2}' | head -1`
if [ ! -n "$Business" ] ;
then
Business=`head -50 $item | grep "^X_BUSINESS_GROUP:" | awk '{print $2}' | head -1`
fi
Date=`head -50 $item | grep "^Date:" | awk '{print $2 " " $3 " " $4 " " $5 " " $6}' | head -1`
Visa=`head -100 $item | grep "^Visa ...." | awk '{print $3}' | head -1`
if [ ! -n "$Visa" ] ;
then
Visa=`head -100 $item | grep "Factur=C3=A9 =C3=A0 :" | awk '{print $6}' | head -1`
fi
Commande=`head -100 $item | grep "^N=C2=B0 DE COMMANDE:" | awk '{print $4}' | head -1`
if [ ! -n "$Commande" ] ;
then
Commande=`head -100 $item | grep "N=C2=B0 de commande :" | awk '{print $5}' | head -1`
fi
if [ ! -n "$Commande" ] ;
                                        then
                                        Commande=`head -100 $item | grep "Num=C3=A9ro de la commande :" | awk '{print $6}' | head -1`
                                fi
Document=`head -100 $item | grep "N=C2=B0 DE DOCUMENT:" | awk '{print $4}' | head -1`
if [ ! -n "$Document" ] ;
then
                         Document=`head -100 $item | grep "N=C2=B0 DU DOCUMENT:" | awk '{print $4}' | head -1`
fi
Sequence=`head -100 $item | grep "^N=C2=B0 DE S=C3=89QUENCE:" | awk '{print $4}' | head -1`
if [ ! -n "$Sequence" ] ;
then
Sequence=`head -100 $item | grep "^S=C3=89QUENCE N=C2=B0:" | awk '{print $3}' | head -1`
fi
                                if [ ! -n "$Sequence" ] ;
                                        then
                                        Sequence=`head -100 $item | grep "Num=C3=A9ro de s=C3=A9quence=C2=A0:" | awk '{print $4}' | head -1`
                                fi
DateDeLaFacture=`head -100 $item | grep "^DATE DE LA FACTURE:" | awk '{print $5 " " $6 " " $7}' | head -1`
if [ ! -n "$DateDeLaFacture" ] ;
then
DateDeLaFacture=`head -100 $item | grep "Date de la facture:" | awk '{print $5 }' | head -1`
fi
if [ ! -n "$DateDeLaFacture" ] ;
                                        then
                                        DateDeLaFacture=`head -100 $item | grep "Date du re=C3=A7u :" | awk '{print $5 }' | head -1`
fi
Total=`head -100 $item | grep "^TOTAL:" | awk '{print $2}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
if [ ! -n "$Total" ] ;
then
Total=`head -100 $item | grep "Total de la commande :" | awk '{print $6}' | sed 's/=/ /g' | awk '{print $1}' | sed 's/,/\./g' | head -1`
fi
if [ -n "$Commande" ] ;
then
Somme=`echo "scale=3; $Somme + $Total " | bc` 
echo "$compteur | $De | $Date | $Business | $Commande | $Document | $Sequence | $Visa | $DateDeLaFacture | $Total | $Somme "
echo "$compteur ; $De ; $Date ; $Business ; $Commande ; $Document ; $Sequence ; $Visa ; $DateDeLaFacture ; $Total ; $Somme " >> facture_apple.csv
compteur=`expr $compteur + 1`
fi
if [ ! -n "$Commande" ] ;
then
#echo "Source : $item "
erreur=`expr $erreur + 1`
fi
fi
fi
      [ -d "$item" ] && chercheFichier "$item"
   done
}

echo "compteur ; De ; Date ; Business ; Commande ; Document ; Sequence ; Carte Visa ; DateDeLaFacture ; Prix ; Cumul " > facture_apple.csv
START=$(date +%s);
[ -d "./Library/Mail/" ] && chercheFichier "./Library/Mail/"
END=$(date +%s);
DIFF=`echo $((END-START)) | awk '{print int($1/60)":"int($1%60)}'`
echo "Fin du script : Lu : $NbLu / Bon : $compteur / Mauvais : $erreur / Temps : $DIFF ."

Désolé mais l’indexation du code a sauté … l’autre point c’est qu’il n’est pas très propre car je l’ai fait très rapidement. Désolé pour les puristes …

Ensuite vous ouvrez un terminal, et vous lancer le bash : ./cherche_facture_Apple.bash. Le résultat est dans la racine : facture_apple.csv. C’est un fichier CSV, le séparateur est un point virgule.

J’ai fait un test et le programme découpe bien les emails de 2012, 2013, 2014, 2015, 2016, 2017, 2018.

Ensuite il faut penser à prendre des kleneex quand on regarde la somme totale … au passable vous avez la possibilité de voir les performances du disque dur avec le nombre d’email lu et le temps total du script.

Frédéric.

P.S.: Si vous utilisez ce programme, j’accepte d’avoir une bière en retour 😉 .

Application Caisse d’Epargne sous Android : le désastre de la version 4.6.1

J’ai trouvé mon bonheur : https://github.com/amrrs/Google-Play-Store-Review-Extractor ( Google Play Store Review Extractor ) . Un programme qui permet le téléchargement des commentaires.

Sur le programme https://github.com/amrrs/Google-Play-Store-Review-Extractor/blob/master/reviews_extraction.py , il suffit de changer :

link = "https://play.google.com/store/apps/details?id=uk.co.o2.android.myo2&hl=en_GB"

par:

link = "https://play.google.com/store/apps/details?id=com.caisseepargne.android.mobilebanking&hl=fr"

Mais il faut aussi changer le path ( le chemin) vers Chrome :

chrome_options.binary_location = "C:\\Users\\SA31\\Downloads\\dt\\Win_337026_chrome-win32\\chrome-win32\\chrome.exe"

Pour que cela fonctionne, il faut donc Windows + Python + Chrome.

Sinon avec Curl on peut faire :

curl --verbose --data "reviewType=0&pageNum=4&id=com.caisseepargne.android.mobilebanking&reviewSortOrder=1&hr=1" "https://play.google.com/store/getreviews" > data.txt

Pour avoir les derniers commentaires :

curl --verbose --data "reviewType=0&pageNum=0&id=com.caisseepargne.android.mobilebanking&reviewSortOrder=2&xhr=1" "https://play.google.com/store/getreviews" > data.txt

Ensuite il faut extraire cette chaine : aria-label\u003d\ »* étoiles sur cinq\ »\u003e :

cat data.txt | sed $'s/003/\\\n/g' | grep "étoiles sur cinq" | sed 's/"/ /g' | awk '{print $2}' | sort -n | uniq -c
  28 1 étoiles
   8 2 étoiles
   3 3 étoiles
   1 4 étoiles

Il est aussi possible de faire un script afin de voir l’évolution :

#!/bin/bash
echo "" > page.txt
for i in {0..40}
do
   curl --verbose --data "reviewType=0&pageNum=$i&id=com.caisseepargne.android.mobilebanking&reviewSortOrder=2&xhr=1" "https://play.google.com/store/getreviews" > data$i.txt
   cat data$i.txt | sed $'s/003/\\\n/g' | grep "étoiles sur cinq" | sed 's/"/ /g' | awk '{print $2}' | sort -n | uniq -c | awk '{print '"$i"' " " $1 " " $2 " " $3}' >> page.txt
done

Le 0 c’est le plus récent et le 40 le plus ancien :

On peut voir que la page n°26 les personnes étaient contentes … (le premier jour étant le 19 avril 2017). Cela doit donc être à la sortie de la version 4.2. La page n°40 correspond à la date du 26 juillet 2016.

Il est donc utile de mettre une mauvaise note afin de faire comprendre son mécontentement !

A suivre.

Mac OS X : Script pour parser tous les emails de Mail ( format emlx )

J’ai fait un script ( rapidement, donc un bash et pas du Perl ou du Python) pour parser tous les emails dans Mail, il suffit de mettre ce script sous : /Users/MonLogin/Library/Mail/ .

Le scripts en version V1 :

#!/bin/bash
#


compteur=0
erreur=0

chercheFichier() {
   Rep="$1"
   for item in $Rep/*
   do [ -f "$item" ] 
	ext="${item##*.}"
	#echo "$item $ext"
	#if  file -i $item | grep -q text ; then 
		if [ "$ext" = "emlx" ] ; then
			from=`head -40 $item | grep "^From: " | awk -v FS="(<|>)" '{print $2}' | head -1`
		        if [ ! -n "$from" ] ;
				then
				from=`head -40 $item | grep "^From: " | awk -v FS='("|")' '{print $2}' | head -1`
			fi
			date=`head -50 $item | grep "^Date: " | sed 's/Date: //g' | sed 's/.*,//' | head -1`
			if [ ! -n "$date" ] ;
				then
				date=`head -50 $item | grep "^Date: " | head -1`
			fi
			if [ -n "$from" ] ; then
				if [ -n "$date" ] ; then
					compteur=`expr $compteur + 1`			
					echo "$compteur | $from | $date" >> list.txt
					else 
					erreur=`expr $erreur + 1`
					echo "Pas de date : $compteur / $erreur / $from / $item"
					fi
				else 
				erreur=`expr $erreur + 1`
				from=`head -10 $item | grep "^From: " | head -1`
				echo "Pas d'email : $compteur / $erreur / $from / $item"
				fi
			fi
		#fi
      [ -d "$item" ] && chercheFichier "$item"
   done
}
 
[ -d "${1:-.}" ] && chercheFichier ${1:-.}

J’ai fait un test et sur 140.000 emails (en 14 ans) j’ai eu 500 erreurs, le problèmes des erreurs ce sont les emails en binaires. Il faut trouver la bonne limite dans le « head -40 » et « head -50 » afin de n’avoir que l’entête de l’email. Mais le champ « Date » se trouve après le champ « To », qui lors d’un spam est très très long .

A la fin de l’exécution on a une fichier list.txt avec numéro, from, date. Pour le reste il suffit de faire un peu d’Excel :

Les emails c’était 5 heures de travail par jour pour les cadres en 2015 : https://www.usine-digitale.fr/article/les-e-mails-c-est-5-heures-de-travail-par-jour-pour-les-cadres-de-2015.N346564 .

L’idée serait de pouvoir identifié les flux (une cartographie des flux) des emails envoyés et reçus … mais c’est pour la version V2. Et aussi de voir l’évolution des flux dans le temps.

Pour l’instant j’ai trouvé ceci pour les flux : https://rgeomatic.hypotheses.org/415 .

A suivre.

La version V1 bis (moins d’erreur : 200).

#!/bin/bash

compteur=0
erreur=0

chercheFichier() {
   Rep="$1"
   for item in $Rep/*
   do [ -f "$item" ] 
	ext="${item##*.}"
	#echo "$item $ext"
	#if  file -i $item | grep -q text ; then 
		if [ "$ext" = "emlx" ] ; then
			from=`head -10 $item | grep "^From: " | awk -v FS="(<|>)" '{print $2}' | head -1`
		        if [ ! -n "$from" ] ;
                                then
                                from=`head -40 $item | grep "^From: " | awk -v FS='("|")' '{print $2}' | head -1`
                        fi
			if [ ! -n "$from" ] ;
				then
				from=`head -80 $item | grep "^From: " | awk -v FS='("|")' '{print $2}' | head -1`
			fi
			date=`head -30 $item | grep "^Date: " | sed 's/Date: //g' | sed 's/.*,//' | head -1`
			if [ ! -n "$date" ] ;
				then
				date=`head -70 $item | grep "^Date: " | sed 's/.*,//' | head -1`
			fi
			if [ -n "$from" ] ; then
				if [ -n "$date" ] ; then
					compteur=`expr $compteur + 1`			
					echo "$compteur | $from | $date" >> list.txt
					else 
					erreur=`expr $erreur + 1`
					echo "Pas de date : $compteur / $erreur / $from / $item"
					fi
				else 
				erreur=`expr $erreur + 1`
				from=`head -15 $item | grep "^From: " | head -1`
				echo "Pas d'email : $compteur / $erreur / $from / $item"
				fi
			fi
		#fi
      [ -d "$item" ] && chercheFichier "$item"
   done
}
 
[ -d "${1:-.}" ] && chercheFichier ${1:-.}

echo "Fin du script : $compteur / $erreur "