attach contents of textbox in userform as body of email vba

Hi all,
I have seen many threads on line, but could not get a definative solution.
Following code will activate outlook.
I am trying following:
To.... address will be fetched from textbox29
Main body text will be fetched from textbox14

Very challanging.
So far so good this is what I have done.
Please help
Kind regards

Please Login or Register  to view this content.

Try This

Please Login or Register  to view this content.

Hi Norie & Yeshagarwal,
Thanks for your suggestions.
The combunations iof both suggestions have worked well.
Well done to everyone.
Norie's suggestion of removing worksheets("Sheet1") and removing userform2 has done a trick.
Final code is as follows which works well.


Private Sub commandbutton4_click()

Please Login or Register  to view this content.

Thanks
Kind regards

Hi again,
Last question before I close this thread as solved.

How do I add more input from more text boxes

Please Login or Register  to view this content.

Thanks again
Kind regards

Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String

Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)

'set Importance
aEmail.Importance = 2
'Set Subject
aEmail.Subject = "Trying Hard"
'Set Body for mail
aEmail.Body = TextBox14.Text & vbnewline & "your text" & vbnewline & textbox7.text
'I want to add a line below text from textbox6, 7, 8, 9, 10.
'and last line From " Me" something like that
'Set Recipient
aEmail.To = TextBox31.Text

'Send Mail
aEmail.Display

End Sub

Wonderful Sir,
Great. It works well.
Thanks again for your kind help
Best regards

Wonderful Sir,
Great. It works well.
Thanks again for your kind help
Best regards