Error con MAPI

Buen dia amigos:
He usado las siguientes lineas para envio de mail desde

aplicacion VFP 6.0:

LOCAL oform
oform = CreateObject("form")
oform.addobject
("Session1","olecontrol","MSMAPI.mapiSession")
IF TYPE('oform.Session1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación
de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF
oform.addobject
("Message1","olecontrol","MSMAPI.mapiMessages")
IF TYPE('oform.Message1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación
de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF
oform.Session1.LogonUI = .t.
oform.Session1.DownloadMail=.f.
oform.Session1.signon
oform.Message1.sessionid = oform.Session1.sessionid
oform.Message1.compose
oform.Message1.RecipDisplayName = pcPara
oform.Message1.msgsubject = pcAsunto
oform.Message1.msgnotetext = pcCuerpo
IF TYPE('paFichEnviar[1]') = 'U'
LOCAL lcFileEnviar
lcFileEnviar = paFichEnviar
DIMENSION paFichEnviar(1)
paFichEnviar(1) = lcFileEnviar
ENDIF
LOCAL lnContFiles
lnContFiles = 1
FOR lnCount = 1 TO ALEN(paFichEnviar,1)
IF FILE(paFichEnviar(lnContFiles))
oform.Message1.AttachmentIndex = lnContFiles - 1
oform.Message1.AttachmentPathName = paFichEnviar
(lnContFiles)
oform.Message1.AttachmentPosition = lnContFiles -

lnContFiles = lnContFiles + 1
ENDIF
ENDFOR
oform.Message1.send(plMostrarDialogo)
oform.Session1.signoff

La cual funciona perfectamente en mi PC. El problema es
que cuando genero el EXE y lo ejecuto en otra máquina me
está arrojando los siguientes errores:
________
Código de error OLE 0x800401f3: Código de estado de COM
desconocido.
Código de error OLE 0x800401f3: Cadena clase no válida.

ambos en la siguiente línea,
oform.addobject
("Session1","olecontrol","MSMAPI.mapiSession")

agradezco su ayuda


Huber Yohaanson Noreña Céspedes.

.