Visual Basic 6 - Invio mail con server ESMTP e Winsock

Forum - Visual Basic 6 - Invio mail con server ESMTP e Winsock

Pagine: [ 1 2 ]

orma674 (Normal User)
Pro

Messaggi: 66
Iscritto: 02/06/2008

Postato alle 20:31
Venerdì, 16/04/2010

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
To

estinatario@libero.it
Subject: oggetto

messaggio
.

Per ulteriori informazioni, vai a: http://aiuto.libero.it/invioposta ;

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

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:22
Venerdì, 16/04/2010

Testo quotato

Postato originariamente da orma674:
WS.SendData "EHLO " & IP & Chr(13) & Chr(10)

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

orma674 (Normal User)
Pro

Messaggi: 66
Iscritto: 02/06/2008

Postato alle 21:45
Venerdì, 16/04/2010

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

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:56
Venerdì, 16/04/2010

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

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:58
Venerdì, 16/04/2010

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

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

orma674 (Normal User)
Pro

Messaggi: 66
Iscritto: 02/06/2008

Postato alle 22:20
Venerdì, 16/04/2010

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.

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 22:33
Venerdì, 16/04/2010

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

Testo quotato

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
To

estinatario@libero.it
Subject: oggetto

messaggio
.

Per ulteriori informazioni, vai a: http://aiuto.libero.it/invioposta ;

QUIT
221 cp-out7.libero.it QUIT

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...

orma674 (Normal User)
Pro

Messaggi: 66
Iscritto: 02/06/2008

Postato alle 22:38
Venerdì, 16/04/2010

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

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 9:14
Sabato, 17/04/2010

prova ad eliminare alcuni pezzi... intanto prova a levare:

Date: 16/04/2010
From:mittente@libero.it
To

estinatario@libero.it

quindi dopo DATA fai enter, poi scrivi Subject: ciao (enter) messaggio (enter) . (enter) e vedi se te l'invia

Pagine: [ 1 2 ]