TestSmtp.prg

[FiveWiDi]

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.