Discussion :

[Freeboubs]

Bonjour à tous,

Je viens de faire un formulaire avec un champ texte, la message box classic d'outlook et 3 boutons (OptionButton).

Le formulaire marche très bien mais j'ai une demande particulière.
Dans un client outlook pas de prob pour visionner les valeurs du formulaire mais j'ai créé ce formulaire afin d'aider les utilisateurs de la boite ou je bosse à rapporter les problèmes à notre helpdesk qui ne parle pas français.

Bref, la contrainte c'est que le système qui génère un call ticket ne copie que le champ "sujet" et le champ message classic d'un mail avec outlook.

Je voudrais donc à l'aide d'une macro copier les valeurs des différents champs txt et du formulaire dans le message.

J'ai vu sur le forum qu'il y avait moyen de récupérer les informations d'un formulaire mais j'avoue que je ne trouve pas exactement comment rassembler les champs dans le message.

Pouvez-vous m'aider?

Merci d'avance.

[Dolphy35]

Salut,

voici un exemple, prenons par exemple une zone de saisie et un bouton depuis l'onglet message. Le code suivant affiche dans le corps du message la valeur de la zone de saisie lors du click sur le bouton :

Code vbs :

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

1
2
3
4
sub CommandButton1_Click()
Set oPage = Item.GetInspector.ModifiedFormPages
Item.Body = oPage("Message").Controls("TextBox1")
end sub

Dolphy

[Freeboubs]

Salut et merci pour ton aide c'est exactement ce que je cherchais.

J'ai cependant 2 questions:

1. Est il possible d'utiliser le bouton "envoyer" de l'interface d'outlook à la place du commandbutton?
2. Si j'ai une ComboBox ou un OptionButton, j'ai essayé ce code pour repdrendre la valeur mais j'ai un message d'erreur.

Code :

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

1
2
3
4
sub valider_Click()
Set oPage = Item.GetInspector.ModifiedFormPages
Item.Body = oPage("Message").Controls("TextBox1").Controls("ComboBox1").Controls("OptionButton1")
end sub

Merci encore pour ton aide.

[Dolphy35]

Salut,

tu ne peux mettre tous les contrôles à suivre, il te faut les ajouter dans le body un à un, voici un exemple qui ajoute dans le corps du message la valeur de 2 zone de texte lors de l'envoi du message :

Code vbs :

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

1
2
3
4
5
Sub Item_Send()
Set oPage = Item.GetInspector.ModifiedFormPages
Item.body = oPage("Message").Controls("TextBox1")
Item.body = Item.body & vbcrlf & oPage("Message").Controls("TextBox2")
end sub

Dolphy