Control MSMAPI
Tengo una aplicación que utiliza el control MsMapi32 para envío de mensajes sobre Foxpro 7.0. El problema es que me da un error en la instancia del objeto:
x = CreateObject("Msmapi.MapiSession")
El Error es: "Ole Error Code 0x80040112:no hay licencia de uso de la clase"
Este error sólo me da en máquinas en las que no tengo instalado Foxpro. Lo he probado incluso en máquinas con sol oel sistema operativo (W98 y con WxP) y el Outlook (normal y express).
Por favor, ¿Podrías ayudarme o ofrecerme alguna pista al respecto?
x = CreateObject("Msmapi.MapiSession")
El Error es: "Ole Error Code 0x80040112:no hay licencia de uso de la clase"
Este error sólo me da en máquinas en las que no tengo instalado Foxpro. Lo he probado incluso en máquinas con sol oel sistema operativo (W98 y con WxP) y el Outlook (normal y express).
Por favor, ¿Podrías ayudarme o ofrecerme alguna pista al respecto?
1 respuesta
Respuesta de tango
1
Te envío un programita que envía un mail utilizando outlook espero te sirva
strProfile = "Quintanar"
strPassword = "Quintana"
strRecipient = "Baltazar Galvan"
strSubject = "Este es un mensaje enviado por Visual fox pro"
strBody = "BORRAME"
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
*theApp.UserProperties.Add("Priority", olText)
tHEApp.ActiveExplorer.CurrentFolder
Theapp.DISPLAY
theMailItem = theApp.CreateItem(0)
theMailItem.Recipients.Add( strRecipient )
theMailItem.Subject = strSubject
theMailItem.Body = strBody
theMailItem.Attachments.Add(´i:\samples\beep.bak´) && si quieres enviar archivo adjunto
TheMailItem. Send
TheNameSpace. Logoff
strProfile = "Quintanar"
strPassword = "Quintana"
strRecipient = "Baltazar Galvan"
strSubject = "Este es un mensaje enviado por Visual fox pro"
strBody = "BORRAME"
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
*theApp.UserProperties.Add("Priority", olText)
tHEApp.ActiveExplorer.CurrentFolder
Theapp.DISPLAY
theMailItem = theApp.CreateItem(0)
theMailItem.Recipients.Add( strRecipient )
theMailItem.Subject = strSubject
theMailItem.Body = strBody
theMailItem.Attachments.Add(´i:\samples\beep.bak´) && si quieres enviar archivo adjunto
TheMailItem. Send
TheNameSpace. Logoff
