Formulaire OUTLOOK : le champ "à"

[guile60]

Bonjour,

Dans le cadre de la réalisation d'un formulaire outlook, je rencontre un problème.

test.oft

Objectif : changer la valeur du champ "à" en fonction de l'action désignée dans la liste déroulante.

Si on choisi de s'abonner, je veux que le mail aille à l'adresse "abonnement@truc.com".

Si on choisi de se desabonner, je veux que le mail aille à l'adresse "desabonnement@truc.com".

Merci d'avance.

[Dolphy35]

Salut,

j'ai une solution en écrivant un peu de code, colle ceci dans l'éditeur VBScript de ton formulaire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Item_Open()
Set ComboBox1= Item.GetInspector.ModifiedFormPages("Message").Controls("ComboBox1")
'Ajoute les deux champs à liste
ComboBox1.Additem "m'abonner"
ComboBox1.Additem "me désabonner"
End Function
 
sub ComboBox1_Click()
Set ComboBox1= Item.GetInspector.ModifiedFormPages("Message").Controls("ComboBox1")
If ComboBox1.Value = "me désabonner" Then
'Si désabonnement chargement du mail
Item.To = "desabonnement@fai.fr"
'Sujet du mail
Item.Subject = "Désabonnement à ..."
Else
'Par défaut si rien de sélectionné
Item.To = "abonnement@fai.fr"
'Sujet du mail
Item.Subject = "Abonnement à ..."
End if
End sub

Dolphy

[guile60]

merci, je vais tester