🚀 go-pugleaf

Beste,

Ik heb een klein mailclientje gemaakt, maar het werkt helaas niet.
Ik heb al uren liggen zoeken, maar vind de fout maar niet.

Hier begint de code:
<CODE>

Private Sub Form_Load()
Datum = Format(Now, "ddd, dd mmm yyyy hh:mm:ss  +0200")
Dim Mailbody As String
Mailbody = Datum & vbCrLf _
& "From: Pieter Huygens <phuygens@pandora.be>" & vbCrLf _
& "X-Mailer: Pieter Huygens mail client" & vbCrLf _
& "X-Accept-Language: en" & vbCrLf _
& "MIME-Version: 1.0" & vbCrLf _
& "To: Pieter Huygens <phuygens@pandora.be>" & vbCrLf _
& "Subject: Test" & vbCrLf _
& "Content-Type: text/html;" & vbCrLf _
& vbTab & "Charset=" & Chr(34) & "iso-8859-1" & Chr(34) & vbCrLf _
& "Content-Transfer-Encoding: 7 bit" & vbCrLf _
& vbCrLf & "Test" & vbCrLf & "."
Text1.Text = Mailbody
smtp.Close
smtp.LocalPort = 0
smtp.Protocol = sckTCProtocol
smtp.RemoteHost = "smtp.pandora.be"
smtp.RemotePort = 25
smtp.Connect
WaitFor ("220")
sendmail "HELO" & smtp.LocalHostName
WaitFor ("250")
sendmail "Mail From: phuygens@pandora.be"
WaitFor ("250")
sendmail "RCPT TO: phuygens@pandora.be"
WaitFor ("250")
sendmail "DATA"
WaitFor ("354")
sendmail Mailbody
WaitFor ("250")
sendmail "QUIT"
WaitFor ("221")
smtp.Close
End Sub
Sub sendmail(parameter As String)
If smtp.State = sckConnected Then
smtp.SendData parameter & vbCrLf
End If
End Sub
Sub WaitFor(ResponseCode As String)
    ' This code in this function was not writen by me just found on the net
    ' But just like to say thank's to who ever did write it.
    
    start = Timer ' Time event so won't get stuck in loop
    While Len(Response) = 0
        Tmr = start - Timer
        DoEvents ' Let System keep checking for incoming response 
**IMPORTANT**
        If Tmr > 50 Then ' Time in seconds to wait
            MsgBox "SMTP service error, timed out while waiting for 
response", 64
            Exit Sub
        End If
    Wend
    While Left(Response, 3) <> ResponseCode
        DoEvents
        If Tmr > 50 Then
            MsgBox "SMTP service error, impromper response code. Code should 
have been: " + ResponseCode + " Code recieved: " + Response, 64
            Exit Sub
        End If
    Wend

Response = "" ' Sent response code to blank **IMPORTANT**
End Sub

<END code>

Voila, dit is de code.
Normaal moet dat progje, als je het opent, een mail naar mijn adres sturen.
Maar dat doet hij dus niet.
Nochtans zie ik op de LED's van mijn kabelmodem dat hij probeert een 
verbinding te leggen met de smtp server.

Deze code is een beetje gebaseerd op de code van een ander progje, ik ben 
uit de source van dat progje wat aan het leren.

Alvast bedankt voor de hulp!
Pieter Huygens