Visual Basic 6 - Invio mail con server ESMTP e Winsock

Buonasera amici del sito,
cerco aiuto per portare a termine una prova con il componente Winsock di VB6.
Nello specifico voglio cercare di inoltrare semplici mail di testo. Il codice che fino ad ora ho scritto è il seguente

WS.Connect "mail.libero.it", 25
Pause 2
WS.SendData "EHLO " & IP & Chr(13) & Chr(10)
Pause 2
WS.SendData "AUTH LOGIN" & Chr(13) & Chr(10)
Pause 2
WS.SendData EncodeStr64("USERNAME" & Chr(13) & Chr(10)
Pause 2
WS.SendData EncodeStr64("PASSWORD" & Chr(13) & Chr(10)
Pause 2

WS.SendData "MAIL FROM: " & "<MITTENTE@LIBERO.IT>" & Chr(13) & Chr(10)
Pause 1
WS.SendData "RCPT TO: " & "<DESTINATARIO@LIBERO.it>" & Chr(13) & Chr(10)
Pause 1
WS.SendData "DATA" & Chr(13) & Chr(10)
Pause 1
WS.SendData "Date: " & Date & Chr(13)
WS.SendData "From:" & Mittente & Chr(13)
WS.SendData "To:" & Destinatario & Chr(13)
WS.SendData "Subject: " & OggettoMail & Chr(13) & Chr(13)
WS.SendData Tbody & Chr(13) 'send the body of the e-mail
WS.SendData "." & Chr(13) & Chr(10) 'ends the sending of Data
Pause 1
WS.SendData "QUIT" & Chr(13) & Chr(10) 'Exits server

Questo codice mi fa la seguente operatività con il server

220 cp-out7.libero.it ESMTP Service ready
EHLO 192.168.1.1

250-cp-out7.libero.it
250-DSN
250-8BITMIME
250-PIPELINING
250-HELP
250-AUTH=LOGIN
250-AUTH LOGIN CRAM-MD5 DIGEST-MD5 PLAIN
250-DELIVERBY 300
250 SIZE 15728640

AUTH LOGIN
334 Richiesta USERNAME in base64
USERNAME in base64
334 Richiesta PASSWORD in base 64
PASSWORD in base 64
235 LOGIN authentication successful

MAIL FROM: <mittente@libero.it>
250 MAIL FROM:<mittente@libero.it> OK
RCPT TO: <destinatario@libero.it>
250 RCPT TO:<orma240674@libero.it> OK
DATA
354 Start mail input; end with <CRLF>.<CRLF>
Date: 16/04/2010
From:mittente@libero.it
Toestinatario@libero.it
Subject: oggetto

messaggio
.

Per ulteriori informazioni, vai a: aiuto.libero.it/…

QUIT
221 cp-out7.libero.it QUIT

Ma la mail non arriva al destinatario!!!!!
C'è qualcuno che mi puo aiutare a capire dove sbaglio.
Grazie.
Marcello

intanto correggi questa stringa... non è EHLO ma HELO

la stringa EHLO e la presentazione per server ESMTP che sono l'evoluzione dei server SMTP.

ah scusa lol, non lo sapevo O.O allora non saprei...

non sapevo esistesse il protocollo esmtp ma guardando qui:
thedrakkar.altervista.org/it/guide/telnet/…

utilizza comunque helo... poi boh, non ti posso aiutare dato che non lo conosco

Grazie GrG,
la tua pagina fa riferimento a protocolli non supportati dal mio caso specifico.

Il server vuole comunicazione con protocollo CRAM-MD5 e DIGEST-MD5.

allora, prima testa il funzionamento del server e/o dei passaggi con telnet...



Quando fai ciò manualmente l'email l'invia, se no significa che sbagli il "procedimento" e quindi con una ricerca su google devi trovare quello corretto...

GrG, mi malgrado anche provando ad inviare con Telnet questa non arriva a destinazione.

Ma non capisco dov'è che si blocca visto che il server mi da ok nell'autentificazione,
ok nel indirizzo del mittente e ok nell'indirizzo del destinatario.

Se trovi qualcosa fammi sapere io continuo a leggere i documenti su questo.
Grazie
Marcello