*** Basic send Email to an SMTP server with sockets
#INCLUDE wconnect.h
DO WCONNECT

loIP = CREATE( "wwSocket")
loIP.lStripNulls = .T.

CLEAR

? loIP.Connect("mail.somemailserver.net",25)

? loIP.Receive() && Welcome Message

? loIP.Send("helo Rick" + CRLF)

? loIP.Receive()

? loIP.Send("mail from: senderemail@yourserver.com" + CRLF)

? loIP.Receive()

? loIP.Send("rcpt to: <senderemail@yourserver.com>" + CRLF)

? loIP.Receive()

? loIP.Send("DATA" + CRLF)

? loIP.Receive()

TEXT TO lcMailBody NOSHOW
To: recipient@someserver.com
From: senderemail@yourserver.com (Rick Strahl)
Subject: Test Message

Whass-up, doc?
.
ENDTEXT

? loIP.Send(lcMailBody + CRLF)

? loIP.Receive()

? loIP.Send("quit" + CRLF)

? loIP.Receive()