Hello, i'm placing into the add wizbtns button class the next code:


dodefault()

if this.parent.editmode
********* WITH OUTLOOK AUTOMATION: *********
else
*set step on
calias=alias()

SELECT DISTINCT Llamadas.numero, Llamadas.fllamada AS fllamada,;
Usuarios_cia.nombre AS usuario, Oficina.nombre AS oficina, Llamadas.undhard as serial,;
Ingeniero.nombre AS ingeniero, Llamadas.detalle AS problema,;
Oficina.direccion, Ingeniero.mail, Llamadas.sucursal AS localidad,;
Llamadas.host AS host, Llamadas.telefono AS telefono,;
Marcas.descripcion AS marca, Modelos.descripcion AS modelo;
FROM helpdesk!llamadas, helpdesk!usuarios_cia, helpdesk!oficina,;
helpdesk!ingeniero, helpdesk!modelos, helpdesk!marcas;
WHERE Llamadas.numero = thisform.text1.value;
AND Llamadas.usuario = Usuarios_cia.codigo;
AND Llamadas.oficina = Oficina.codigo;
AND Llamadas.ingeniero = Ingeniero.codigo;
AND Modelos.marca = Marcas.codigo;
AND Llamadas.modelo = modelos.codigo;
INTO CURSOR envcorreo

if empty(envcorreo.mail) then
=messagebox("Advertencia, No se hizo el envío del correo al Ingeniero"+chr(13)+"Debido a que no tiene dirección de correo")
else
wait windows "Preparando para enviar correo a Ingeniero..." nowait
DIMENSION aryAttach(1)
LOCAL lcFrom, lcTo, lcSubject, lcBody, lnCount
aryAttach(1) = "C:\autoexec.bat"
lcFrom = "Cop2000@comw.com.co"
lcTo = alltrim(envcorreo.mail)
lcSubject = "Asignación llamada No. "+alltrim(str(envcorreo.numero))
lcBody = "Ingeniero, Le ha sido asignado la siguiente llamada"+chr(13)+chr(13)
lcBody = lcBody+"Número de llamada: "+alltrim(str(envcorreo.numero))+chr(13)
lcBody = lcBody+"Contacto: "+alltrim(envcorreo.usuario)+chr(13)
lcBody = lcBody+"Colegio/Oficina: "+alltrim(envcorreo.oficina)+chr(13)
lcBody = lcBody+"Dirección: "+alltrim(envcorreo.direccion)+chr(13)
lcBody = lcBody+"Teléfono: "+alltrim(envcorreo.telefono)+chr(13)
lcBody = lcBody+"Localidad: "+alltrim(str(envcorreo.localidad))+chr(13)
lcBody = lcBody+"Equipo: "+alltrim(envcorreo.marca)+" - "+alltrim(envcorreo.modelo)+chr(13)
lcBody = lcBody+"Serial: "+alltrim(envcorreo.Serial)+chr(13)
lcBody = lcBody+"Host: "+alltrim(str(envcorreo.host))+chr(13)
lcBody = lcBody+"Problema: "+alltrim(envcorreo.problema)+chr(13)
lcBody = lcBody+"Ingeniero: "+alltrim(envcorreo.ingeniero)+chr(13)+chr(13)
lcBody = lcBody+" .: Envío automatico de correo COP2000 :."+Chr(13)+"Por favor, no responda a este correo"
oNewMail = CREATEOBJECT("CDONTS.NewMail")
WITH oNewMail
.FROM = lcFrom
.TO = lcTo
.Subject = lcSubject
.Body = lcBody
*IF PCOUNT() > 4
* FOR lnCountAttachments = 1 TO ALEN(tcFiles)
* .AttachFile = tcFiles(lnCountAttachments)
* ENDFOR
*ENDIF
.SEND
ENDWITH
oNewMail = .NULL.
RELEASE oNewMail
Wait windows ".:Correo enviado:." nowait
endif
select &calias
endif


This code is for send an email through CDONTS, but i'm receiving the next message error:


RECNO()
Error: 1426
OLE error code 0x80040154: Class not registered
Method: cmdadd.click
line 59



What's wrong? How can i solve this?
Thanks for the help.