Enviar correos con un rango en el cuerpo del mensaje

07/05/2006 - 00:32 por Tomás | Informe spam
Saludos a todos: Le cuento mi problema. Quiero enviar un correo electrónico a
través de macros de excel. Lo tengo hecho y funciona todo excepto una cosa
que me trae por la calle de la amargura. En el cuerpo del mensaje quiero
enviar unas frases y en medio de ellas una selección de un rango de una hoja.
El problema es que no sé hacerlo. El rango lo tengo definido mediante un
RefEdit pero no sé como hacer las instrucciones precisas. He mirado en la
página de rondebruin pero solo veo como mandar únicamente un rango y no un
rango con más cosas. Espero haberme explicado con claridad. Gracias a todos
 

Leer las respuestas

#1 Tomás
07/05/2006 - 22:50 | Informe spam
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.

Preguntas similares