Visual Basic para Aplicaciones - Macro para Outlook

Life is soft - evento anual de software empresarial
 
Vista:

Macro para Outlook

Publicado por Enrique R (6 intervenciones) el 10/04/2006 17:49:28
Hola:

Necesito mandar una hoja de excel por correo electronico . pero necesito que esta se mande como message body

y no como attachment

Tengo el siguiente codigo, pero si ejecuto de esta forma la macro. me manda todo el libro como archivo adjunto........... y yo lo que necesito es que me mande solo la hoja pero no como attach ............ quiero que me la mande como message body

espero y me puedan ayudar

Saludos

Desde Chihuahua, Mexico

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 = "juan_perez@mail.com"
Application.ScreenUpdating = False

ActiveSheet.Copy

Set wb = ActiveWorkbook

With wb
.SaveAs ThisWorkbook.Name & " " & strdate & ".xls"
.SendMail strEmail, "Shit Report1"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With

Application.ScreenUpdating = True
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder