Enviar correo electrónico en segundo plano

Solución

Si deseamos enviar el correo electrónico en segundo plano y continuar con la ejecución de nuestra aplicación, lo vamos a realizar con el siguiente código:

*!*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

*!* EJEMPLO PARA ENVIAR CORREO EN FORMATO HTML Y SEGUNDO PLANO

*!*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

LOCAL lcFileXML,lcFilePDF,lcCuerpo,lcNameCli,lcPaHTML,lcRucCli,lcDescriDoc,lcFechaDoc,lcNroDocCPE,lcTotalCPE,lcHashCPE,lcCorreoCli,;

lcDbPag,lcRucNroDoc,lcTipoDoc

*!* INGRESAR LA INFORMACIÓN DEL SERVIDOR DE CORREO

_SCREEN.loCPE.lcServidor = "mail.vfpsteam.com"

_SCREEN.loCPE.lnPuerto = 587

_SCREEN.loCPE.llSMTPAuth = .T.

_SCREEN.loCPE.llSMTPSsl = .F.

_SCREEN.loCPE.lcUsuarioEmail = "webmaster@vfpsteam.com"

_SCREEN.loCPE.lcPass = "xxxxxxx"

*!* ARMAMOS EL CUERPO DEL MENSAJE

*!* ESTA FUNCIÓN NOS DEVUELVE EL CUERPO DEL MENSAJE EN FORMATO HTML

*!* PARAMETROS

lcNameCli = "VFPSTEAM BI SOLUTIONS" &&NOMBRE O RAZÓN SOCIAL DEL CLIENTE

lcPaHTML = "http://www.facturacionelectronicasunat.solutions/pruebacpe/" &&DIRECCIÓN WEB O RUTA DE LA PÁGINA DE CUSTODIA

lcRucCli = "20100066603" &&NÚMERO DE RUC DEL CLIENTE

lcDescriDoc = "Factura" &&TIPO DE DOCUMENTO

lcFechaDoc = "2016-09-27" &&FECHA DE EMISIÓN DEL DOCUMENTO

lcNroDocCPE = "FF11-000232" &&NÚMERO Y SERIE DEL DOCUMENTO

lcTotalCPE = "2,345.00" &&TOTAL O VALOR VENTA DEL DOCUMENTO

lcHashCPE = "X9I2WRTf93iz4JJiaeGMUC0/GNg=" &&HASH DE LA SUNAT

lcCuerpo = _SCREEN.loCPE.VFPs_Arma_Cuerpo_Email (lcNameCli,lcPaHTML,lcRucCli,lcDescriDoc,lcFechaDoc,lcNroDocCPE,lcTotalCPE,lcHashCPE)

_SCREEN.loCPE.lcSubJect = "Envio de Comprobante de Pago Electrónico"

_SCREEN.loCPE.llEmailHtml = .T.

_SCREEN.loCPE.lcHTMLBody = lcCuerpo

*!* SE AGREGA LOS ARCHIVOS DE PDF Y XML PARA EL ENVIO

lcFileXML = _SCREEN.loCPE.lcDirINS + "FirmaXML\20100066603-01-FF11-000232.Xml"

lcFilePDF = _SCREEN.loCPE.lcDirINS + "XmlPDF\20100066603-01-FF11-000232.pdf"

_SCREEN.loCPE.Add_Files_Email(lcFileXML)

_SCREEN.loCPE.Add_Files_Email(lcFilePDF)

*!* CORREO DEL CLIENTE

lcCorreoCli = "luis_rea200@siaadsa.com"

*!* ENVIAR EL CORREO SE ENVIA COMO PARAMETRO EL CORREO DEL REMITENTE Y .T. PARA ENVIO EN SEGUNDO PLANO

IF !_SCREEN.loCPE.VFPs_Enviar_Email (lcCorreoCli,.T.)

RETURN .F.

ENDIF

*!* TODO OK SE ENVIÓ EL CORREO

Nota.- Para el uso del parámetro de envió en segundo plano tiene que tener la versión 2016.100.35 de VFPsCPE

VFPSTEAM BI SOLUTIONS

¿Le ha sido útil este artículo? si / no