Envio de correo

Me pasaron el codigo de abajo para una macro, pero tengo
un problema.

Me podrian ayudar?

La macro que tengo esta en un archivo de Excel que tiene 3
hojas, lo probe y funciona muy bien, solo que de esas 3
hojas solo me interesa mandar una.
Por que cuando probe tu codigo, me manda todo el archivo
completo (las 3 hojas), junto con el codigo.

Como puedo enviar solo una hoja?

gracias

Hola TFO:

Tendrás que hacerlo de otro modo, pero funciona.

Sub Mail_workbook_Outlook()
'Este ejemplo envía la última versión guardada del libro

activo.

'Es necesario añadir la refeerncia Microsoft Outlook

Library (herramientas/referencias)

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Asunto del mensaje"
.Body = "Este es el texto del mensaje"
.Attachments.Add ActiveWorkbook.FullName
'Se pueden adjuntar otros ficheros
'.Attachments.Add ("C:\test.txt")
.Display 'tambien se puede usar .Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Si tienes algún problema, coméntalo.

Un saludo.

GS



"TFO" escribió en

el mensaje news:1fd0601c458a6$06243c70$

Hola a todos

Estoy utilizando la funcion SENDMAIL en una macro en

excel

para el envio de reportes.

ActiveWorkbook.SendMail Recipients:=eMail,
Subject:="Llamadas del mes de Abril"

Como le pongo texto al mensaje?, por que cuando se envia
automaticamente solamente se va el attachment y el

subject.

Gracias

.

...


..


.