FoxPro/Visual FoxPro - mapi en _screen

Hola foxeros

Alguno de ustedes sabe como crear un objeto de tipo mapi en el _screen?

La idea es generar este objeto una sola vez y no en cada formulario en el cual necesite enviar un email.

Muchas gracias

Prueba esto

*-- Datos del Mail
lcPerfil = "MiPerfil"
lcContrasenia = "mypassword"
lcDestinatario = "[email protected]"
lcTema = "Aqui escribo el tema"
lcCuerpo = "Aqui escribo el cuerpo del mail "

*-- Creo objetos Outlook y NameSpace
loOutlook = CREATEOBJECT("Outlook.Application")
loNameSpace = loOutlook.GetNameSpace("MAPI")

*-- Ejecuto los métodos
loNameSpace.Logon(lcPerfil , lcContrasenia)
loMailItem = loOutlook.CreateItem(0)
loMailItem.Recipients.ADD(lcDestinatario)
loMailItem.Subject = lcTema
loMailItem.Body = lcCuerpo
loMailItem.Attachments.ADD("c:\midocumento.doc")
loMailItem.Send
loNameSpace.Logoff

loNameSpace = .NULL.
loOutlook = .NULL.


Suerte