Benito Bartolomé

Gracias @tierra_pampa me alegra que también le haya gustado. Es un placer para un humilde aprendiz. Un abrazo. 👍

Gracias @Antoni y @patriciomates. Me alegra que os haya gustado. Un abrazo.

Gracias @Gerson Pineda me alegra que te haya gustado. Es un honor para mí. Aprovecho también para agradecerle a @Abraham Valencia . Saludos 👍 👍

Hola a todos, he estado últimamente trabajando en un nuevo complemento. Es una idea que se me ocurrió viendo videos de este tipo. Aunque tiene un porcentaje mío también cabe destacar que algunas cosas las he adaptado de ideas de otros programadores. -Este complemento es para enviar mails desde excel sin necesidad de abrir el outlook y además se puede configurar los smtp, puerto y ssl. Os dejo enlace al vídeo que he grabado y también os adjunto el archivo. Video mail configurable Seguramente tiene errores los cuales me podéis indicar. No ser muy crueles aun tengo la "L" de novato. Si está muy mal que Sergio quiete el post. Un abrazo a todos. MMail.xlam

Muy bueno Gerson. Dónde está la magia. 😀👌

Hola Gerson; -Efectivamente esa instrucción ya la había contemplado en la macro, no obstante muchas gracias por la suguerencia. Un fuerte abrazo.

Hola @Abraham Valencia creo haberlo conseguido. Ya me dirás si hay algún error. P.D. Ojo que el mail y el pass están incorrectos. Ya sé que te has dado de cuenta 😅. Un abrazo. MMailPruebas.xlsm

Ok @Abraham Valencia gracias por aclararme este tema. Le había dado vueltas y veía que no progresaba. Intentaré hacer lo que me dices y como dices. A ver si consigo. Muchas gracias y un abrazo Abraham. 👍

No te preocupes, cuando puedas. Te lo agradezco mucho. 👍

Hola Abraham, disculpa pero estoy trabajando y no pude responder antes. He probado este cambio y va mejor puedo comprobarque el archivo generado temporalmente contiene todas las hojas, pero al ejecutar el código me genera el error que adjunto. El error generado es porque cierra la macro y me quedo en el libro guardado que se ha generado. Adjunto imágenes: En cambio si comento para que se cierre el libro me salgo de la macro. ¿No se puede configurar para que el libro que cierre sea el temporal? Muchas gracias Abraham y disculpa tanta molestia. Saludos.

Adjunto la macro por si acaso. Buenos días a todos MMailPruebas.xlsm

Buenos días Abraham, he probado lo que me indicas pero me da fallo de extensión. He adjuntado en el post anterior la macro con la corrección que apuntaste. Muchas gracias por tú interés.

Hola a todos; Con el procedimiento que adjunto guardo el libro en una ruta temporal con la hoja activa, después copio esa ruta en un textbox que tengo en un formulario e envío el mail. Hasta aquí todo bien. La consulta es si es factible que se guarde todo el libro con " todas las hojas que tenga". Saludos y muchas gracias como siempre por su colaboración. Sub adjuntarLibro() Dim RutaTemporal As String, vArchivo As Workbook, vArchivoTemp As String Application.ScreenUpdating = False With ActiveWorkbook .ActiveSheet.Copy End With Set vArchivo = ActiveWorkbook vArchivoTemp = vbNullString RutaTemporal = Environ$("temp") & "\" vArchivoTemp = "LIBRO" & Format(Now, "hh-mm-ss") Application.DisplayAlerts = False vArchivo.SaveAs RutaTemporal & vArchivoTemp & ".xlsx" NombreArchivo = RutaTemporal & vArchivoTemp & ".xlsx" MiMail.txtAdjunto=NombreArchivo vArchivo.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Sí, muchas gracias Gerson .

Hola Gerson, me gustó también mucho tú idea. Ya me la he guardado a buen recaudo. Muchas gracias por todo Gerson, te lo agradezco mucho. Un abrazo 👍