Problem in Email programme

Printable View

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:
VB 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??:wave: :wave:

Jan 3rd, 2004, 08:55 PM
MartinLiss

How did you distribute the program? If you just copied the exe then that won't work most of the time and you need to create a set of setup files.

Also please use [vbcode][/vbcode] tags when posting code.
Jan 3rd, 2004, 09:21 PM
imbue
The smtp server is sending you "554 From field in mail header mismatches MAIL FROM command." I don't know what this means but let's assume that it thinks that the actual mail needs a from field.

Try adding:
VB Code:
```
Winsock1.SendData "From:" + Fromxx.Text + vbCrLf
```
Maybe it'll work, maybe not. Just something to try.:bigyello:
Jan 4th, 2004, 09:59 AM
single64

Quote:

Originally posted by MartinLiss
How did you distribute the program? If you just copied the exe then that won't work most of the time and you need to create a set of setup files.

Also please use [vbcode][/vbcode] tags when posting code.

sorry about that
it was my first time to post a question in this forum.
i used the pakage & development wizard to create a setup. but it still doesnt work on other's computers
Jan 4th, 2004, 10:38 AM
imbue

By not working do you mean that the program won't run at all and you get an error message or do you mean that the e-mail isn't being sent?
Jan 4th, 2004, 11:36 AM
single64

the email could not be sent on other computers
Jan 4th, 2004, 11:43 AM
imbue

Quote:

Originally posted by single64
the email could not be sent on other computers

Did you try adding the code I posted above?

Are you using the same smtp server on others' computers?

Are you getting any error messages?
Jan 4th, 2004, 12:21 PM
single64

Quote:

Originally posted by imbue
Did you try adding the code I posted above?

Are you using the same smtp server on others' computers?

Are you getting any error messages?

actually, we use the same smtp and the same email address, then i can send the email correctly but he can't. i posted the result of the info.text above which display the sending and receiving data. then i found the first different is at the beginning of the programme, it is

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).
on my friend's computer

but
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.xxx.xxx]
on my computer
i can't understand why it happened.