Enviar correos con un rango en el cuerpo del mensaje

Hola, Héctor Miguel. Gracias por la respuesta. Intentaré explicarme mejor. El
código que utilizo es el del Outlook y me funciona perfectamente. Lo que
pretendo es que a lo que tengo ahora en el cuerpo del mensaje añadirle un
rango de una hoja de datos que es la misma que donde obtengo los otros datos
que sí me funcionan. Lo que he hecho es que mediante un RefEdit me seleccione
un rango y quiero que ese rango me lo copie en el cuerpo del mensaje. Lo que
he conseguido es que en la misma macro haga copiar y yo manualmente le hago
pegar luego en el correo. El código utilizado es el siguiente:
Set SelRange = Range(UserForm4.RefEdit1.Value)
SelRange.Select
Selection.Copy

En el cuerpo del mensaje tengo lo siguiente:

Texto_html = "<FONT SIZE=2>" & "<FONT FACE=Arial>" & _
"Se ruega gestionar a la mayor brevedad posible lo indicado en la
siguiente tabla. <br> <br> "

Luego cuando envío el correo pongo:

With OutMail
.To = Recipient
.CC = Recipientcc
.BCC = Recipientbcc
.Subject = Subj
.HTMLBody = Texto_html
.Display
End With

Por tanto, lo que pretendo es que el SelRange creado me lo inserte en el
Texto_html a continuación de lo que puse anteriorimente.. Gracias y espero
haber despejado tus dudas.

hola, Tomás !

... pretendo... que a lo que tengo ahora en el cuerpo del mensaje a#adirle un rango de... donde obtengo los otros datos
... mediante un RefEdit me seleccione un rango y... lo copie en el cuerpo del mensaje [...]

en la pagina de Ron de Bruin:
-> Mail the selection in the body:
-> http://www.rondebruin.nl/mail/folder3/mail4.htm
hay un ejemplo que es [creo] precisamente lo que estas buscando :))
se requiere de una funcion 'auxiliar' [RangetoHTML] y que es utilizada por los ejemplos en la misma

comentas si te resulta poco claro el 'como' insertarla a tu instruccion -> .HTMLBody = ???
saludos,
hector.

Hola de nuevo. He estado analizando el ejemplo y haciendo pruebas he
conseguido que más o menos funcione. Lo único que no logro a entender es
donde tengo que poner que el rango a copiar es el que previamente he
seleccionado en el RefEdit. ¿como lo puedo soucionar? Gracias nuevamente.

hola, Tomás !

... no logro a entender... donde tengo que poner que el rango a copiar es el que previamente he seleccionado en el RefEdit...

de tu mensaje anterior...

1) deja [solo] las dos primera lineas [expuestas] de tu SelRange...
Set SelRange = Range(UserForm4.RefEdit1.Value)
SelRange.Select

2) deja la 'construccion' del texto html para el body...
Texto_html = "<FONT SIZE=2>" & "<FONT FACE=Arial>" & _
"Se ruega gestionar a la mayor brevedad posible lo indicado en la siguiente tabla. <br> <br> "

3) al momento de 'pasarle' los parametros a tu correo... agrega la funcion 'auxiliar' en la parte que dice...
.HTMLBody = Texto_html & RangetoHTML

solo toma en cuenta que la funcion 'RangetoHTML' se esta basando EN el rango seleccionado 'actualmente' -?-
o no se si vayas a preferir el uso de la otra funcion auxiliar: 'RangetoHTML2' -??-

comentas [si hubiera] algun detalle que estemos 'omitiendo' ?
saludos,
hector.