nvo_ds  lds_rech_email 
long      ll_nb_row
integer    li_nb_email, li_email
integer    li_retour
string    ls_retour
string    ls_lbmailpl_destinataires[], ls_lbmailpl_copies[], ls_mail
string    ls_host, ls_expediteur, ls_subject, ls_body, ls_destinataire, ls_copie, ls_param
u_ole_mail  mail
string ls_t_expediteur[] , ls_lbmailpl_vide[]


//------------------------------------------------------
// Constitution du mail et envoi
//------------------------------------------------------

// Création de l'objet mail
u_ole_mail  mail  // correspond à un userobject herité d'un oleobject
mail = create u_ole_mail

// Connexion à l'objet mail
li_retour = mail.ConnectToNewObject("Persits.MailSender")  

IF li_retour <> 0 THEN
  ls_retour = "Erreur à la connexion."
  RETURN ls_retour
END IF

mail.Reset

// Nom du serveur de mail

 
mail.Host = ls_host //doit correspondre à l'adresse du serveur de mesagerie

ls_param += "Mail host: " + ls_host + "~r~n"


IF isNull(ls_expediteur)  THEN ls_expediteur = "aa.bb@adresse.fr"
mail.From = ls_expediteur
ls_param += "Mail from: " + ls_expediteur + "~r~n"

// Objet du mail
ls_subject = as_objet
IF isNull(ls_subject) THEN ls_subject = "test mail"
mail.Subject = ls_subject
ls_param += "Mail subject: " + ls_subject + "~r~n" 

// Texte du mail 
ls_body = as_message
IF isNull(ls_body) THEN ls_body = "-"
mail.Body = ls_body
ls_param += "Mail body: " + ls_body + "~r~n"

 

//  Liste des destinataires à récupérer avant
li_nb_email = UpperBound(ls_lbmailpl_destinataires)
FOR li_email = 1 TO li_nb_email
  ls_destinataire = ls_lbmailpl_destinataires[li_email]
  mail.AddAddress(ls_destinataire)
  IF isNull(ls_destinataire) THEN ls_destinataire = "null"
  ls_param += "Mail to: " + ls_destinataire + "~r~n"
NEXT

 

//  Liste des destinataires de copie à récupérer avant
li_nb_email = UpperBound(ls_lbmailpl_copies)
FOR li_email = 1 TO li_nb_email
  ls_copie = ls_lbmailpl_copies[li_email]
   mail.AddCc(ls_copie)
  IF isNull(ls_copie) THEN ls_copie = "null"
  ls_param += "Mail cc: " + ls_copie + "~r~n"
NEXT

//permet d'envoyer une piece jointe
If trim(as_piece_jointe ) <> "" then
  mail.AddAttachment(as_piece_jointe)
  IF fileexists(as_piece_jointe) = FALSE THEN
    ls_param += "Mail attachement: " + as_piece_jointe + " bloqué ou inexistant~r~n" 
  ELSE
    ls_param += "Mail attachement: " + as_piece_jointe + "~r~n" 
  END IF
End if

//permet d'envoyer le mail en copie cachée si besoin 
mail.AddBcc(ls_copie_cachee)
 

//envoie du mail
 
mail.Send


 

// Déconnexion de l'objet mail
li_retour = mail.disconnectObject()
IF li_retour <> 0 THEN
  ls_retour = "Erreur à la déconnexion."
  RETURN ls_retour + "~r~n" + "~r~n" + "Paramètres :" + "~r~n" + ls_param
END IF

// Destruction de l'objet mail
IF IsValid(mail) THEN DESTROY mail

RETURN ls_retour