Un ejemplo facil:
lo = CREATEOBJECT("MiForm")
lo.SHOW(1)
DEFINE CLASS MiForm AS FORM
ADD OBJECT "oSession" AS "oleMapiSession"
ADD OBJECT "oMessages" AS "oleMapiMessages"
PROCEDURE ACTIVATE
MESSAGEBOX("Existe objeto " + THISFORM.oSession.OLECLASS)
MESSAGEBOX("Existe objeto " + THISFORM.oMessages.OLECLASS)
ENDPROC
ENDDEFINE
DEFINE CLASS oleMapiSession AS OLECONTROL
OLECLASS = "MSMAPI.mapiSession.1"
ENDDEFINE
DEFINE CLASS oleMapiMessages AS OLECONTROL
OLECLASS = "MSMAPI.mapiMessages.1"
ENDDEFINE
Como consejo si quieres enviar mail, utiliza CDO
-- Mas sobre el envio de mensajes de correo electrónico desde Visual
FoxPro --
--
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
http://www.portalfox.com/article.php?sid=2626
Post by Alexander GuzmánMuchas gracias, Luis.
Perdona que abuse de tu amabilidad, pero parece que a ti también te pasó y
lo solucionaste. ¿Podrías, por favor, indicarme de qué formaencapsulaste
MSMAPI en una clase propia?
De antemano, muchas gracias!
Eso sucede cuando la instancias con CREATEOBJECT()
En capsula la clase en una propia y no tendras inconveniente, o agregala en
forma visual en tu formulario.
--
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
Post by Alexander GuzmánBuen día, grupo.
¿Alguno de ustedes sabe qué hacer para corregir este problema?
Cree una función que mediante MAPI envía correo. El caso es que en mi
equipo funcinó, pero donde los usuarios me sale el error "no hay licencia
de uso de la clase".
Esto pasa Justo en CREATEOBJECT("MAPI.mapiSession")
Muchas gracias de antemano.