FiveTech Support Forums

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "Sending Internet Mail from FiveWin"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION SendMail() TOOLTIP "Send Mail"

   SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function SendMail()

   Local cMsg,n,nVeces 
   local oMail, cIP , oInit

   local acc := {}
   local CHost := "smtp.mailserver.jla.com.ar"
   local cUser := "dbarrio"
   local cPass := "DOB_JLA"

   oWnd:SetMsg( "Sending Internet email..." )

   WSAStartup()

   oInit := TSmtp():New("smtp.mailserver.jla.com.ar") 
   oMail := TSmtp():New( cIP := GetHostByName( cHost ), 25 , .t., cUser, cPass  ) 

   oMail:nGMT := +1                           // Pacific Standard Time 

   oMail:oSocket:lDebug := .F.                     // uncomment to create log file 
   oMail:oSocket:cLogFile := "smtp.log" 

   oMail:bConnecting = {|| msginfo("connecting..."+cHOST )} //{ || oWnd:SetMsg( "Connecting to "+cHost ) } 
   oMail:bConnected  = {|| msginfo("connected!")} 
   oMail:bDone       = {|| msginfo("done!")} 
   
   oMail:cPriority  :="HIGH" 


   MsgInfo('Armando Mensaje','Informacion')

   cMsg := ; 
               "Adjunto le enviamos el fichero con las salidas de hoy " + dtoc(date()) + CRLF + CRLF + ; 
               "Sobre Cualquier Problema debe dirigirse a " + CRLF + ; 
               ".................aaaaaaaaaa" + CRLF + ; 
               "Telf. aaaaaaaaaaaa" + CRLF + ; 
               "Fax . aaaaaaaaaaaa" + CRLF + ; 
               "Contacto: aaaaaaaaaaaaa" 

   MsgInfo('mandando email','Informacion')
               
   oMail:SendMail( ; 
            "dbarrio@jla.com.ar" ,;       //from aqui tienes que indicar el email de quien envia el mensaje 
            { "davidbarrio_arg@hotmail.com" } ,;         // para 
            cMsg ,;                  // Mensaje 
            "Fichero de Salidas" ,;  // Asunto 
            { "enviar.prg", "enviar2.zip" } ,;             //  Arreglo de nombres de archivos a agregar 
            aCC ,;                  // aCC (array)
            { } ,;                  // aBCC 
            .T. ,;                  // acuse de recibo 
            Nil )                   // msg in HTML format/mensaje en HTML 

   MsgInfo('Fin de Envio','Informacion')
   oInit:end() 
         
   
return nil