Enviar datos de una hoja excel por mail

[lphant]

Buenas noches;

Quien me puede echar una mano, estoy intentando hacer una macro que me envié cierta celdas por mail y algo me esta fallando, me abre el correo y lo envía pero vació, no ingresa el contenido, el contenido me lo copia en lo primero que este abierto en ese momento.

Os adjunto las lineas:

On Error Resume Next

Set parte1 = CreateObject("outlook.application")

Set parte2 = parte1.createitem(olmailitem)

parte2.to = "destinatario@blabla.com;destinatario1@blabla.com"

'parte2.CC =

parte2.Subject = "asunto de mensaje"

parte2.display

Application.SendKeys "^v"

parte2.send

Set parte1 = Nothing

Set parte2 = Nothing

On Error GoTo 0

Muchas gracias

Lectura excel.xls

[lphant]

Buenos dias;

Qe puedo tener mal??

Un saludo

[Armando Montes]

Hola, pareces estar pegando sin haber copiado nada.

Hazlo manualmente con la grabadora encendida y obtendras el codigo.

[lphant]

muchas gracias por contestar Armando, lo he intentado así y nada.

un saludo,

[Armando Montes]

Que codigo obtuviste?

[lphant]

grabando no me aparecían datos, al final he encontrado otras 2 formas de hacerlo en las que parece que funcionan.

la que mejor funciona y no me ha fallado el inconveniente que tiene es que si el correo no esta abierto no genera el mail y por supuesto no lo manda, en la segunda opción este o no el correo abierto genera el mail y le manda pero este método le he probado varias veces seguidas y alguna vez falla.