diff --git a/htdocs/admin/company.php b/htdocs/admin/company.php
index 3d062b2a7586fff9ec8e1c774339388ed08e4242..becf1802fbce3841e7457de282bd8f3cdfa59aca 100644
--- a/htdocs/admin/company.php
+++ b/htdocs/admin/company.php
@@ -512,10 +512,10 @@ else
     print '<tr '.$bc[$var].'><td width="35%">'.$langs->trans("Fax").'</td><td>' . $conf->global->MAIN_INFO_SOCIETE_FAX . '</td></tr>';
 
     $var=!$var;
-    print '<tr '.$bc[$var].'><td width="35%">'.$langs->trans("Mail").'</td><td>' . $conf->global->MAIN_INFO_SOCIETE_MAIL . '</td></tr>';
+    print '<tr '.$bc[$var].'><td width="35%">'.$langs->trans("Mail").'</td><td>' . dol_print_email($conf->global->MAIN_INFO_SOCIETE_MAIL) . '</td></tr>';
 
     $var=!$var;
-    print '<tr '.$bc[$var].'><td width="35%">'.$langs->trans("Web").'</td><td>' . $conf->global->MAIN_INFO_SOCIETE_WEB . '</td></tr>';
+    print '<tr '.$bc[$var].'><td width="35%">'.$langs->trans("Web").'</td><td>' . dol_print_url($conf->global->MAIN_INFO_SOCIETE_WEB) . '</td></tr>';
 
     $var=!$var;
     print '<tr '.$bc[$var].'><td width="35%">'.$langs->trans("Gencod").'</td><td>' . $conf->global->MAIN_INFO_SOCIETE_GENCOD . '</td></tr>';
diff --git a/htdocs/contact/fiche.php b/htdocs/contact/fiche.php
index 4a7eb7ed20fbecf378fbd30a06248e451dcb382e..f62222d4cb6f68021c1fd43ebe38a3edcf593b38 100644
--- a/htdocs/contact/fiche.php
+++ b/htdocs/contact/fiche.php
@@ -539,7 +539,7 @@ if ($_GET["id"] && $_GET["action"] != 'edit')
 	}
 	else
 	{
-		print $contact->email;
+		print dol_print_email($contact->email);
 	}
 	print '</td>';
 	if ($conf->mailing->enabled)
diff --git a/htdocs/contact/index.php b/htdocs/contact/index.php
index 8f03441f8e1db283e5fb4e7946aed7e93348bdb7..7c2930b0e681be68d59eb1a4b5ab6595a08b0ba4 100644
--- a/htdocs/contact/index.php
+++ b/htdocs/contact/index.php
@@ -334,7 +334,7 @@ if ($result)
                 print "Bad email";
             }
             else {
-                print '<a href="mailto:'.$obj->email.'">'.$obj->email.'</a>';
+                print dol_print_email($obj->email);
             }
             print '</td>';
         }
diff --git a/htdocs/lib/functions.lib.php b/htdocs/lib/functions.lib.php
index 0e578d5de448ddcaa90b5db7ffb91ac968ff7587..811aeca092c46cb5907b868ba124c79c9d518c3b 100644
--- a/htdocs/lib/functions.lib.php
+++ b/htdocs/lib/functions.lib.php
@@ -782,7 +782,6 @@ function dol_print_size($size)
 	return $size.' '.$langs->trans("Bytes");
 }
 
-
 /**
  * \brief		Show Url link
  * \param		url			Url to show
@@ -802,6 +801,23 @@ function dol_print_url($url,$target='_blank',$max=32)
 	return $link;
 }
 
+/**
+ * \brief		Show EMail link
+ * \param		email		EMail to show
+ * \param		max			Max number of characters to show
+ * \return		string		HTML Link
+ */
+function dol_print_email($email,$max=32)
+{
+	$link='<a href="';
+	if (! eregi('^mailto:',$email)) $link.='mailto:';
+	$link.=$email;
+	$link.='">';
+	$link.=dolibarr_trunc($email,$max);
+	$link.='</a>';
+	return $link;
+}
+
 /**
  * \brief		Show click to dial link
  * \param		phone		Phone to call