Envio de correo

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