need simple smtp example/code

[lleemon]

I am very interested in learning more on sending email via smtp. I have downloaded code from planetsourcecode that does work at work (has T1 line) but for some reason I can't get to work at home on a dialup. So could someone send me (or point in the right direction) some code/information on a very, very simple smtp example of sending an email?

Thanks in advance for any help/information.

[flamewavetech]

Winsock1.RemoteHost = "wayneschools.com"
Winsock1.RemotePort = "25"
Winsock1.Connect "wayneschools.com", 25
MsgBox "You have Connected"
Do
DoEvents
Loop While Winsock1.State <> sckConnected
Winsock1.SendData ("HELO yahoo.com" & vbCrLf)

Winsock1.SendData "mail from:<" & from & ">" & vbCrLf

Winsock1.SendData "rcpt to: <" & to & ">" & vbCrLf
Winsock1.SendData ("data" & vbCrLf)

Winsock1.SendData "subject: " & thesubject & vbCrLf

Winsock1.SendData themessagebody & vbCrLf

Winsock1.SendData "." & vbCrLf

from, to, messagebody, and subject are all strings

[[Digital-X-Treme]]

Try this link: http://www.vbsquare.com/internet/sendmail-demo/

Also search on Planet Source Code for SMTP Mailers, Anonymous Mailers etc. http://www.planetsourcecode.com

Hope this helps