FoxPro/Visual FoxPro - mandar un mail a través de una aplicación

 
Vista:

mandar un mail a través de una aplicación

Publicado por Gonzalo (1 intervención) el 04/06/2002 21:05:23
Hola amigos!!
Necesito que dentro de una aplicación de VFP, pueda mandar correos electrónicos o correos internos, para notificar cuando el usuario modifique o ingrese un ítem.
¿como se hace?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mandar un mail a través de una aplicación

Publicado por devilzito (24 intervenciones) el 10/06/2002 19:11:26
aqui esta, prueba esto:

*!* strProfile = "nombredeusuarioperfil"
*!* strPassword = "passwordperfil"
*!* strRecipient = "[email protected]"
*!* strSubject = "Asunto"
*!* strBody = "Este es el mensaje..."

*!* 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

--devilzito--
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar