Problem in Email programme

[single64]

i found a source code on a website, it uses simple mail transfer protocol. the problem is it runs property on my computer but failed on others' computer. i really want to know why it happened and how to solve it. is there anyone could help me?
here is the code:

'--------------------------------------------------
Public Connectf As Boolean
Public Answerf As Boolean
 
'------------------------------------------
Private Sub Command1_Click()
Help1.Show
End Sub
 
'---------------------------------
 
Private Sub Form_Load()
smtptest.Show
Servername.SetFocus
Answerf = False
Info.Text = Info.Text + vbCrLf
End Sub
'--------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'----------------------------------------------------
 
Private Sub Send_Click()
Answerf = False
On Error GoTo Sendfail
Winsock1.RemoteHost = Servername.Text
Winsock1.Connect
Waiting
Connectf = True
Info.Text = Info.Text + vbCrLf + "Send Local Domain:" + vbCrLf
Info.SetFocus
SendKeys "^{END}", True
Winsock1.SendData "HELO " + Frsvr.Text + vbCrLf
Waiting
Info.Text = Info.Text + "From:" + vbCrLf
Info.SetFocus
SendKeys "^{END}", True
Winsock1.SendData "MAIL FROM:" + Fromxx.Text + vbCrLf
Waiting
Info.Text = Info.Text + "To:" + vbCrLf
Info.SetFocus
SendKeys "^{END}", True
Winsock1.SendData "RCPT TO:" + Toyy.Text + vbCrLf
Waiting
Info.Text = Info.Text + "Context;" + vbCrLf
Info.SetFocus
SendKeys "^{END}", True
Winsock1.SendData "DATA" + vbCrLf
Waiting
Winsock1.SendData "Subject:" + Subj.Text + vbCrLf
Winsock1.SendData "Reply-To:" + Fromxx.Text + vbCrLf
Winsock1.SendData "To:" + Toyy.Text + vbCrLf
Winsock1.SendData "Organization: Caveman's Club" + vbCrLf
Winsock1.SendData "X-mailer: Smtp tester v1.0(Written By Caveman)" + vbCrLf
Winsock1.SendData "Mime-Version: 1.0" + vbCrLf
Winsock1.SendData "Content-Type: text/plain; charset=""us-ascii""" + vbCrLf
Winsock1.SendData "Content-Transfer-Encoding: 7bit" + vbCrLf
Winsock1.SendData vbCrLf + Body.Text + vbCrLf
Winsock1.SendData vbCrLf + "." + vbCrLf
Waiting
Info.Text = Info.Text + "Exit Connection" + vbCrLf
Info.SetFocus
SendKeys "^{END}", True
Winsock1.SendData "QUIT" + vbCrLf
Waiting
Info.Text = Info.Text + vbCrLf + "Complete"+ vbCrLf
Info.Text = Info.Text + vbCrLf
Info.SetFocus
SendKeys "^{END}", True
Winsock1.Close
Exit Sub
Sendfail:
Info.Text = Info.Text + vbCrLf + "Send Failed" + vbCrLf
Info.SetFocus
SendKeys "^{END}", True
Winsock1.Close
Send.SetFocus
Connectf = False
Answerf = False
End Sub
'--------------------------------------------------------
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Comedata As String
Winsock1.GetData Comedata
If Len(Info.Text) < 30000 Then
If Len(Info.Text + Comedata) < 60000 Then
Info.Text = Info.Text + Comedata
Else
Info.Text = Comedata
End If
Else
Info.Text = Comedata
End If
Info.SetFocus
SendKeys "^{END}", True
Answerf = True
End Sub
'--------------------------------------------------------
Public Sub Waiting()
Dim PauseTime, Start
    PauseTime = 60 
    Start = Timer   
    Do While Timer < Start + PauseTime And Not Answerf
            DoEvents    
    Loop
    Answerf = False
End Sub

'------------------------------------------------------------------------
Here is the result of the Info.text on my friend's computer
'------------------------------------------------------------------------


1111220 21cn.com SMTP Server of AIMC 2.9.5.2 .

Send Local Domain:
250 21cn.com, unknown.host<127.0.0.1> okay (DELAYED).
From:
250 <[email protected]>, sender ok.
To:
250 <drpsrec>, Local recipient ok.
Context:
354 Start mail input; end with <CRLF>.<CRLF>
554 From field in mail header mismatches MAIL FROM command.
Exit connection
221 21cn.com closing connection.

Complete

'--------------------------------------------------------------
Here is the result of the Info.text on my computer
'---------------------------------------------------------------

220 tmailt1.svr.pol.co.uk ESMTP Exim 4.14 Sun, 04 Jan 2004 01:09:05 +0000

Send Local Domain:
250 tmailt1.svr.pol.co.uk Hello user-1852.l4a.c1.dsl.pol.co.uk [81.77.247.60]
From:
250 OK
To:
250 Accepted
Context:
354 Enter message, ending with "." on a line by itself
250 OK id=1AcwlO-0005Lx-DP
Exit connection
221 tmailt1.svr.pol.co.uk closing connection

Complete
'-------------------------------------------------------------------------

Could any one tell me what is the problem??