macro mail avec Microsoft Outlook

[chinel]

Salut tout le monde !

j'ai ceci comme code :


Private Sub CommandButton1_Click()

' Is working in Office 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strbody = "Salut Manu, tu vas bien ?" & vbNewLine & vbNewLine & _
TexBox1
On Error Resume Next
With OutMail
.To = "manu.dejong@skynet.be"
.CC = ""
.BCC = ""
.Subject = "Peux-tu m'aider ? (HelpRequest)"
.Body = strbody
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

pas possible de mettre du texte dans la textbox et que ce soit le corp du texte à envoyer
strbody = "Salut Manu, tu vas bien ?" je voudrais que soit le titre (entête)

merci de votre aide !!!