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

.

...


..


.

Con excel xp o superior es muy fácil.
Menu archivo-enviar a-destinatario de correo.
Alli puedes seleccionar si envias todo el libro, una hoja

un rango de una hoja.
Si envias el libro, lo envia como datos adjuntos, pero si
envías una hoja o un rango lo envía como parte del

Mira en la ayuda 'enviar 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

hojas, lo probe y funciona muy bien, solo que de esas 3
hojas solo me interesa mandar una.
Por que cuando probe el 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

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

automaticamente solamente se va el attachment y el

subject.

Gracias

.

...


..


.

.

Muchas gracias por tu ayuda.
Solo que yo lo necesito en codigo.

Con excel xp o superior es muy fácil.
Menu archivo-enviar a-destinatario de correo.
Alli puedes seleccionar si envias todo el libro, una hoja

o

un rango de una hoja.
Si envias el libro, lo envia como datos adjuntos, pero si
envías una hoja o un rango lo envía como parte del

mensaje.

Mira en la ayuda 'enviar 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 el 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

.

...


..


.

.

.

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

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

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

automaticamente solamente se va el attachment y el

subject.

Gracias

.

...


..


.