FiveTech Support Forums

******************************************************************************
// add: <cMitt> come parametro opzionale - 30/03/2019
function Spedisci(oWnd,aAddr,cOggetto,cText,cHtm,aAllega,lSilent,aCC,aCCn,nPort,cMitt,cPwd)
local lRet, nTime := 0
local oMail	
local cServer, cUser, lReceipt

if SETUP->(fieldpos("SMTPSERV")) > 0					// ctrl se esiste campo su Setup
	default cMitt to trim(SETUP->MailMitte)				// mittente
	cServer := trim(SETUP->SmtpServ)					//
	cUser   := trim(SETUP->SmtpUser)					//
	default cPwd := trim(SETUP->SmtpPass)				// mod: default - 14/03/2025
endif
if SETUP->(fieldpos("SMTPPORT")) > 0					// ctrl se esiste campo su Setup
	default nPort := val(alltrim(SETUP->SmtpPort))		// porta Smtp
endif

// valori di default
cMitt	:= if(!empty(cMitt),cMitt,"support@mydomain.it")		// mittente
cServer	:= if(!empty(cServer),cServer,"smtp.mydomain.it")		// mailserver
cUser	:= if(!empty(cUser),cUser,"support@mydomain.it")		// username x autenticazione
cPwd	:= if(!empty(cPwd),cPwd,"mypassword")					// password
nPort	:= if(!empty(nPort), nPort, 25	)						// add: nPort - 30/03/2018

default aAddr := {}										// add: 09/10/2021
default aCC := {}										//
default aCCn := {}										//
aEval(aAddr,{|c,n| aAddr[n] := alltrim(c) })			// add: 09/10/2021
aEval(aCC,	{|c,n| aCC[n] := alltrim(c) })				//
aEval(aCCn,	{|c,n| aCCn[n] := alltrim(c) })				//

if oApp:lDemo .and. !lSilent
	msginfo("Impossibile inviare mail in modalità demo.")
	return (.f.)
endif

oMail := TSmtp():New(cServer, nPort, .t., cUser, cPwd)		// .t. = autenticazione
//tracelog(cMitt,cServer,cUser,cPwd,oMail:cIpServer)

oMail:bConnected  := {|| piede("Connesso, invio in corso..."+aAddr[1]) }
oMail:bConnecting := {|| piede("In connessione..."), cursorwait() }
oMail:bDone		:= {|oSmtp| /*WSACleanup(), */ piede("messaggio inviato."), lRet := .t. }	// add: WSACleanup() 27/02/2026
#ifdef CGI
	oMail:bFailure	:= {|oSmtp,cErr,cLastReply| tracelogNew( {cErr," Last reply: "+cLastReply}, "SendMail.log" ), lRet := .f. }
#else
	#ifdef FW2512
		// mod: 27/02/2026
		oMail:bFailure	:= {|oSmtp,nWSAErr,cLastReply| alert("WSA Error Code: "+AllTrim(Str(nWSAErr))+" Last reply: "+cLastReply,,,,,8),;
														tracelogNew({nWSAErr," Last reply: "+cLastReply}, "SendMail.log"),;
														lRet := .f. }
	#else
		oMail:bFailure	:= {|oSmtp,cErr,cLastReply| alert(cErr+" Last reply: "+cLastReply,,,,,8),;
													tracelogNew({cErr," Last reply: "+cLastReply}, "SendMail.log"),;
													lRet := .f. }
	#endif
#endif

oMail:nDelay   := 5           // era 1.5 - 19/03/2009 - 10/06/2009 - 5=05/09/2014
oMail:SendMail(cMitt,aAddr,cText,cOggetto,aAllega,aCC,aCCn,lReceipt,cHtm)

while lRet == nil .and. nTime++ < 60					// 1 min max per ogni mail
    cursorwait()
    sysrefresh()
    sysWait(1)
end
piede()
cursorArrow()
default lRet to ( oMail:end(), .f. )					// add: oMail:end() - 05/04/2018

tracelogNew( {if( lRet,"","Non ")+"Spedita => "+cServer, cMitt, aAddr, aCC, aCCn,;
				"last reply: "+cvalToChar(atail(oMail:acReply)),;
				"last error: "+oMail:cError, "Status: "+alltrim(str(oMail:nStatus)),;
				nTime, cOggetto, cText, cHtm, aAllega }, "SendMail.log" )
#ifdef FW2512
	syswait(0.2)										// microsleep - 05/03/2026
#endif

return (lRet)

if nPort != nil
   ::nPort = nPort
   BindToPort( ::nSocket, nPort )  // Bind is not needed for connect sockets
endif
``` [0-cite-0](#0-cite-0) 

The comment in the code even says: **"Bind is not needed for connect sockets"**. For an SMTP client, you only need to *connect to* the remote port — you should not *bind* the local socket to that same port. After the first email is sent and the socket is closed, the OS keeps port 25 in a `TIME_WAIT` state (typically 30-240 seconds on Windows). The next `TSmtp:New()` creates a new socket and tries to bind to local port 25 again, which fails with `WSAEADDRINUSE` (10048).

The `BindToPort` C function in `winsock.c` calls the Windows `bind()` API: [0-cite-1](#0-cite-1) 

The error surfaces in `TSmtp:OnConnect()`, where the `FD_CONNECT` event fires with error code 10048: [0-cite-2](#0-cite-2) 

## Why it worked in FW2002 32-bit

The 32-bit `WSAStartup` uses WinSock version `0x101` (1.1), while the newer/Unicode builds use `0x202` (2.2). Different WinSock versions may handle `TIME_WAIT` and port reuse differently. Also, 32-bit execution is typically slower, potentially giving more time for port cleanup between sends. [0-cite-3](#0-cite-3) 

## Why `syswait(0.2)` won't fix it

The Windows TCP `TIME_WAIT` period is typically **30 to 240 seconds**, not 200 milliseconds. A `syswait(0.2)` is far too short.

## Recommended Fix

The proper fix is in `TSocket:New()` — it should **not call `BindToPort()`** when the socket is used as a client (connect) socket. Since this is a FiveWin framework issue, I would recommend reporting it to Antonio Linares.

As a **workaround** in your `Spedisci` function, you can set `SO_REUSEADDR` on the socket right after creating the `TSmtp` object, before calling `SendMail`. This tells the OS to allow binding to a port that's in `TIME_WAIT`:

```prg
#define SOL_SOCKET    -1      // or 0xFFFF
#define SO_REUSEADDR   4

oMail := TSmtp():New(cServer, nPort, .t., cUser, cPwd)

// Allow reuse of port in TIME_WAIT state
SetSockOpt( oMail:oSocket:nSocket, SOL_SOCKET, SO_REUSEADDR, 1 )

// In TSmtp:New(), change:
//   ::oSocket := TSocket():New( nPort )
// To:
   ::oSocket := TSocket():New()        // Don't bind to any local port
   ::oSocket:nPort := nPort            // Store port for ConnectTo() to use
``` [0-cite-5](#0-cite-5) 

This way, `TSocket:New()` skips the `BindToPort()` call (since `nPort` is nil), and the port is still available for the `ConnectTo()` call via `::oSocket:nPort`: [0-cite-6](#0-cite-6) 

Alternatively, the `TSocket:New()` method could be modified to set `SO_REUSEADDR` before calling `BindToPort`:

```prg
if nPort != nil
   ::nPort = nPort
   SetSockOpt( ::nSocket, SOL_SOCKET, SO_REUSEADDR, 1 )  // Add this line
   BindToPort( ::nSocket, nPort )
endif

#ifdef FW2512
	oMail := TSmtp():New(cServer,, .t., cUser, cPwd)			// .t. = autenticazione
	oMail:oSocket:nPort := nPort							// set port after obj init - 06/03/2026
#else
	oMail := TSmtp():New(cServer, nPort, .t., cUser, cPwd)		// .t. = autenticazione
#endif