Visual Basic 6 - problema di mail in VB6

Forum - Visual Basic 6 - problema di mail in VB6

Pagine: [ 1 2 3 4 ]

serf88 (Normal User)
Rookie

Messaggi: 47
Iscritto: 07/04/2007

Postato alle 20:40
Sabato, 07/04/2007

ciao a tutti ragazzi volevo porvi un problema che ho riscontrato in un programma di mail in VB6 molto elementare che ho creato...sono alle prime armi per cui ogni aiuto o consiglio sarà accettato più che volentieri...
come dicevo il programma è molto elementare e si basa sul invio di una nuova mail,lettura delle mail in entrata e collegarsi a una BBS...mentre le ultime due procedure funzionano alla grande ho riscontrato un problema nell invio...da quel che ho capito il winsocks sarebbe come usare telnet dal DOS per cui ho pensato che per l invio potevo utilizzare la procedura d'invio di una fake mail...dopo aver fatto la procedura e aver constatato che non funziona ho provato a inviarne una direttamente da telnet (collegandomi a mail.libero.it alla porta 25)e nel momento che inserivo "mail from: mio@indirizzo.it" il server mi rispondeva "501 syntax error in parameters or arguments to MAIL command"...per ciò suppongo che l errore del programma dipenda da questo... ora vi posto la procedura:

Private Sub Command3_Click()
tcp1.Connect Text1, Text2
ricevi = "": delay
Label7 = "connessione aperta"
tcp1.SendData "HELO " & Text7 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "helo"
tcp1.SendData "MAIL FROM: " & Text3 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "mail from"
tcp1.SendData "RCPT TO: " & Text4 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "recept to"
tcp1.SendData "DATA" & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "data"
tcp1.SendData "Subject: " & Text5 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "invio subject"
tcp1.SendData Text6 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "invio testo mail"
tcp1.SendData "." & Chr$(13) & Chr$(10)
ricevi = "": delay
tcp1.SendData Chr$(13) & Chr$(10) & "." & Chr$(13) & Chr$(10)
tcp1.SendData "QUIT" & Chr$(13) & Chr$(10)
Label7 = "disconnessione"
tcp1.Close
End Sub

NB ogni text è la relativa stringa da compilare nel programma per poi essere inviata al server

come vedete il programma è propio elementare però vi sarò molto grato se riusciste ad aiutarmi...grazi e scusate ancora...ciaooo

motoboy (Ex-Member)
Pro

Messaggi: 152
Iscritto: 05/04/2007

Postato alle 21:20
Sabato, 07/04/2007

Testo quotato

siamo qui per darti qualche consiglio..

Testo quotato

come dicevo il programma è molto elementare e si basa sul invio di una nuova mail,lettura delle mail in entrata e collegarsi a una BBS...mentre le ultime due procedure funzionano alla grande ho riscontrato un problema nell invio...da quel che ho capito il winsocks sarebbe come usare telnet dal DOS per cui ho pensato che per l invio potevo utilizzare la procedura d'invio di una fake mail...

Ho capito che progettino intendi realizzare..;-)
ci sono passato..
Continuando direi che secondo delle mie Idee VB, su Winsock non é come un TELNET ;-)
Ad ognuno il SUO ;-)

Testo quotato

dopo aver fatto la procedura e aver constatato che non funziona ho provato a inviarne una direttamente da telnet (collegandomi a mail.libero.it alla porta 25)e nel momento che inserivo "mail from: mio@indirizzo.it" il server mi rispondeva "501 syntax error in parameters or arguments to MAIL command"...per ciò suppongo che l errore del programma dipenda da questo... ora vi posto la procedura:

Ho capito.. perfettamente..
ma quello che mi chiedo, hai mai sentito parlare dell'istruzione SLEEP? :-?

Pensaci su..

Testo quotato

Private Sub Command3_Click()
tcp1.Connect Text1, Text2
ricevi = "": delay
Label7 = "connessione aperta"
tcp1.SendData "HELO " & Text7 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "helo"
tcp1.SendData "MAIL FROM: " & Text3 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "mail from"
tcp1.SendData "RCPT TO: " & Text4 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "recept to"
tcp1.SendData "DATA" & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "data"
tcp1.SendData "Subject: " & Text5 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "invio subject"
tcp1.SendData Text6 & Chr$(13) & Chr$(10)
ricevi = "": delay
Label7 = "invio testo mail"
tcp1.SendData "." & Chr$(13) & Chr$(10)
ricevi = "": delay
tcp1.SendData Chr$(13) & Chr$(10) & "." & Chr$(13) & Chr$(10)
tcp1.SendData "QUIT" & Chr$(13) & Chr$(10)
Label7 = "disconnessione"
tcp1.Close
End Sub

dovresti inserire lo SLEEP..
Vediamo se intuisci dove..

Testo quotato

NB ogni text è la relativa stringa da compilare nel programma per poi essere inviata al server

Non é difficile da comprendere

Testo quotato

come vedete il programma è propio elementare però vi sarò molto grato se riusciste ad aiutarmi...grazi e scusate ancora...ciaooo

si inizia sempre da qualcosa di elementare..
Potrò aiutarti..

Anche perché Non ho LE VACANZE (in questi giorni), ma vediamo se intuisci lo SLEEP

c.ronaldo (Normal User)
Expert

Messaggi: 577
Iscritto: 01/02/2007

Postato alle 11:10
Domenica, 08/04/2007

Scusa ma se non sbaglio lo sleep serve a mettere una pausa... :-|

PS : Occorrono le api :k:

Motoboy ma come mai i tuoi post si sono azzerati...???

Ultima modifica effettuata da c.ronaldo il 08/04/2007 alle 11:14

Hacker (Member)
Guru

Messaggi: 1014
Iscritto: 06/06/2006

Postato alle 12:26
Domenica, 08/04/2007

Testo quotato

Motoboy ma come mai i tuoi post si sono azzerati...???

Succede ad un qualunque user che diventa membro.
Infatti il neo-membro ricomincia con i post a 0,ed il vecchio user con cui aveva fatto carriera prende il Nome(con i vari vecchi attributi) di "No Data".

Ultima modifica effettuata da Hacker il 08/04/2007 alle 12:29

c.ronaldo (Normal User)
Expert

Messaggi: 577
Iscritto: 01/02/2007

Postato alle 12:28
Domenica, 08/04/2007

Ahh OK!!

serf88 (Normal User)
Rookie

Messaggi: 47
Iscritto: 07/04/2007

Postato alle 12:40
Domenica, 08/04/2007

x motoboy
capisco benissimo cosa intendi dire con lo sleep...sarebbe il modo per non inviare al server tutte le istruzioni in un solo blocco...se è così questo l ho risolto con l istruzione delay:

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

io penso che piu che un errore di programmazione il mio sia piu un errore sintattico...cioè sbaglio nella scrittore delle istruzioni da inviare al server...

motoboy (Ex-Member)
Pro

Messaggi: 152
Iscritto: 05/04/2007

Postato alle 20:24
Domenica, 08/04/2007

Testo quotato

Postato originariamente da c.ronaldo:

Scusa ma se non sbaglio lo sleep serve a mettere una pausa... :-|

PS : Occorrono le api :k:

Motoboy ma come mai i tuoi post si sono azzerati...???

il nostro AMICO ti ha risposto correttamente, infatti

Io ho dato una mia spiegazione per quanto riguarda l'invio di una Mail con il TERMINALE del Telnet (un servizio)

motoboy (Ex-Member)
Pro

Messaggi: 152
Iscritto: 05/04/2007

Postato alle 20:27
Domenica, 08/04/2007

Testo quotato

Postato originariamente da serf88:

x motoboy
capisco benissimo cosa intendi dire con lo sleep...sarebbe il modo per non inviare al server tutte le istruzioni in un solo blocco...se è così questo l ho risolto con l istruzione delay:

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

io penso che piu che un errore di programmazione il mio sia piu un errore sintattico...cioè sbaglio nella scrittore delle istruzioni da inviare al server...

ti farò sapere..

anni fa bazzicavo sul tuo progettino

Hacker (Member)
Guru

Messaggi: 1014
Iscritto: 06/06/2006

Postato alle 15:31
Lunedì, 09/04/2007

il problema principale sarebbe quello di inviare mail attraverso vb,o tramite telnet od ocx? :-|

Pagine: [ 1 2 3 4 ]