Macro enviar hoja por mail mailenvelope

[FABIAN SOLER]

Hola buenas tardes,

el dia de hoy vi un foro en donde marco antonio nos adjuntaba una macro muy util sobre enviar una hoja de un libro de excel en el cuerpo del correo.

"CÓDIGO:

Worksheets("Hoja1").Activate

With ActiveSheet.MailEnvelope

.Introduction = "Te adjunto la información que me solicitaste." & vbCrLf

.Item.To = "username@server.com" 'Destinatario

.Item.Subject = "Asunto"

.Item.Send 'Enviamos el e_mail

End With

End Sub"

este codigo me presentaba un problema y es que me arrojaba un error cuando lo corria por segunda vez, me tocabab cerrar el archivo y volverlo a abrir para que funcionara, esto lo corregí guardando el libro una vez finalizada la macro, es decor añadiendo ActiveWorkbook.Save al final del código

ahora me funciona de maravilla pero tengo una duda, la macro me mantiene los formatos de mi hoja de excel, inclusive me pega las imágenes, PERO, no me mantiene el tamaño de el ancho de columnas lo que me genera que estéticamente se vea mal.

que debo hacer para que me mantenga el ancho de columnas igual?

les adjunto como se ve en excel y en el correo

[Antoni]

Una alternativa es enviar el rango como imagen o código HTML.

Si te sirve, me lo comentas y lo busco.

[FABIAN SOLER]

Claro, me serviria.... Muchas gracias

[Antoni]

OK. Intentaré subírtelo mañana.

[Antoni]

En el archivo encontrarás como enviar un correo directamente por Outlook.

El rango de la hoja activa se convierte a imagen antes de enviar el correo.

Recuerda modificar el destinatario antes de probar.

De paso te dejo como adjuntar archivos, enviar copia y copia oculta.

Rango a imagen.rar

[FABIAN SOLER]

excelente muchas gracias.

Disculpa abusar de tu conocimientos, pero hay alguna forma de que el archivo que estoy ejecutando se autoguarde y se comprima en .zip para que este comprimido se adjunte y se envie con la imagen ya puesta en el correo?... todo esto sin que se cierre el actual archivo , ya que este queda en ejecución en un determinado rango horario....

Muchas gracias

[Antoni]

Creo que ya está.

Basado en: Zip file(s) with the default Windows zip program (VBA)

.