xltoday.net

EXCEL 2007 TABLAS Y GRAFICOS


Enviar hoja Excel por correo electrónico (Outlook etc.)

Resumen

Este truco sirve para enviar una hoja Excel por mail, utilizando Outlook u otro sistema de correo instalado en el ordenador del usuario.

El código


'Jose Skraviuk 'ayudaexcel@yahoo.com.ar Sub Mail_ActiveSheet() Dim wb As Workbook Dim strdate As String Dim stEmail As String strdate = Format(Now, "dd-mm-yy h-mm-ss") strEmail = "aaa.bbb@ccc.com" Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb   .SaveAs ThisWorkbook.Name & " " & strdate & ".xls"   .SendMail strEmail, "Archivo Adjunto"   .ChangeFileAccess xlReadOnly   Kill .FullName   .Close False End With Application.ScreenUpdating = True End Sub

Configuraciones Hay que indicar la dirección a utilizar.

strEmail = "aaa.bbb@ccc.com"