[VB] Per chi usa Telnet o lo sa usare

[jabjoint]

io mi connetto al mio "server" usando telnet su porta "25".
poi scrivo:
----------------
+ AUTH LOGIN

Lui Risponde:
- 334 VXNlcm5hbWU6
----------------
(che tradotto vuol dire "Username:")
quindi io inserisco l' username nella sua lingua.

Lui Risponde:
- 334 UGFzc3dvcmQ6
----------------
(che tradotto vuol dire "Password:")
quindi io inserisco la password nella sua lingua.

Lui Risponde:
235 ok, go ahead (#2.0.0)
----------------
Ora scrivo la mia e-mail:

+ mail from:<porcalamiseria@yahoo.it>

'Lui risponde:

- 250 ok
----------------
Inserisco l' e-amil destinatario:

+ mail rcpt:<porcalamiseria@yahoo.it>

'Lui risponde:

- 250 ok
-------------------- E ADESSO CHE COSA SCRIVO per inviarmi un messaggio?????????
HO SCRIITO: "DATA"

[ans]

Data è il corpo del messaggio, quindi dovrai inviare il . per dire che hai terminato.

[steno12]

prova in vb:
l'ho testato e funziona soltanto che quando arriva l'email è senza mittente, per vedere il mittente devi andare su proprietà dell'email
se qualcuno ci riesce posti come ha fatto a inserire il mittente e visualizzarlo nel suo box.

Dim ricevi As String
Winsock1.Connect "mail.server.it", 25
ricevi = ""
delay
Winsock1.SendData "RSET" & vbCrLf
ricevi = ""
delay
Winsock1.SendData "HELO ciao" & vbCrLf
ricevi = ""
delay
Winsock1.SendData "MAIL FROM: tua@email.it" & vbCrLf
ricevi = ""
delay
Winsock1.SendData "RCPT TO: tua@email.it" & vbCrLf
ricevi = ""
delay
Winsock1.SendData "DATA" & vbCrLf
ricevi = ""
delay
Winsock1.SendData "Subject: soggetto" & vbCrLf & vbCrLf
ricevi = ""
delay
Winsock1.SendData "ciao amico" & vbCrLf & "come va" & vbCrLf
ricevi = ""
delay
Winsock1.SendData "." & vbCrLf
ricevi = ""
delay
Winsock1.Close
beep
msgbox("email spedita")

Public Sub delay()
pausa = 10
inizia = Timer

Do While Timer < inizia + pausa
DoEvents
If ricevi <> "" Then GoTo fuori
Loop
fuori:

End Sub







link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[jabjoint]

Grazie Steno lo provo subito!

[jabjoint]

Steno nn mi dà nessun errore anzi mi dice messaggio spedito ma nn mi arriva nulla.
Ho provato con Telnet, mi sono autentificato e tutto e funziona.

[steno12]

mail.server.it
server deve essere il tuo provider e tua@email deve essere del tuo provider

a me funziona.............

[jabjoint]

Si certo ho fatto cosi'. Ma bho...
Credo che il mio server necessiti dell' autentificazione(smtp.mail.yahoo.it)
Tu cos' hai?

[steno12]

con aruba, libero funziona altri non nè ho provati........

[ans]

Se con Telnet fai l'autenticazione anche con VB devi farla.

[steno12]

prima prova quel listato su aruba......poi ne riparliamo