probleme envoi email a plusieurs destinataire

[lcoder]

Bonjour,

j'ai créé un masque Memo dans une application

J'ai recuperé les principaux champ du memo de la boite email dont le champ : EnterSendTo pour indiqué les destinataire de l email.
Mon application prepare des email que l'utilisateur peut modifier et envoyer ensuite...

les adresses email sont contenu dans le champ texte d'un document de la base... elles sont copié a la creation de l email dans EnterSendTo ...

Code : Tout sélectionner

Destinataire = doccourant.RecCli_Emailcli(0)
If Destinataire="" Then
   Msgbox "Le champs Email du client est obligatoire."+ Chr(13) +"Fin du traitement"
   Exit Sub
End If
Set memo = db.CreateDocument()
memo.Form = "Memo"
memo.EnterSendTo = Destinataire
memo.DisplayFrom= session.UserName
memo.DisplaySent= session.UserName
memo.Subject = "..."


mon code me semble correcte ... les email dans la zone EnterSendTo sont sous la forme : adress1@domaine.com, adress2@domaine.com, adress3@domaine.com
Mais quand l'utilisateur envoi l email, celui ci n est reçu que par adress1@domaine.com et pas par les autres ...

QU est ce qui pourrait expliquer ce probleme ?
Comment peut le corriger ?

Merci
Cordialement

[Jérôme Deniau]

Destinataire = doccourant.ReCli_EmailCli
memo.sendTo = Destinataire

[roubech]

Il faut que ton champ soit bien typé multivalue

[Bizous78]

1 - Créer un mail avec plusieurs destinataires
2 - Envoie le mail
3 - Regarder le champ "EnterSendTo"
4 - Comparer le champ "EnterSendTo" de ton mail avec celui que tu créés (les destinataires ne sont pas séparés par des , dans le champ.....)

Si les deux sont identiques, la réponse de Jérôme est la bonne:
Destinataire = doccourant.ReCli_EmailCli
memo.sendTo = Destinataire
sinon suis la réponse de Roubech.


Info dev: Pour renseigner plusieurs destinataires, tu dois lui donner une liste avec plusieurs valeurs et non doccourant.RecCli_Emailcli(0) où tu récupères qu'une valeur.

Dim listeDest() As String
ReDim Preserve listeDest( 0 To 1 ) As String
listeDest(0)= "adresse1"
listeDest(1)= "adresse2"
memo.SendTo=listeDest