Discussion :

[guillome29]

Bonjour,

Je réalise un projet, dans lequel je dois envoyer un mail automatique (via Outlook) à un groupe de personnes.

Actuellement je peux m'envoyer des mails auto, car dans le code VBA, j'ai rentré mon adresse brute.

Je pense qu'il est possible de renseigner une variable(A la place de mon adresse mail), qui viendrait elle-même d'une liste déroulante, qui viendrait elle-même d'une table (Faut suivre.. )

En gros,

Je souhaite avoir dans ma liste les champs suivants :

BE
PRODUCTION
QUALITE

(Pour faire simple)
et dans chaque champs, plusieurs adresses mail de personnes à contacter.
Est-ce faisable ? De quoi ai-je besoin ?

En vous remerciant d'avance,

Guillaume

[minot83]

Bonjour,

oui, c'est ce que je fais :
dans un formulaire, l'utilisateur saisit les personnes intéressées par l'enregistrement en cours (maintenance bâtiments chez moi par ex) dans une liste déroulante, qui vient enregistrer dans une table de jointure la ou les relations (maintenance _ personnes)

Puis dans mon code VBA, j'alimente ma variable destinataire par une requête qui va chercher l'adresse mail et fait une concaténation si plusieurs, avec séparation par point-virgule.

http://www.developpez.net/forums/d12...-mail-outlook/

Cordialement

[guillome29]

Je voudrais vous proposer une solution alternative, minot83. Vous me direz si vous êtes d'accord, car je pense que vous avez de la bouteille dans ce domaine

Si à la place d'une liste déroulante, qui me semble trop compliquée pour moi (Ou alors j'ai un poil dans la main ), je met des options ?

Je m'explique :

Je mettrais différentes étiquettes correspondant aux différents groupes de destinataires.

Ainsi, dans mon code VBA, j'aurais juste :

Ma condition suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 if Option1 = True (Correspondant à mon groupe 1 par exemple) Then 
...
MonMessage.To = "AdresseMailDesDestinataires"
...
End If
 
 if Option2 = True (Correspondant à mon groupe 2 par exemple) Then 
...
MonMessage.To = "AdresseMailD'AutresDestinataires"
...
End If

Ca s'annonce certe plus répétitif et lourd pour le fichier, mais je pense que ça peut fonctionner. Qu'en dites-vous ?

Je reste dans une optique qu'il y ait une multitude de façon, en programmation, pour arriver à un résultat identique

Guillaume.