Excel a outlook

Mira por aqui:

http://www.rondebruin.nl/sendmail.htm

Abraham

La gente de sistemas de la empresa para que trabajo, bloque toda pagina que
no conoce y me es imposible acesar a esta pagina, agradeceria una solucion
directa aqui.

Gracias abraham, pero no me es posible visitar la pagina y en este momento
no cuento con internet en mi hogar.

"Abraham" escribió:

Mira por aqui:

http://www.rondebruin.nl/sendmail.htm

Abraham

hola, (...) ?

La gente de sistemas de la empresa para que trabajo, bloque toda pagina que no conoce
y me es imposible acesar a esta pagina, agradeceria una solucion directa aqui...

es probable que el *tipo* de letra del mobil de tu director sea distinto del que usas en OL -?-
el siguiente es un ejemplo 'adaptado' de la MS-KB
[por si los de sistemas son de *corta vision* en cuanto al alcance de aprovechar informaciones de la web] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Enviar_Rango()
' seleccionamos el rango de celdas en la hoja activa.
ActiveSheet.Range("a1:b5").Select
' mostramos el *sobre* de OL del libro activo.
ActiveWorkbook.EnvelopeVisible = True
' establecemos algunas opciones como asunto, etc.
With ActiveSheet.MailEnvelope
.Introduction = "Jefecito... esta es la informacion :))"
.Item.To = "aqui_la_direccion_de_correo"
.Item.Subject = "Linea del asunto"
.Item.Send
End With
End Sub

1) el codigo anterior [al igual que el metodo 'SendMail'] lo [unico] que 'hace' es...
'depositar' el envio en la bandeja de salida del sistema de correo instalado en la pc ;)
2) si [outlook ?] se esta 'ejecutando'... el envio es 'de inmediato'... en caso contrario... 'hasta' que lo abras :-(
[con las 'consabidas' advertencias -de outlook- de que 'alguien esta intentando enviar...'] :))
3) obtienes el mismo resultado si [desde cualquier aplicacion de office] usas el menu/comando/boton...
-> archivo / enviar a... -> destinatario de correo [o sea]... el -> ActiveWorkbook.EnvelopeVisible = True ;)
desde donde podras 'personalizar' asunto, comentario, decidir si envias la hoja o un rango seleccionado, etc.
solo se requiere que outlook y office sean de la misma version_numero [por si las dudas] :))

Gracias HM,

Solo una molestia mas, dentro de la macro se establece como fijo el rango
"A1:B5", existe algun codigo donde lo que selecione con el raton (sombrearlo)
sea aquello que se envie, por que como les comentaba las columnas son fijas
pero las filas son las que cambia constantemente.



"Héctor Miguel" escribió:

hola, (...) ?

> La gente de sistemas de la empresa para que trabajo, bloque toda pagina que no conoce
> y me es imposible acesar a esta pagina, agradeceria una solucion directa aqui...

es probable que el *tipo* de letra del mobil de tu director sea distinto del que usas en OL -?-
el siguiente es un ejemplo 'adaptado' de la MS-KB
[por si los de sistemas son de *corta vision* en cuanto al alcance de aprovechar informaciones de la web] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Enviar_Rango()
' seleccionamos el rango de celdas en la hoja activa.
ActiveSheet.Range("a1:b5").Select
' mostramos el *sobre* de OL del libro activo.
ActiveWorkbook.EnvelopeVisible = True
' establecemos algunas opciones como asunto, etc.
With ActiveSheet.MailEnvelope
.Introduction = "Jefecito... esta es la informacion :))"
.Item.To = "aqui_la_direccion_de_correo"
.Item.Subject = "Linea del asunto"
.Item.Send
End With
End Sub

1) el codigo anterior [al igual que el metodo 'SendMail'] lo [unico] que 'hace' es...
'depositar' el envio en la bandeja de salida del sistema de correo instalado en la pc ;)
2) si [outlook ?] se esta 'ejecutando'... el envio es 'de inmediato'... en caso contrario... 'hasta' que lo abras :-(
[con las 'consabidas' advertencias -de outlook- de que 'alguien esta intentando enviar...'] :))
3) obtienes el mismo resultado si [desde cualquier aplicacion de office] usas el menu/comando/boton...
-> archivo / enviar a... -> destinatario de correo [o sea]... el -> ActiveWorkbook.EnvelopeVisible = True ;)
desde donde podras 'personalizar' asunto, comentario, decidir si envias la hoja o un rango seleccionado, etc.
solo se requiere que outlook y office sean de la misma version_numero [por si las dudas] :))