Jump to content

Benito Bartolomé

Members
  • Posts

    335
  • Joined

  • Last visited

  • Days Won

    4

Benito Bartolomé last won the day on July 21

Benito Bartolomé had the most liked content!

3 Followers

About Benito Bartolomé

Profile information

  • Gender
    Hombre
  • Localización:
    Nigrán
  • Interests
    Naturaleza, deportes y aprender a programar.

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

1,194 profile views

Benito Bartolomé's Achievements

Community Regular

Community Regular (8/14)

  • One Year In
  • Reacting Well
  • First Post
  • Collaborator
  • Conversation Starter

Recent Badges

56

Reputation

  1. Gracias @tierra_pampa me alegra que también le haya gustado. Es un placer para un humilde aprendiz. Un abrazo. 👍
  2. Gracias @Antoni y @patriciomates. Me alegra que os haya gustado. Un abrazo.
  3. Gracias @Gerson Pineda me alegra que te haya gustado. Es un honor para mí. Aprovecho también para agradecerle a @Abraham Valencia . Saludos 👍 👍
  4. 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
  5. Muy bueno Gerson. Dónde está la magia. 😀👌
  6. Hola Gerson; -Efectivamente esa instrucción ya la había contemplado en la macro, no obstante muchas gracias por la suguerencia. Un fuerte abrazo.
  7. 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
  8. 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. 👍
  9. 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.
  10. Adjunto la macro por si acaso. Buenos días a todos MMailPruebas.xlsm
  11. 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.
  12. 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
  13. 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 👍
×
×
  • Create New...

Important Information

Privacy Policy