Enviar mail
¿Alguien conoce alguna forma de enviar mail con visual fox que no sea utilizando MAPI?
tengo tu mismo problema con el agregado que no se utilizar MAPI, PODRAS ENVIARME ALGO
GRACIAS
Miguel
GRACIAS
Miguel
***********************************************************************************************
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.
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.
