Bonjour le forum.
Voici mon problème, j'espère que vous pourrez m'aider.
Je souhaite établir un code qui renvoie une chaine de caractère permettant d'envoyer un mail à plusieurs personnes.
Vous trouverez une image en pièce jointe pour mieux visualiser ce qui me donne du fil a retordre.
Voila dans la ListBox2 qui correspond a la ListBox intitulée AE j'ai un certain nombre de type de client: CAC, AVG...
Lorsque je clique sur le bouton Email, je souhaiterai un code qui établisse une liste des mails a envoyer de la forme:
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part ListeDeMail = "Email1@xxx.com, Email2@xxx.com, Email3@xxx.com"
Les E-mails que je souhaite trouver dans la liste sont ceux des personnes dont le "type de AE" se trouve présent dans la ListBox2.
Je ne sais pas comment `m'y prendre pour qu'il ajoute a une chaine de caractère les E-mail correspondant aux personnes ayant dans une table (en bleu) un type qui correspond aux caractères dans une liste.
J'espère avoir été clair mais c'est pas gagné ;-)
Je rajouterai ensuite les destinataires avec le code suivant:
Equivalente à
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part beDoc.SendTo = ListeDeMail
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part beDoc.SendTo = "Email1@xxx.com, Email2@xxx.com, Email3@xxx.com"
Merci de votre aide, Cordialement Bruno
Partager