FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TestSmtp.prg
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM

TestSmtp.prg

Posted: Sun Dec 15, 2013 06:28 PM

Hola a todos,

He estado probando el código de este 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" ), WSACleanup()) }

Si no me daba el error 10048.

Naturalmente siempre espero que acabe un mail antes de enviar otro, por tanto no tengo varios mails enviándose a la vez.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Continue the discussion