Como pegar el contenido de un textbox en body de mail?

Iñigo: Crea una variable Publica, que sea por Ejemplo   >> Public ElTextoDelMail As String

La cargas con

ElTextoDelMail = Me.Texto1 & Me.Texto2 .....

Sería conveniente prevenir Nulos usando >> Nz(Me.Texto1,"")...

Luego en el Cuerpo del mensaje:

.Body = "El cliente acepta, hay que generar NÚMERO OT" & ElTextoDelMail & "Lo que tu quieras"

Mis saludos >> Jacinto

He añadido lo que me has dicho pero no soy capaz a ponerlo bien para que me coja el código.

Pero me sale error de sintaxis en la línea .body, ya me lo imaginaba pero es que no se como ponerlo. Gracias

Private Sub ACEPTACION_Click()

    Dim nexpediente As String

    Nexpediente = Me.EXPEDIENTE.Value

    Dim mailA As String

    mailA = Me.EMAIL.Value

    Dim Olk As Outlook.Application

    Set Olk = CreateObject("Outlook.Application")

        Dim OlkMsg As Outlook.MailItem

    Set OlkMsg = Olk.CreateItem(olMailItem)

    With OlkMsg

        Dim OlkDestinatario As Outlook.Recipient

        Set OlkDestinatario = .Recipients.Add(mailA)

        OlkDestinatario.Type = olTo

        .Subject = "GENERAR NÚMERO "

        .Body = "El cliente acepta, hay que generar NÚMERO OT"  & nexpediente &

        .Display

    End With

     Set Olk = Nothing

    Set OlkMsg = Nothing

    Set OlkDestinatario = Nothing

End Sub

¿Son necesarias tantas líneas de código? Puedes poner simplemente

DoCmd.SendObject acSendNoObject, , "RichTexformat(*.rtf)", "'" & Me.Email & "'", , , "Estimado amigo  " & Me.NombreContacto & " , De acuerdo con lo que hablamos, o pagas o te corto los huevos", "" & Me.pais & "" & " " & "" & Me.NombreCompañía & "", True

Lo de Estimado amigo... contacto es el asunto del mensaje

Lo de Me. Pais y me. Nombrecompañia son cuadros de texto el formulario