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.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Saludos Abrahan estos son los errores al abrir el archivo,me dices si te va de algo o aun asi necesitas el codigo xml que uso para cargar la ribbon aunque como te comente me funciona muy bien en las maquinas donde no hice ninguna desinstalacion,lo que indica que el codigo xml no es el problema en si,por eso creo que se esta dndo una incompatibilidad por haber tenido antes office 2010,que opinas mi amigo
    • buenas tardes antes que nada agradecer por el tiempo que se toman en apoyarnos con nuestras dudas bueno mi consulta es la siguiente tengo una tabla y quisiera que al momento de escribir los datos en la celdas de arriba (algo como un buscador me filtre la información que estoy buscando) les dejo un ejemplo para que se pueda entender mejor espero puedan ayudarme muchas gracias. ejemplo.xlsx
    • ¡Hola a ambos! @joselica:  Quizá lo que te muestro en el adjunto te pone en perspectiva para lo que estás pidiendo.  En lo que adjunto, debes tener en cuenta que los cambios debes hacerlos en el rango manual (a la derecha), para que éste se vea reflejado en la parte izquierda. De igual forma, ten en cuenta la columna "orden", la cual determina el orden en ese día con respecto a los turnos.  ¡Comentas! ¡Bendiciones! Turnos.xlsx
    • Hola, les explico la problemática que tengo con una pequeña macro, esta Macro la ocupo para buscar y remplazar, me funciona muy bien con una condicionante, pero estoy intentando colocar 2 condicionantes y ahí es donde estoy atorado. Set h1 = Sheets("BD SALIDAS") Set b = h1.Range("A:A").Find(REMISION) If Not b Is Nothing Then End If Set d = h1.Range("C:C").Find(LOTE) If Not d Is Nothing Then h1.Cells(d.Row, "F") = (SALIDASLT) End If lo que busco es que la Macro encuentre el LOTE y que coincida con la REMISIÓN para poder sustituir el dato del TEXTBOX a la celda. agradezco mucho su ayuda.
    • Buenas tardes. Por favor necesito su ayuda para poder resolver lo siguiente: Necesitamos que busque la referencia de la Hoja UNO Celda F3 en otra hoja dos y concatenen todas las lineas D2_C2_G2 ambace a la referencia de la hoja uno Quedaría así. Gracias. Prueba..xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy