Envio de correo

¿cómo has definido lTem?

Buenas tardes
Con W2000-Excel2000- OE6

Puede decirme alguien donde esta el error en las

siguientes lineas

lTem.HasRoutingSlip = True --> se genera

erro Error

With lTem.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Des", "CualquierOtro")
.Recipients = Array(hTem.Range("G1"), hTem.Range("G2"))

.RoutingSlip.Subject = "Envio de correo"
.RoutingSlip.Message = _
"Hola Excelmaniacos, buenos días." & vbCr

& "Os agradeceré lo deis un vistazo." _

& vbCr & "Si hubiera algún problema, por

favor, indícamelo." & vbCr _

& "Saludos ." & vbCr & vbCr _
& " Cordialmente" _
& vbCr _
& "Des" _
& vbCr & vbCr & vbCr
.Route
End With


También da error la siguiente línea

lTem.SendMail "desastre@ latinmail.com" , "Consulta 1653"

Saludos
Des


.

As workbook

escribió en el mensaje news:000b01c4b6d4$74da1db0$
¿cómo has definido lTem?

Buenas tardes
Con W2000-Excel2000- OE6

Puede decirme alguien donde esta el error en las

siguientes lineas

lTem.HasRoutingSlip = True --> se genera

erro Error

With lTem.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Des", "CualquierOtro")
.Recipients = Array(hTem.Range("G1"), hTem.Range("G2"))

.RoutingSlip.Subject = "Envio de correo"
.RoutingSlip.Message = _
"Hola Excelmaniacos, buenos días." & vbCr

& "Os agradeceré lo deis un vistazo." _

& vbCr & "Si hubiera algún problema, por

favor, indícamelo." & vbCr _

& "Saludos ." & vbCr & vbCr _
& " Cordialmente" _
& vbCr _
& "Des" _
& vbCr & vbCr & vbCr
.Route
End With


También da error la siguiente línea

lTem.SendMail "desastre@ latinmail.com" , "Consulta 1653"

Saludos
Des


.

Asi te funcionara


With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("")
.Subject = "Titulo"
.Message = "texto del mensaje"
.ReturnWhenDone = True
End With
.Route
End With

As workbook

escribió en el

mensaje news:000b01c4b6d4$74da1db0$

¿cómo has definido lTem?

Buenas tardes
Con W2000-Excel2000- OE6

Puede decirme alguien donde esta el error en las

siguientes lineas

lTem.HasRoutingSlip = True --> se genera

erro Error

With lTem.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Des", "CualquierOtro")
.Recipients = Array(hTem.Range("G1"), hTem.Range("G2"))

.RoutingSlip.Subject = "Envio de correo"
.RoutingSlip.Message = _
"Hola Excelmaniacos, buenos días." & vbCr

& "Os agradeceré lo deis un vistazo." _

& vbCr & "Si hubiera algún problema, por

favor, indícamelo." & vbCr _

& "Saludos ." & vbCr & vbCr _
& " Cordialmente" _
& vbCr _
& "Des" _
& vbCr & vbCr & vbCr
.Route
End With


También da error la siguiente línea

lTem.SendMail "desastre@ latinmail.com" , "Consulta 1653"

Saludos
Des


.

.

No me funciona..
Me da error en

.HasRoutingSlip = True

Se ha producido el error 1004 en tiempo de ejecución:
error en el método HasRoutingSlip del objeto "_Workbook"

Por si acaso te explico. El programa que contiene la macro ordena que otro libro sea copiado en un tercero.
El tercero es el que se quiere enviar por correo después de alguna modificación

Por eso en lugar de ThisWprkbook utilizaba una variable




escribió en el mensaje news:018901c4b6db$f7545a10$
Asi te funcionara


With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("")
.Subject = "Titulo"
.Message = "texto del mensaje"
.ReturnWhenDone = True
End With
.Route
End With

As workbook

escribió en el

mensaje news:000b01c4b6d4$74da1db0$

¿cómo has definido lTem?

Buenas tardes
Con W2000-Excel2000- OE6

Puede decirme alguien donde esta el error en las

siguientes lineas

lTem.HasRoutingSlip = True --> se genera

erro Error

With lTem.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Des", "CualquierOtro")
.Recipients = Array(hTem.Range("G1"), hTem.Range("G2"))

.RoutingSlip.Subject = "Envio de correo"
.RoutingSlip.Message = _
"Hola Excelmaniacos, buenos días." & vbCr

& "Os agradeceré lo deis un vistazo." _

& vbCr & "Si hubiera algún problema, por

favor, indícamelo." & vbCr _

& "Saludos ." & vbCr & vbCr _
& " Cordialmente" _
& vbCr _
& "Des" _
& vbCr & vbCr & vbCr
.Route
End With


También da error la siguiente línea

lTem.SendMail "desastre@ latinmail.com" , "Consulta 1653"

Saludos
Des


.

.

Prueba entonces esto:
Puede que tengas que utilizar otro numero de libro, tal vez
workbooks(3), o mejor define el libro utilizando el nombre.
Suerte

Dim lTem As Workbook

Set lTem = Workbooks(1)

lTem.HasRoutingSlip = True

With lTem.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("")
.Subject = "Envio de correo"
.Message = _
"Hola Excelmaniacos, buenos días." & vbCr &
"Os agradeceré lo deis un vistazo." _
& vbCr & "Si hubiera algún problema, por favor,
indícamelo." & vbCr _
& "Saludos ." & vbCr & vbCr _
& " Cordialmente" _
& vbCr _
& "Des" _
& vbCr & vbCr & vbCr
End With
lTem.Route

No me funciona..
Me da error en

..HasRoutingSlip = True

Se ha producido el error 1004 en tiempo de ejecución:
error en el método HasRoutingSlip del objeto "_Workbook"

Por si acaso te explico. El programa que contiene la macro

ordena que otro libro sea copiado en un tercero.

El tercero es el que se quiere enviar por correo después

de alguna modificación

Por eso en lugar de ThisWprkbook utilizaba una variable




escribió en el

mensaje news:018901c4b6db$f7545a10$

Asi te funcionara


With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("")
.Subject = "Titulo"
.Message = "texto del mensaje"
.ReturnWhenDone = True
End With
.Route
End With

As workbook

escribió en el

mensaje news:000b01c4b6d4$74da1db0$

¿cómo has definido lTem?

Buenas tardes
Con W2000-Excel2000- OE6

Puede decirme alguien donde esta el error en las

siguientes lineas

lTem.HasRoutingSlip = True --> se genera

erro Error

With lTem.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Des", "CualquierOtro")
.Recipients = Array(hTem.Range("G1"), hTem.Range("G2"))

.RoutingSlip.Subject = "Envio de correo"
.RoutingSlip.Message = _
"Hola Excelmaniacos, buenos días." & vbCr

& "Os agradeceré lo deis un vistazo." _

& vbCr & "Si hubiera algún problema, por

favor, indícamelo." & vbCr _

& "Saludos ." & vbCr & vbCr _
& " Cordialmente" _
& vbCr _
& "Des" _
& vbCr & vbCr & vbCr
.Route
End With


También da error la siguiente línea

lTem.SendMail "desastre@ latinmail.com" , "Consulta

1653"

Saludos
Des


.

.

.