FiveTech Support Forums

#include "fivewin.ch"
#include "mail.ch"

function main()
   local oWnd
   define window oWnd
   activate window oWnd on init doit()
return nil

function doit()
   local oMail,aCustomer:={}
   local cSubject:="Prueba"
   local cMessage:="Prueba de envio de e-mail"

   aadd(aCustomer,"direccion de destino @ xxx .com")

   DEFINE MAIL oMail;
               SUBJECT cSubject;
               TEXT cMessage
   
   oMail:aRecipients:=aCustomer
   
   ACTIVATE MAIL oMail

   msgInfo("mail sent")

return nil

#include "MAIL.ch"
*************************************
STATIC FUNCTION EnviarMail()
*************************************
Local oMail
Local cMensaje1
Local cMensaje2
Local cMensaje3
//
cMensaje1 = "Linea 1 del mensaje"
cMensaje2 = "Linea 2 del mensaje"
cMensaje3 = "Linea 3 del mensaje"
//
cSubject = "Título del mensaje"

cNoteText = cMensaje1+CRLF+CRLF+cMensaje2+CRLF+CRLF+cMensaje3

cMsgType = nil

cConversationID = nil

dDate = Date()

cTime = Time()

lReceipt = .f.

lFromUser = .t.  // Abre el gestor de correo

aOrigin = {"tudireccion@dominio.com"}
aRecipients = {CLIENTES->Mail}
aFiles = {"c:\factura1.pdf","c:\factura2.pdf"}

oMail:=TMail():New(cSubject ,;
                             cNoteText ,;
                             cMsgType ,;
                             cConversationID ,;
                             dDate,;
                             cTime,;
                             lReceipt,;
                             lFromUser,;
                             aOrigin,;
                             aRecipients,;
                             aFiles)
oMail:Activate()
oMail:End()

RETURN NIL