SendMail

Hola:

¿Es posible realizar esto pero utilizando Outlook Express en lugar de
Microsoft Outlook?
¿Cómo sería?

Agradezco desde ya la ayuda.

Saludos

Marcelo




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

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

Hola Marcelo:

Prueba con esto:

ActiveWorkbook.SendMail "", "Este es el asunto"

Un saludo.

GS

"Marcelo" escribió en el mensaje
news:%

Hola:

¿Es posible realizar esto pero utilizando Outlook Express en lugar de
Microsoft Outlook?
¿Cómo sería?

Agradezco desde ya la ayuda.

Saludos

Marcelo




"Gregorio Suarez" escribió en el mensaje
news:%
> 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
> > >>
> > >
> > >
> > >.
> > >
> >
> >
>
>

Estimado Gregorio:

Gracias, pero loque busco es poder enviar un archivo
cualquiera ya gurdado en el ordenador y poder colocar
además los destinatarios, el asunto y el cuerpo del
mensaje.
La solución que habían propuesto funciona perfectamente
con Microsoft Outlook, pero yo en mi trabajo utilizo
Outlook express y ese es el programa para el cual necesito
la solución.

¿Hay forma de hacerlo?

Agradezco cualquier ayuda


Saludos,

Marcelo

Hola Marcelo:

Prueba con esto:

ActiveWorkbook.SendMail "", "Este es el

asunto"

Un saludo.

GS

"Marcelo" escribió en el mensaje
news:%

Hola:

¿Es posible realizar esto pero utilizando Outlook

Express en lugar de

Microsoft Outlook?
¿Cómo sería?

Agradezco desde ya la ayuda.

Saludos

Marcelo




"Gregorio Suarez" escribió en el

mensaje

news:%
> 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
> > >>
> > >
> > >
> > >.
> > >
> >
> >
>
>

.

Marcelo, hacerlo con Outlook Express limita bastante, de todas formas echa
un vistazo a esta url a ver si te sirve de ayuda.

http://www.rondebruin.nl/mail/folder1/mail1.htm

Prueba con el example2 y mira a ver si cambiando el valor de la variable
wb1 puedes solucionarlo

Intenta probarlo hoy, ya que estamos en agosto...vacaciones... ya sabes, lo
mismo no doy señales de vida en un tiempo.

Hasta luego Marcelo.

GS



"Marcelo" escribió en el mensaje
news:017901c47b0b$153cf670$
Estimado Gregorio:

Gracias, pero loque busco es poder enviar un archivo
cualquiera ya gurdado en el ordenador y poder colocar
además los destinatarios, el asunto y el cuerpo del
mensaje.
La solución que habían propuesto funciona perfectamente
con Microsoft Outlook, pero yo en mi trabajo utilizo
Outlook express y ese es el programa para el cual necesito
la solución.

¿Hay forma de hacerlo?

Agradezco cualquier ayuda


Saludos,

Marcelo

Hola Marcelo:

Prueba con esto:

ActiveWorkbook.SendMail "", "Este es el

asunto"

Un saludo.

GS

"Marcelo" escribió en el mensaje
news:%

Hola:

¿Es posible realizar esto pero utilizando Outlook

Express en lugar de

Microsoft Outlook?
¿Cómo sería?

Agradezco desde ya la ayuda.

Saludos

Marcelo




"Gregorio Suarez" escribió en el

mensaje

news:%
> 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
> > >>
> > >
> > >
> > >.
> > >
> >
> >
>
>

.

Gracias Gregorio.
He intentado hacerlo y adaptarlo pero no lo logro.
El problema es que lo que necesito enviar por mail es un
archio.pdf y no un uno de exel.

Voy a seguir intentando, de todos modos agradezco
cualquier ayuda ya que lo necesito con un poco de urgencia.


Saludos,

Marcelo

Marcelo, hacerlo con Outlook Express limita bastante, de

todas formas echa

un vistazo a esta url a ver si te sirve de ayuda.

http://www.rondebruin.nl/mail/folder1/mail1.htm

Prueba con el example2 y mira a ver si cambiando el valor

de la variable

wb1 puedes solucionarlo

Intenta probarlo hoy, ya que estamos en

agosto...vacaciones... ya sabes, lo

mismo no doy señales de vida en un tiempo.

Hasta luego Marcelo.

GS



"Marcelo" escribió

en el mensaje

news:017901c47b0b$153cf670$
Estimado Gregorio:

Gracias, pero loque busco es poder enviar un archivo
cualquiera ya gurdado en el ordenador y poder colocar
además los destinatarios, el asunto y el cuerpo del
mensaje.
La solución que habían propuesto funciona perfectamente
con Microsoft Outlook, pero yo en mi trabajo utilizo
Outlook express y ese es el programa para el cual necesito
la solución.

¿Hay forma de hacerlo?

Agradezco cualquier ayuda


Saludos,

Marcelo

Hola Marcelo:

Prueba con esto:

ActiveWorkbook.SendMail "", "Este es el

asunto"

Un saludo.

GS

"Marcelo" escribió en el mensaje
news:%

Hola:

¿Es posible realizar esto pero utilizando Outlook

Express en lugar de

Microsoft Outlook?
¿Cómo sería?

Agradezco desde ya la ayuda.

Saludos

Marcelo




"Gregorio Suarez" escribió en el

mensaje

news:%
> 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
> > >>
> > >
> > >
> > >.
> > >
> >
> >
>
>

.

.