Valeur liste déroulante Word dans outlook

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