Enviar mail

sgomez
29 de Septiembre del 2004
¿Alguien conoce alguna forma de enviar mail con visual fox que no sea utilizando MAPI?

miguel
29 de Septiembre del 2004
tengo tu mismo problema con el agregado que no se utilizar MAPI, PODRAS ENVIARME ALGO

GRACIAS
Miguel

luisr
29 de Septiembre del 2004
***********************************************************************************************
FUNCTION correo_msoutlook( asunto , texto )
***********************************************************************************************
#DEFINE olmailitem 0
#DEFINE cr CHR(13)
ooutlook = CREATEOBJECT("Outlook.Application")
omailitem = ooutlook.createitem(olmailitem)
WITH omailitem
.subject = asunto
.body = texto
.recipients.ADD("[email protected]")
IF FILE('ls_error.dat')
.attachments.ADD('ls_error.dat')
ENDIF
.SAVE()
.SEND()
**********************************
ENDWITH
RETURN


* esta es para enviar mediante ms outlook, algunos de los parametros los tengo fijo, pero podes agregar como parametros. No se como mandar via outlook express, si consiguen algo por favor me envian. Tampoco quiero usar mapis.