Option Explicit
'Mediante este excel codigo vba de ejemplo podemos enviar el libro activo al email
'lo sgte que podrias hacer es crear un boton en el ribbon o un boton en una barra del Excel
'y desde ese botón enviar directamente un libro o una hoja
'Macro enviar el libro activo
Sub Prc_SendTheActiveWorkbook()
ActiveWorkbook.SendMail Recipients:="EXCELVBASAMPLE@Sample.com", Subject:=" EXCELVBASAMPLE "
End Sub
'Enviar solo primera hoja como adjunto
Sub prc_Send_one_Sheet_From_ActiveWorkbook()
ActiveWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:="EXCELVBASAMPLE@Sample.com", Subject:=" SAMPLE EXCEL VBA "
.Close SaveChanges:=False
End With
End Sub
3 comentarios:
I like
Muy buena aportacion es un codigo muy corto y de gran utilidad
Por fin lo que necesitaba, muy práctico y útil. Me sirve incluso para enviar "xlsm".
Publicar un comentario