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
'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"
