Email

marco
11 de Mayo del 2004
Alguien me puede escribir unas lineas de como mandar un email desde un programa en Fox??

Gracias

foxleonardo
11 de Mayo del 2004
Si quieres mas información, regístrate en mi sitio y escribe tus consultas. www.empresadae.cl

LPARAMETERS strProfile,strPassword,strRecipient,strSubject,strBody
*//
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
theMailItem = theApp.CreateItem(0)
*//
theMailItem.Recipients.Add(strRecipient)
theMailItem.Subject = strSubject
theMailItem.Body = strBody
theMailItem.Send
theNameSpace.Logoff