Jump to content
CHEWACA

ENVIAR EMAIL CON LIBRO ADJUNTO

Recommended Posts

Hola Muy buenas.

Estoy intentando hacer una macro que envia el propio libro adjunto por email. La idea es que en el proceso de envio se cambie el nombre del libro segun un dato de una celda del propio libro. No me funciona y estoy perdido, he estado mirando por distintos foros y creo que el código esta bien escrito, Agradezco vuestra ayuda.

 

Muchas gracias

PLANTILLA ENVIAR EMAIL LIBRO ADJUNTO.xlsm

Share this post


Link to post
Share on other sites

Hola

En realidad no, no está bien. 

Cambia esto así:

ActiveWorkbook.SaveAs RutaCompleta

Borra estos:

.Display    'o bien usaremos .Send para enviar directamente...
 Stop

Y borra esto también o colócalo al final de todo, no en donde está ahora:

Kill RutaCompleta

Y por si acaso es una mala costumbre usar On Error Resume Next

Abraham Valencia

PD: No he revisado la parte del pdf por si acaso

Share this post


Link to post
Share on other sites

Abraham... muchisimas gracias, funciona a la perfeccion. Tenia la snsación de que era algo absurdo y no veia donde estaba el error. En cuanto a Kill RutaCompleta.... no entiendo porque me edad error

image.png.3dc42cee91d79ab92c128c978c925200.png

Si no lo pongo y vuelvo a darle a enviar me dice que ya existe el archivo:

image.thumb.png.2663d66f824ceae53d38f5a751d6e770.png

Esto se podria evitar de alguna forma?

 

El codigo del pdf funciona bien.

Gracias por tu ayuda

 

Share this post


Link to post
Share on other sites

"Destruir" el archivo desde el que se ejecuta el código, tiene sus dilemas. Cámbialo así:

Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill RutaCompleta

Saludos

Abraham Valencia

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy