Text Box to Email Body

I am trying to copy the contents of a textbox to the body of my email The VBA below works except that part. The issue is I need to pull the content (it is a sentance) from textbox 3 in my excel sheet, but it is currently writting textbox 3 instead of pulling its content. Thanks for help.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Without the quotation marks it comes back as:

Run-time error '424':

Object Required

Changing to ".body = Worksheets("Sheet1").OLEObjects("TextBox3").Object.Value" gets me this error:
Run-time error '1004':
Unable to get the OBLEObjects property of the worksheet class

Changing to ".body = Sheets("Sheet1").Range("TextBox3").Text" gets me the '424' error again:

The macro part I am trying to run is attahced and how I am trying to make it look if that helps.

Thank yall so much for helping me with this.

I just tried switiching to:

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail

and it came back Compile error:
User-defined type not defined

Hm, you do have preferences set up correctly right (with outlook library activated to get outlook object) tools - preferences - ...?

Hi mattress58 and fellow posters,

After opening the workbook that mattress58 posted, I think I found a solution.
There seemed to be two problems:
1. mattress58 was referencing 'TextBox3', when the real name was 'TextBox 3' (with a SPACE).
2. 'TextBox 3' is a 'Shape' in 'Sheet1' (the active sheet) of the workbook.

I do not have access to 'Outlook', but I tested as much of the following solution as I could. From my research, it appears that the '.body' line needs text. I am not a 'Shapes' expert, but I was able to get the following code to work.

Please Login or Register  to view this content.

Implement function 'GetTextBox3Value()' as follows:

Please Login or Register  to view this content.

Thank you helping. Am I replacing:
Body = "TextBox3.Text"
with
.body = GetTextBox3Value

This allows the macro to complete without errors but doesnt bring the data in the shape to the email.
Do I need intergrate the code above into my code?

Sorry if these are dumb questions, I am trying to make my work a ton easier and I am not experienced with this.

Thanks for help

Leith....... YOU ARE THE MANNNNN!!!!!!!!!...... Thanks everyone for the help, that worked.