SendMail

hola, TFO !

... SENDMAIL en una macro ... para el envio de reportes. Como le pongo texto al mensaje? [...]

[hasta donde se] 'SendMail' NO tiene 'soporte' para el 'cuerpo del mensaje' [body] :((
algunas otras 'alternativas' para enviar correos [dependiendo de 'que tanto' quieras 'controlar']...
http://j-walk.com/ss/excel/tips/tip86.htm
http://www.rondebruin.nl/sendmail.htm
http://www.erlandsendata.no/english...roloutlook

saludos,
hector.

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

Perdona que hasta ahora te de las gracias, pero no habia
podido implantarlo.
Gracias.

Solo un punto mas:

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?

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

.

Hola TFO:

Ya no me acordaba de ti... ;-)

Le voy a echar un vistazo y te digo algo, posiblemente modificando:

.Attachments.Add ActiveWorkbook.FullName

Se solucionará.

Un saludo.

GS




"TFO" escribió en el mensaje
news:097b01c4759b$30952d40$
Perdona que hasta ahora te de las gracias, pero no habia
podido implantarlo.
Gracias.

Solo un punto mas:

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?

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

.

Hola TFO:

Este método envía por email el archivo que previamente ha de estar guardado
fisicamente en el disco duro, por lo cual tendrías que crear algo de código
para que te guardase la hoja activa en un único archivo y después llamara al
procedimiento Mail_workbook_Outlook

Eso es lo que veo más sencillo.

Un saludo.

GS

"Gregorio Suarez" escribió en el mensaje
news:%232e8V%

Hola TFO:

Ya no me acordaba de ti... ;-)

Le voy a echar un vistazo y te digo algo, posiblemente modificando:

.Attachments.Add ActiveWorkbook.FullName

Se solucionará.

Un saludo.

GS




"TFO" escribió en el mensaje
news:097b01c4759b$30952d40$
Perdona que hasta ahora te de las gracias, pero no habia
podido implantarlo.
Gracias.

Solo un punto mas:

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?


>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
>>
>
>
>.
>