vb6 e winsock errore!

[Etilico]

Ciao ragazzi, ho creato un pgm che dovrebbe inviare una mail utilizzando telnet e il protocollo smtp...

la mail viene inviata usando il seguente code:

Private Sub cmdInvia_Click()
    On Error Resume Next
    
    'CONTROLLO DEI CAMPI 
    If (txtMittente = "" Or txtDestinatario = "" Or txtTesto = "" _
      Or txtPorta = "" Or txtServer = "") Then
        MsgBox "Uno o più campi obbligatori non sono stati " _
             & "compilati!", vbCritical, "Errore!"
    Else
        'CONNESSIONE AL SERVER
        Winsock.RemoteHost = txtServer
        Winsock.RemotePort = txtPorta
        Winsock.Connect
        
        Winsock.SendData "telnet vallauri1 25"
        aspetta "220"
        Winsock.SendData "HELO " & "Pippo" & vbCrLf
        aspetta "250"
        Winsock.SendData "MAIL FROM: " & txtMittente & vbCrLf
        aspetta "250"
        Winsock.SendData "RCPT TO: " & txtDestinatario & vbCrLf
        aspetta "250"
        Winsock.SendData "DATA" & vbCrLf & "subject:" _
                         & txtOggetto & vbCrLf & txtTesto & vbCrLf
        aspetta "354"
        Winsock.SendData txtTesto & vbCrLf & "." & vbCrLf
        aspetta "250"
        Winsock.SendData "QUIT" & vbCrLf
        aspetta "221"
        
        Winsock.Close
        
        'CONTROLLO ERRORI
        If (Err.Number = 0) Then
            MsgBox "Messaggio Inviato con Successo!", _
                   vbInformation, "Messaggio inviato"
        Else
            MsgBox "Impossibile inviare il messaggio!" & vbCrLf _
                 & "Si è verificato un'errore!", _
                 vbCritical, "Impossibile Inviare"
            MsgBox Err.Description
        End If
    End If
End Sub

ma alla fine ricevo sempre questo errore:

protocollo o stato della connessione errato per la translazion richiesta o la richiesta

sapete aiutarmi????

[ladyBlu]

Per il visual basic esiste il forum specifico (< QUI >): ti sposto là.

Ti ricordo che nel titolo devi specificare anche la versione di visual basic che utilizzi, come da regolamento: Leggi_Regolamento

[Etilico]

chiedo perdono!

[Etilico]

:quote:

[Etilico]

aiutoooo! :quote:

[i'mshady]

dopo ogni "senddata" prova a mettere un doevents

ma "aspetta" cos'è, un'altra sub?? la puoi postare?

[Etilico]

Eccola:

Sub aspetta(codice As String) 'SUB CHE VERIFICA LA RISPOSTA DEL SERVER
    Do While Left(RispostaWinsock, 3) <> codice
        DoEvents 'PER EVITARE DI BLOCCARE TUTTO IN CASO DI ERRORI!
    Loop
    
    RispostaWinsock = ""
End Sub

[kuarl]

ho lo stesso identico problema, il server a cui si tenta di collegare xò è un applicazione java scritta da me.... si connette (il server riceve la connessione), ma quando tento di inviare qualcosa al server si pianta e mi da quell'errore.... help!

[edit] credo che l'errore si trovi sul metodo di connessione, eppure è strano, sul server java la connessione viene accettata, anche se data la comparsa di quest'errore nn si riesce a comunicare....

[junx]

Winsock.Connect

Winsock.SendData "telnet vallauri1 25"

Generalmente io quando ho usato Winsock prima di inviare dati mi assicuravo che la connessione fosse realmente stabilita:


Winsock.Connect

    Do Until Winsock1.State = sckConnected 
        DoEvents
    Loop

Winsock.SendData "telnet vallauri1 25"

[kuarl]

Originariamente inviato da junx
Generalmente io quando ho usato Winsock prima di inviare dati mi assicuravo che la connessione fosse realmente stabilita:


Winsock.Connect

    Do Until Winsock1.State = sckConnected 
        DoEvents
    Loop

Winsock.SendData "telnet vallauri1 25"

sei un grande funziona!! :metallica