En estas últimas semanas se ha preguntado varias veces en los foros si es posible utilizar Blat para enviar correo desde Xailer, así que me he decidido a pulir y publicar una pequeña librería que empezé en el mes de enero a partir de un trabajo inicial de José Luis Capel

Esta librería incluye una jerarquía de 3 clases para el envío de correo SMTP:

TBlat
+- TBlatMail
+- TBlatGMail

La clase TBlat es una clase abstracta que maneja la carga y descarga de la DLL y la configuración de los datos para el envío, etc. Sólo sirve como base para las otras y NO se utiliza directamente.

Las clases descendientes son las que hacen realmente el envío del correo, la primera lo hace a través de servidores SMTP y la segunda lo hace con el servicio SMTP de GMail.

Para explicar su funcionamiento, nada mejor que un sencillo ejemplo:

WITH OBJECT TBlatMail():New()
   :cServer := "ServidorSMTP.com"
   :cAddress := "yomismo@mail.com"
   :Create()

   IF :nLastError == 0
      :cSubject := "Probando Blat desde Xailer"
      :cBody := "Cuerpo del mensaje"
      /*:lHtml := .T.*/
      :Send()
   ENDIF

   :Destroy()
END

Desde aquí puede descargarse el proyecto con los fuentes para generar la librería.