sending email using SMTP

Can someone help me with this. How do we send email using SMTP, in VB.

Sending via MAPI is ok, but want some info on SMTP !

Regards

use the winsock control

connect to the server on port 25

send commands in order (after it oks each one)

helo <domain name>

mail from:<your email> + vbcrlf

rcpt to:<to email> + vbcrlf

data + vbcrlf

then send your message like this
Subject: afsdklfds
dasfjhkljsdflk

end with a vbcrlf + "." + vbcrlf

send quit

- message has been sent!