Enviar hoja Excel por correo electrónico (Outlook etc.)
José Skraviuk | 1/11/2005
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 {at} yahoo.com.ar Sub Mail_ActiveSheet() Dim wb As Workbook Dim strdate As String Dim stEmail As String Application.ScreenUpdating = False strdate = Format(Now, "dd-mm-yy h-mm-ss") strEmail = "aaa.bbb@ccc.com" 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 email a emplear.
strEmail = "aaa.bbb@ccc.com"
RSS