Pegar rango en cuerpo de mail

Prueba con esta macro

Sub correo()
'***Macro Para enviar correos
'Por.Dam
    Set dam1 = CreateObject("outlook.application")
    Set dam2 = dam1.createitem(olmailitem)
    dam2.to = Range("B2") 'Destinatarios
    dam2.Subject = Range("C2") '"Asunto"
    dam2.body = "cuerpo del mensaje"
    Range("E2:H2").Copy
    dam2.display 'El correo se muestra
    DoEvents
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys "^{END}", True
    SendKeys "^v", True
    DoEvents
    Dam2. Send
End Sub

En esta línea de la macro
Application. Wait Now + TimeValue("00:00:01")
Le estoy diciendo que se espere un segundo para que el correo se cargue y después le pegue las celdas, a mí me funciona bien con un segundo, pero si no te funciona, incrementa a 3 segundos, te debe quedar así.
Application. Wait Now + TimeValue("00:00:03")

Saludos. DAM
No olvides finalizar la pregunta.

hola lo probé y no funcionó. Tampoco poniendo 3 segundos, incluso me da tiempo a ver la pantalla del outlook pero no veo que haga el pegado.

tiene pinta que el cursos no entra en el cuerpo para hacer el pegado. Debería parpadear dentro del body para hacer el control V ¿verdad?

Ponle 7 segundos

¿Qué versión de excel tienes?

tampoco funciona con 7 segundos

tengo excel 2010

Mmmm, yo tengo 2007 y funciona bien.

Haz lo siguiente

Cambia esta línea en la macro

Dam2. Send

Por esta

Dam2. Display

Ejecuta nuevamente la macro. Cuando tengas el correo en pantalla, dime en dónde está el cursos, dale click al cuerpo del mensaje y presiona Control + V, para pegar. Dime lo que sucede.

Saludos. DAM

al ejecutar la macro como dices veo la página del mail, el cursor no está en ningún sitio pero a los pocos segundos aparece el cursor en el body y se produce el pegado de los datos

Revisa que tengas datos en B2 y C2 y también en E2 a H2

Cambia la macro por esta

Sub correo()
'***Macro Para enviar correos
'Por.Dam
    Set dam1 = CreateObject("outlook.application")
    Set dam2 = dam1.createitem(olmailitem)
    dam2.to = Range("B2") 'Destinatarios
    dam2.Subject = Range("C2") '"Asunto"
    dam2.body = "cuerpo del mensaje"
    Range("E2:H2").Copy
    dam2.display 'El correo se muestra
    DoEvents
    Application.Wait Now + TimeValue("00:00:10")
    SendKeys "^{END}", True
    SendKeys "^v", True
    DoEvents
    Dam2. Display
    DoEvents
    Dam2. Send
End Sub

nada.... tampoco.

¿qué puede estar pasando?

en verdad lo necesito

¿Pero dices que hace el pegado después de unos segundos?

¿Puedes probar en un equipo que tenga versión 2007?

imposible, no tengo otro equipo con 2007

el caso es que con display funciona pero no es operativo, ya que entonces tengo que enviar el correo voluntariamente.

debe funcionar con send

Abajo del segundo display vuelve a poner esta línea

Application. Wait Now + TimeValue("00:00:05")

Qué tienes abierto, ¿solamente excel y outlook? Cierra todo y deja excel y outlook.