// Foncion de base - Envoi d'un e-mail sur un lien
function fctcourriel(user,host,cuser,chost,sbj,tag) {
// Vérification User et Provider
if ((user=="")||(host=="")){
	document.write("Erreur paramètres");
	}
else {
	eml= "<a href=mailto:" + user +"@" + host;
	if (((cuser!=="")&&(chost!==""))||(sbj!=="")) eml=eml + "?";
	if ((cuser!=="") && (chost!==""))eml=eml + "CC=" + cuser + "@" + chost;
	if ((cuser!=="")&&(chost!=="")&&(sbj!=="")) eml=eml + "&";
	if (sbj!=="") {
		sbj1=sbj;
		for (i=0;i<sbj.length;i++){
			if (sbj.charAt(i)==" "){
				sbj1=sbj1.replace(" ","%20");
				}
			}
		eml=eml + "Subject=" + sbj1;}
	eml=eml + ">";
	if (tag==""){
		eml=eml + user +"@" + host;
		}
	else {
		eml=eml + " " + tag;
		}
	eml=eml + "</a>";
	document.write(eml);
	}
}

function courriel_direct(user,host,cuser,chost,sbj,txt) {
// Vérification User et Provider
if ((user=="")||(host=="")){
	document.write("Erreur paramètres");
	}
else {
	eml = "mailto:" + user +"@" + host;
	if (((cuser!=="")&&(chost!==""))||(sbj!=="")||(txt!=="")) eml=eml + "?";
	if ((cuser!=="") && (chost!==""))eml=eml + "CC=" + cuser + "@" + chost;
	if ((cuser!=="")&&(chost!=="")&&((sbj!=="")||(txt!==""))) eml=eml + "&";
	// Insertion Sujet du mail
	if (sbj!=="") {
		sbj1=sbj;
		for (i=0;i<sbj.length;i++){
			if (sbj.charAt(i)==" "){
				sbj1=sbj1.replace(" ","%20");
				}
			}
		eml=eml + "Subject=" + sbj1;
		}
	if ((sbj!=="")&&(txt!==""))eml=eml + "&";
	// Insertion texte du mail
	if (txt!=="") {
		txt1 = txt;
		for (i=0;i<txt.length;i++){
			if (txt.charAt(i)==" "){
				txt1=txt1.replace(" ","%20");
				}
			}
		eml=eml + "Body=" + txt1;
		}
	location.href=eml;
	}
}