Usare oggetto Winsock Codice di Massimo Meliga
WS.LocalPort = 0 If WS.State = sckClosed Then WS.Protocol = sckTCPProtocol WS.RemotePort = 25 WS.RemoteHost = "dcsia.inail.it" WS.Connect Do Until WS.State = 7 DoEvents Loop sRes = "0" WS.SendData "MAIL FROM: m.meliga@inail.it <mailto:m.meliga@inail.it>" & vbCrLf Do Until sRes = "250" DoEvents Loop sRes = "0" WS.SendData "RCPT TO: m.meliga@inail.it <mailto:m.meliga@inail.it>" & vbCrLf Do Until sRes = "250" DoEvents Loop sRes = "0" WS.SendData "DATA" & vbCrLf Do Until sRes = "354" DoEvents Loop If StCoiS.USER = "" Then WS.SendData "FROM: Utente non collegato" & vbCrLf Else WS.SendData "FROM: " & UCase(StCoiS.USER) & vbCrLf End If WS.SendData "SUBJECT: Errori COI" & vbCrLf & vbCrLf Wstr = "Forza Roma" 'corpo dell'email WS.SendData Wstr & vbCrLf WS.SendData "." + vbCrLf Do Until sRes = "250" DoEvents Loop sRes = "0" WS.SendData "QUIT" & vbCrLf Do Until sRes = "221" DoEvents Loop sRes = "0" WS.Close End If |