FiveTech Software tech support forums

... not establish connection to server de bell WSA ERROR CODE : 10060 can you held me donne la meme erreur (same error) function SendMail() local oOutMail, cIP, oOutMail1 oDlg:SetMsg( "Sending Internet email..." ) WSAStartup() * oOutMail1 := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ...

... party did not properly respond after a period of time, or the established connection failed because the connected host has failed to respond. oOutMail := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ) ) Have you provided the Port number, username password required to connect ...

... : ST_INIT IP ADDRESS : could not establish connection to server1.activedata.ca WSA ERROR CODE : 10060 can you held me function SendMail() local oOutMail, cIP, oOutMail1 oDlg:SetMsg( "Sending Internet email..." ) WSAStartup() * oOutMail1 := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ...

... ejemplo que viene con Feivewin. Dado que mi intención es enviar varios mails uno detrás de otro, he necesitado modificarlo de la siguiente manera: oOutMail:bDone = { || oWnd:SetMsg( "Message sent successfully" ) } por: oOutMail:bDone = { || (oWnd:SetMsg( "Message sent successfully" ...

Antonio, you use in the example:
oOutMail:bConnected = { || oWnd:SetMsg( "Connected" ) }

and i use:
oOutMail:bConnected = { || (cV := "Connected", oSay:refresh()) }
where cV is the variable from the say-object

... to initialize TsSmtp():New ... twice 2) notice that there are two diffetent objects that initialize Tsmtp():New oInit is the first instance and oOutMail is the second. I also remarked out WSastartup() and the true fix to this problem was ending both instances of the Tsntp object .. oWndMdi:SetMsg( ...

... .. should WSAStartup() only be initialized once in a session ?? Rick oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting := { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected ...

... the socket .. Really at a loss here if anyone can help. Here is my code oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting := { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected ...

... when authentification is required, no e-Mail will be send. Following code am I using (modified testsmtp.prg): function SendMail() local oOutMail, cIP local cHost := "smtp.strato.de" local cEmail := "test@ctosoftware.de" local cUser := "test" ...

Rick, took your suggestion and I must have some syntactical error where 7 is ST_QUIT Your suggestion : oOutMail:bFailure := { || LogFile( "mail.log", {oOutMail:aTo:[1] + " Failed"}), oOutMail:nStatus := ST_QUIT } Trying to get it to work .. unfortunitly the LogFile fires everytime ...

... I may have to do what you suggest ... James .. I took your suggestion and I must have some syntactical error where 7 is ST_QUIT Your suggestion : oOutMail:bFailure := { || LogFile( "mail.log", {oOutMail:aTo:[1] + " Failed"}), oOutMail:nStatus := ST_QUIT } Trying to get it to work .. unfortunitly ...

Rick Lipkin wrote:I failed to declare oOutMail as a variable .. ( can't believe I did that )

Use /w compile switch and you will never forget it again.

EMG

Rick,

Try something like this:

oOutMail:bFailure := { || LogFile( "mail.log", {oOutMail:aTo:[1] + " Failed"}), oOutMail:nStatus := ST_QUIT }

Regards,
James

Antonio You were correct .. I failed to declare oOutMail as a variable .. ( can't believe I did that ) .. there is no error any longer and the e-mail truly failed to send .. but is there a way I can trap that error to write a log to the file that ...

Rick,

Have you defined oOutMail as a private variable ?

If yes, please change it to local, static or public. I would recommend local.