Estimados, una antes de Finalizar el año
Estoy intentando enviar e-mail con la clase TSmtp, y estoy casi por conseguirlo. el tema es que no puedo ver cual es el problema por el cual no los envia, hay alguna forma de me arroje cual es el problema
logré que me reconozca el servidor de correo, aparentemente tambien la clave ya que me dá el mensaje de Conectado, solo falta que salga 
.
les adjunto como tengo armado el programa por las dudas que quieran controlarlo
muchas gracias
david
argentina
Estoy intentando enviar e-mail con la clase TSmtp, y estoy casi por conseguirlo. el tema es que no puedo ver cual es el problema por el cual no los envia, hay alguna forma de me arroje cual es el problema
logré que me reconozca el servidor de correo, aparentemente tambien la clave ya que me dá el mensaje de Conectado, solo falta que salga .les adjunto como tengo armado el programa por las dudas que quieran controlarlo
muchas gracias
david
argentina
#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 := "201.234.30.3"
local cUser := "dbarrio@jla.com.ar"
local cPass := "DOB_JLA"
oWnd:SetMsg( "Sending Internet email..." )
WSAStartup()
oInit := TSmtp():New(cHost)
oMail := TSmtp():New( cIP:=GetHostByName( cHost ), 25 , .t. , cUser, cPass )
*
oMail := TSmtp():New(cHost, , .t. , cUser, cPass )
MsgInfo(cIP,'Informacion')
oMail:nGMT := +1 // Pacific Standard Time
oMail:oSocket:lDebug := .t. // uncomment to create log file
oMail:oSocket:cLogFile := "c:\dob_smtp.log"
oMail:bConnecting = {|| msginfo("Conectando ..."+cHOST )}
oMail:bConnected = {|| msginfo("Conectado!")}
oMail:bDone = {|| msginfo("E-Mail Enviado!")}
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
{"gfernandez@jla.com.ar"} ,; // para
cMsg ,; // Mensaje
"Fichero de Salidas" ,; // Asunto
{"enviar.prg"} ,; // 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
//----------------------------------------------------------------------------//
procedure AppSys // Xbase++ requirement
return
//----------------------------------------------------------------------------//
