Hola a tod@s, he estado fuera desde hace mucho tiempo, pero ya estoy volviendo, reconstruyéndome desde mis cenizas cual Ave Fenix.
Hace unos días un cliente que está llevando el procedimiento de cambiar de facturación tradicional (osea en papel) a facturación electrónica, solicitó el envío de correos desde una app de Visual Fox, caso que ya he cubierto antes, pero en esta ocasión el requerimiento fue un poco más específico, por alguna razón el cliente no desea ningún archivo adjunto, más bien lo que necesita es que los datos estén embebidos dentro del cuerpo del Email, además debe salir de un correo institucional con parámetros específicos y debe poder incluir imágenes como logotipo y dar formato de tabla tipo HTML.
En resumidas cuentas debería el destinatario del correo electrónico recibir algo como la siguiente imagen:
Luego de plantear dichos requerimientos, me dí cuenta que hay 3 problemas por resolver, los que detallo a continuación:
a) Hacer la recolección de datos y preparar un cursor con los mismos para luego ir a la segunda parte.
b) Poder enviar un correo desde una cuenta institucional, ya que la mayoría de ejemplos en la red son de cuentas gratuitas tipo Gmail, Hotmail, etc.
c) Dar formato tipo HTML.
Luego de buscar por la web encontré 2 soluciones que explicaré a continuación:
1) 1) Para envío desde correos que no fueran los clásicos Gmail, Hotmail, Yahoo, etc. Encontré una librería que me sirvió mucho y que se llama FoxyDB que puede encontrarse en https://foxydb.wordpress.com/csfoxysmtp-ejemplos/ del compañero Antonio Meza Pérez programador Mexicano y que en su blog escribe sobre su librería lo siguiente “es totalmente gratis (OpenSource) que les permitirá crear una Capa de acceso a Datos, con varios Servidores de Bases de Datos, en especial con MySql, MariaDB y FireBird, en un futuro con ayuda de alguien que use Sql Server y PostgreSql se pueden agregar, al igual que otros mas.”.
2) Para abordar lo de usar código HTML para embeber los datos encontré una librería que muchos desconocen, Visual FoxPro desde hace ya varias versiones anteriores trae una herramienta para poder convertir tablas, formularios, informes, etiquetas y menús a formato HTML. La herramienta se llama GenHtml.prg y se encuentra en la carpeta donde está instalado VFP. La ruta y nombre de este programa está almacenado en la variable del sistema _GENHTML.
Comprobamos que la variable del sistema este correctamente configurada con:
? _GENHTML
Esta variable del sistema la podemos configurar desde el menú de VFP, en Herramientas, Opciones, en la solapa Archivos, y buscamos en la lista "Generador de HTML".
El programa GenHtml.prg
GenHtml.prg utiliza la librería de clases visuales _Html.vcx que son parte de las FoxPro Foundation Classes (FFC) que vienen con Visual FoxPro y se encuentran en la carpeta \ffc\ del directorio de instalación de VFP.
El compañero Luis María Guayán, de origen español nos cuenta en una entrada que tuvo la necesidad de crear una clase más elemental y sencilla, que solo convierte tablas y cursores a formato HTML. Aquí (https://comunidadvfp.blogspot.com/2005/10/convertir-tablas-formato-html.html) la exponge para que ustedes la utilicen en sus aplicaciones y quizás necesiten modificarla para agregarle más datos al archivo HTML o para cambiar la apariencia de visualización.
Utilizando Foxydb.
El problema de la recolección de datos dependerá de lo que cada quién desee poner en sus correos y dado que no es el tema central lo dejaré como descontado asumiendo que si lees esto eres programador y sabrás como lidiar con ello, entonces el segundo problema es como configurar la librería, lo primero que hice fue ponerme en contacto con el proveedor de correos quienes me dieron la siguiente información, pero que asumiremos que tienen un dominio llamado “repuestosparamotocicletas.com”, es claro que los datos a continuación son ficticios.
Correo saliente tipo :SMTP
mail.repuestosparamotocicletas.com
puerto de entrada : 645
sin seguridad SSL
cuenta de correo saliente : facturación@repuestosparamotocicletas.com
contraseña: Tu_c0ntraseni@
Public oSmtp
** Creamos el objeto de la
librería,** 32 Bit
oSmtp = CreateObject("CsFoxySmtp")
** 64 Bit
*oSmtp =
CreateObject("CsFoxySmtp64")
** Configuramos las propiedades
del Servidor para enviar correos desde una cuenta de correo.
oSmtp.server = " mail.repuestosparamotocicletas.com "
oSmtp.port = 645
oSmtp.ssl = .F.
oSmtp.user =
"facturacion@repuestosparamotocicletas.com "
oSmtp.password = " Tu_c0ntraseni@"
** Configuramos los datos para el
correo, la priority por default es normal, para el ejemplo la cambio a Alta.
oSmtp.from = "No
responder < facturacion@repuestosparamotocicletas.com >"
oSmtp.subjet = "Informe de documentos no
enviados al MH del día "+DTOC(DATE())
lcBody = TEXTMERGE(lcFile)
*!* * Incrustar imágenes
oSmtp.body = lcBody
oSmtp.EmbedImage("imágenes\Logo.jpg",
"imagen1")
oSmtp.priority = 1
** Agregamos las direcciones de
correo, es decir los Destinatarios.
oSmtp.AddTo("logistica@tuempresa.com")
*oSmtp.AddTo(“correoDos@dominio.com”)
*oSmtp.AddTo(“correoTres@dominio.com”)
*** Agregamos las direcciones de
los Destinatarios que irán en Copia
oSmtp.AddCc("asistenciaporoperadora@gmail.com")
oSmtp.AddCc("gerencia.general@lacruz-ada.com")
** Agregamos las direcciones de
los Destinatarios que irán en Copia Oculta
*oSmtp.AddBcc(“correoOcultoUno@dominio.com”)
*oSmtp.AddBcc(“correoOcultoDos@dominio.com”)
** Agregamos los archivos
Adjuntos al correo, dado que no quieren adjuntos se ** van como comentarios
pero lo dejo por si te sirve
*oSmtp.AddAttachments(“c:\carpeta\archivoUno.pdf”)
*oSmtp.AddAttachments(“d:\foto\imagen.jpg”)
*oSmtp.AddAttachments(“c:\doc\listado.xls”)
** Finalmente enviamos el correo
y validamos si se envió correctamente
IF oSmtp.Smtp() = .t.
wait windows
"Correo Enviado" NOWAIT
ELSE
gError = .T.
gMsg
= oSmtp.Error
RETURN
-1
ENDIF
RETURN 1
Es claro que el TEXTMERGE debe ser creado previamente, esto es lo que yo tengo en mi código, la función AgregarListaResumen() se mostrará luego en esta entrada.
SET
TEXTMERGE OFF
TEXT TO lcFile NOSHOW
<p><i>
Informe automático <br>
<b>
De Fecha: <<DTOC(DATE())>>, Generado a las <<TIME()>></b><br>
</i></p>
<hr>
<p>A
continuación el listado de los Documentos de fecha <<ldFecha2>> no
enviados al MH:</p>
<<AgregarListaResumen()>>
<p>La
cantidad total de documentos es
<b><<TotalRegistros()>></b>.</p>
<p>Sin más por el momento,
atentamente</p>
<p><u><i>Factura
Fácil</i></u></p>
<body style="background-color: blank">
<h2>Apuntando al
éxito</h2>
<img src='cid:imagen1' alt="no se muestra" width="250" height="150" align="left" />
<br>
ENDTEXT
Y pues las otras funciones son :
PROCEDURE TotalRegistros()
LOCAL lcHtml
*-- Total de Ordenes por Empleado
SELECT Dos
COUNT to Tot_Regis
lcHtml = TRANSFORM(Tot_Regis)
RETURN lcHtml
USE IN Dos
ENDPROC
PROCEDURE AgregarListaResumen()
LOCAL lcHtml, loHtml
*-- Listado de documentos no enviados a
MH
loHtml = CREATEOBJECT("ClaseHtml")
lcHtml = loHtml.AgregarTabla('Dos') + CHR(13) + CHR(10)
RELEASE loHtml
RETURN lcHtml
ENDPROC
Y finalmente la clase “ClaseHtml” es la
misma que te mencioné antes de Luis María Guayán.
Espero les sirva de ayuda u orientación por si tienen algún reto parecido, sin más por el momento me despido no sin antes enviar mi más sentido pésame a mi prima Laura Trejo por la irreparable pérdida de su madre, mi tía Laura Trejo, si se llaman igual.
Mr. Moon.
La vida es un 10% como viene y un 90% como la tomamos.
Pensar es gratis.
