Winsock error

Jag har ett litet problem med winsock, jag fick ett svar på VBForums men fattar noll av svaret, någon som kan hjälpa mig?
http://www.vbforums.com/showthread.php?postid=1243128

Kort och gott... kolla att socket:en är uppkopplad innan du skickar nått.

Felet i din bifogade kod är att den förutsätter att mottagarsidan aldrig stänger socketen oväntat och inte hanterar det fallet. Du bör kolla att socketen fortfarande är öppen inne i:

Private Sub SendData(ByVal vsData As String)

    Winsock1.SendData vsData
    Debug.Print vsData
    If mbSaveSession Then
        Print #miSessionFile, vsData
    End If
    
End Sub

Om den inte är det bör du se till att funktionen "SendEmail" returnerar false och sen hantera det i din ASP-kod. Tex:

if objMHTML.SendEmail dbMailserver, ... then
	'mail skickat
else
	'mail inte skickat
end if

Det sista anropet Call SendData("quit" + vbCrLf) får du specialbehandla. Har den nått dit så är mailet skickat även om ett fel inträffar där.