/**
  * @name insert($pMail)
  * @param String
  * @return VR
  * @desc Ajoute un mail à la mailing liste
  */
 public function insert($pMail)
 {
     $lMailingListeValid = new MailingListeValid();
     $lVr = $lMailingListeValid->validAjout($pMail);
     if ($lVr->getValid()) {
         // Initialisation du Logger
         $lLogger =& Log::singleton('file', CHEMIN_FICHIER_LOGS);
         $lLogger->setMask(Log::MAX(LOG_LEVEL));
         try {
             $lSoap = new SoapClient(ADRESSE_WSDL);
             $lSession = $lSoap->login(SOAP_LOGIN, SOAP_PASS, "fr", false);
             $lSoap->mailingListSubscriberAdd($lSession, MAIL_MAILING_LISTE_DOMAIN, MAIL_MAILING_LISTE, $pMail);
             $lSoap->logout($lSession);
             return true;
         } catch (SoapFault $pFault) {
             $lLogger->log("Echec d'ajout à la mailing liste : " . $pFault . ".", PEAR_LOG_INFO);
             // Maj des logs
             return false;
         }
     }
     return $lVr;
 }