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 = "[email protected];[email protected]"

'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

Buenos dias;

Qe puedo tener mal??

Un saludo

Hola, pareces estar pegando sin haber copiado nada.

Hazlo manualmente con la grabadora encendida y obtendras el codigo.

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

un saludo,

Que codigo obtuviste?

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.