Visual Basic 6 - Creare un Server SMTP

Salve, avrei la necessità di creare un piccolissimo e semplicissimo server SMTP...
In pratica un software che intercetti gli invi sulla porta 25 (o qualunque altra) della macchina (tramite qualunque applicazione) e inoltri la stessa mail a un server SMTP da me definito con un certo utente e una certa password.

Di codici per inviare mail ne ho trovati tanti ma sulla prima parte, l'intercettazione gli invii, non so dove andare a parare...

Cosa potete suggerirmi? E quale meotdo di invio è per me più adatto in questo caso? Winsock? MAPI? CDO?

Grazie per le spiegazioni che saprete darmi, meglio ancora se con qualche esempio

Postate che serve anche a me...scusa ma non so aiutarti...

credo basti usare il winsock e mettersi in ascolto sulla porta 25...

Come al solito sono talmente agli inizi che ho bisogno di un esempio... ti dispiacerebbe scrivermelo per favore?

Il resto del codice dovrei riuscire a scriverlo da solo riadattando questo:
maurorossi.net/codice/…

Grazie come sempre della disponibilità

studia qua:

vbsimple.net/…
visual-basic.it/articoli/…
sorgentivb6.altervista.org/blog/

E invece per l'intercettazione della mail? Per mandare un messaggio scritto da zero pare semplice, ma non capisco come intercettare e trattare la mail che viene dal client

non devi "intercettare", ma "ricevere" l'email, quindi basta che controlli i dati che ti arrivano sulla porta 25...

ti consiglio prima di studiarti bene il winsock e seguire alcuni tutorial facendo programmi di esempio che lo utilizzano come ad esempio una chat

Perdonami ma mi sfugge un passaggio logico.
Mi sono documentato tramite questa guida:
pierotofy.it/pages/extras/forum/6/5098-file_con_winsock/

Ok, per mettersi in ascolto su una porta e mettere i dati che si ricevono in una variabile è semplicissimo...

Il fatto è che quando si invia una mail a un server SMTP quest'ultimo (che dovrei essere io) dà una serie di risposte, ad esempio:

telnet smtp.tre.it 25
220*******************************
helo tre.it
250 MIUMMR0MT03.um.ced.h3g.it Hello [xxx.xxx.xxx.xxx], pleased to meet you
MAIL FROM:mittente@unhost.it
250 mittente@unhost.it... Sender ok
RCPT TO:destinatario@unhost.it
250 destinatario@unhost.it... Recipient ok
data
354 Enter mail, end with "." on a line by itself
ciao a tutti
.
250 BOZ04244 Message accepted for delivery
quit
221 MIUMMR0MT03.um.ced.h3g.it closing connection

Come faccio a dare queste risposte al client in modo che per lui la transazione risulti riuscita?
Gli devo mandare solo il codice numerico seguito da un vbCrLf?