FIX #5544 Disabled Contact still appear in lists to send emails

htdocs/societe/class/societe.class.php

@@ -1936,12 +1936,24 @@ class Societe extends CommonObject
     {
         global $langs;
 
-        $contact_emails = $this->contact_property_array('email');
+        $contact_emails = $this->contact_property_array('email',1);
         if ($this->email && $addthirdparty)
         {
-            if (empty($this->name)) $this->name=$this->nom;
-            // TODO: Tester si email non deja present dans tableau contact
-            $contact_emails['thirdparty']=$langs->trans("ThirdParty").': '.dol_trunc($this->name,16)." <".$this->email.">";
+            $exist = 0;
+            foreach($contact_emails as $contacts){
+                if($exist ===0){
+                    $contacts = str_replace('>','',$contacts);
+                    $contacts = explode ('<',$contacts);
+                    if($contacts[1]===$this->email){
+                        $exist = 1;
+                    }
+                }
+            }
+            if($exist ===0){
+                if (empty($this->name)) $this->name=$this->nom;
+                $contact_emails['thirdparty']=$langs->trans("ThirdParty").': '.dol_trunc($this->name,16)." <".$this->email.">";
+            }
+
         }
         return $contact_emails;
     }