[VB6] Invio di email con protocollo SMTP

[ranza!!!123]

Dim ricevi As String
Private Sub spedisci()
   tcp1.Connect "smtp.libero.it", 25
   delay
   tcp1.SendData "RSET" & vbCrLf
   delay
   tcp1.SendData "HELO ciao" & vbCrLf
   delay
   tcp1.SendData "MAIL FROM: <goku65@libero.it>" & vbCrLf
   delay
   tcp1.SendData "RCPT TO: <lollandia@libero.it>" & vbCrLf
   delay
   tcp1.SendData "DATA" & vbCrLf
   delay
   tcp1.SendData "Subject: PROVA" & vbCrLf
   delay
   tcp1.SendData "CIAO PANINO!" & vbCrLf
   delay
   tcp1.SendData "." & vbCrLf
   delay
End Sub

Private Sub Command1_Click()
tcp1.Close
spedisci
End Sub

Private Sub TCP1_DataArrival(ByVal bytesTotal As Long)
  tcp1.GetData Dalserver, vbString
  ricevi = Dalserver
  List1.AddItem ricevi & vbCrLf
End Sub

Private Sub delay()
Do While ricevi = ""
DoEvents
Loop
End Sub

Private Sub tcp1_SendComplete()
MsgBox "FUNZICA"
End Sub

sto cercando di mandare emails da vb, ho provato con questo codice, ke dovrebbe essere corretto, però non lo è perchè non le manda le email, dove sbaglio?

[oregon]

Probabilmente e' libero.it che non ti consente di inviare posta in questo modo ... per motivi di sicurezza ...

[alka]

Originariamente inviato da ranza!!!123
sto cercando di mandare emails da vb, ho provato con questo codice, ke dovrebbe essere corretto, però non lo è perchè non le manda le email, dove sbaglio?

Dal tuo codice, non sembra esserci l'intercettazione di un eventuale errore: in questo modo, non puoi capire qual è il problema e quindi risolverlo.

P.S.: ti colleghi ad un POP di Libero prima di tentare l'uso del server SMTP di questo provider, vero?

Ciao!

[ranza!!!123]

no, ma mi sembra strano,ho provato anche con smtp.email.it e altri...cioè se riesco a mandare la posta con outlook da qualsiasi smtp perchè via codice non riesco? ora provo a vedere x intercettare qualche errore, voglio far notare ke non riesco a mandarle neanche se faccio tutto da telnet...
quindi il problema non è del codice...

[alka]

Originariamente inviato da ranza!!!123
voglio far notare ke non riesco a mandarle neanche se faccio tutto da telnet...

Ma scusa, il telnet che errore ti restituisce??

[ranza!!!123]

quando faccio
RCPT TO: <indirizzo>
e premo invio mi da l'errore
relaying not allowed

[oregon]

Come ti si diceva prima ... il relay non e' consentito per motivi di sicurezza.

Devi essere collegato e devi essere autenticato altrimenti non puoi spedire posta.