>>422 とりあえずRFCを読んでみるとよろしいかと。

ttp://www02.so-net.ne.jp/~hat/mailer/rfc.ja.html　（日本語訳）
ttp://ash.or.jp/ash/tips_prog/htm/telnet_smtp.htm

コードはこんな感じ。ものすごく単純化してあるし、まちがって
いるかもしれないので、このまま使わないでください。
あくまでも参考にということで。

------ここから
Private Sub Send()

Dim strHost As String
Dim strDomain As String
Dim strFrom As String
Dim strFromName As String
Dim strTo As String
Dim strSubject As String
Dim strData As String

With objWinsock
.RemoteHost = strHost
.RemotePort = 25
.Connect

Do While .State <> sckConnected Or Left$(mstrBuff, 3) <> "220"
DoEvents
Loop

.SendData "HELO " & strDomain & vbCrLf

Do While Left$(mstrBuff, 3) <> "250"
DoEvents
Loop