Valeur liste déroulante Word dans outlook

Résolu/Fermé
Evangeline72
Messages postés
2
Date d'inscription
mardi 24 avril 2018
Statut
Membre
Dernière intervention
25 avril 2018
- 25 avril 2018 à 00:07
Evangeline72
Messages postés
2
Date d'inscription
mardi 24 avril 2018
Statut
Membre
Dernière intervention
25 avril 2018
- 25 avril 2018 à 15:07
Bonjour, dans un formulaire créé sous Word 2013, j'ai inséré un bouton qui génère un courriel automatique avec Outlook en y attachant ledit formulaire. Toutefois, j'aimerais bien que l'objet de mon courriel intègre des valeurs de 2 boites de texte et d'un menu déroulant. Voici ma macro:

Sub SendButton1_Click()
' Ajouter la référence "Microsoft Outlook x.x Objet Librairie"
Dim mailApp As Outlook.Application
Dim email As Mailitem

Set mailApp = New Outlook.Application
Set email = mailApp.createitem(olmailitem)

ActiveDocument.SaveAs ("request for service")
With email
.to = "<PSREappraisal-evaluationSPPI@cmhc-schl.gc.ca>"
.Subject = "<objet du message>"
.Body = "<corps du message>"
.attachments.Add ActiveDocument.FullName
.Display
'.Send
End With
End Sub

Il faudrait donc que l'objet du courriel se lise par exemple: 123 de la bulle, ville nouvelle, France

Merci

1 réponse

cs_Le Pivert
Messages postés
7803
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2022
714
25 avril 2018 à 10:46
Bonjour,

comme ceci:

.Body = TextBox1.Value  & ", " & TextBox2.Value & ", " & ComboBox1.Value  'adapter le nom des controls

0
Evangeline72
Messages postés
2
Date d'inscription
mardi 24 avril 2018
Statut
Membre
Dernière intervention
25 avril 2018

25 avril 2018 à 15:07
En fait c'est pour l'objet alors j'ai fait la modification. Merci beaucoup !
0