Correo automatico con outlook pero sin llegar a enviarlo
Publicado por Antonio (30 intervenciones) el 03/11/2015 13:27:38
Hola buenas tardes:
Estoy haciendo una macro en excel que me pretende abrir outlook y enviar un correo.
Tenia hecha la macro y el correo completaba todos los campos (asunto, destinatario, copia, adjuntos y cuerpo) perfectamente:
Sin embargo ahora, debido a que el cuerpo del correo no es el "fijo", sino que tengo que escribirlo yo a mano, quiero que haga lo mismo la macro pero que no se envie, si no que me prepare el correo con todos los campos y adjuntos completos, pero sin llegar a enviarse, para que asi yo pueda escribir el cuerpo y luego solo pulse "enviar".
No se como hacerlo, por que quito la ultima orden ".Send" y el correo no se envia pero no lo encuentro abierto para poder escribir sobre el cuerpo del correo. Es decir a simple vista es como si la macro no hace nada cuando le quito el ".Send".
¿Puede ser un problema de que hay una propiedad de MItem que haga que el correo este "no visible"? He probado con la propiedad .Visible, .Open, y cosas del estilo pero no consigo resolver el problema.
¿Podriais por favor, echarme una mano?
Muchas gracias por adelantado!
Estoy haciendo una macro en excel que me pretende abrir outlook y enviar un correo.
Tenia hecha la macro y el correo completaba todos los campos (asunto, destinatario, copia, adjuntos y cuerpo) perfectamente:
1
2
3
4
5
6
7
8
9
10
Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Destinatario
.CC = copia
.Subject = Asunto
.Body = Mensaje
.Attachments.Add (Adjunto)
.SendEnd With
Sin embargo ahora, debido a que el cuerpo del correo no es el "fijo", sino que tengo que escribirlo yo a mano, quiero que haga lo mismo la macro pero que no se envie, si no que me prepare el correo con todos los campos y adjuntos completos, pero sin llegar a enviarse, para que asi yo pueda escribir el cuerpo y luego solo pulse "enviar".
No se como hacerlo, por que quito la ultima orden ".Send" y el correo no se envia pero no lo encuentro abierto para poder escribir sobre el cuerpo del correo. Es decir a simple vista es como si la macro no hace nada cuando le quito el ".Send".
¿Puede ser un problema de que hay una propiedad de MItem que haga que el correo este "no visible"? He probado con la propiedad .Visible, .Open, y cosas del estilo pero no consigo resolver el problema.
¿Podriais por favor, echarme una mano?
Muchas gracias por adelantado!
Valora esta pregunta
0
