Inviare e-mail dal software creato

[Pinco Pallino 2]

>Volevo sapere se è possibile un invio di dati automatico.

esempio:

creo un form con un campo di testo e un bottone.

uno scrive nel campo di testo, preme il bottone e quello che ha scritto nel campo di testo viene inviato alla mia e-mail...una specie di form mail in eseguibile!

ciaooo!

[webporta.it]

comandi smtp, certo che si può fare!
Imposti il server smtp ed invii i comandi

[Pinco Pallino 2]

facile a dirsi...come di fa?

[webporta.it]

è una cavolato non ti credere...
Aggiungi un controllo Winsocket nel tuo progetto...
Imposti la sua proprietà remotehost a: smtp.email.it(uso il server email.it per l'invio)...la proprietà remoteport a 25!
E dopo esserti connesso gli invii i comandi per l'invio della email
HELO
MAIL FROM: <A@A.IT>
RCPT TO: <A#A.IT>
DATA
SCRIVI QUI IL MESSAGGIO
//LASCI UNO SPAZIO
. //INVII IL PUNTO CHE INDICA FINE DEL MESSAGGIO

TUTTO QUI...QUESTI SONO I COMANDI BASE PER L'INVIO DI UNA MAIL TRAMIT SERVER SMTP...
SE HAI PROB. POSTA PURE

P.S. PUOI FARE ANCHE UNA PROVA CON TELNET Start/Esegui/telnet
Cosi vedi anche le risposte del server per prevenire alcuni errori!

[Pinco Pallino 2]

per il settaggio del winsock no problem!
Per il codice nn ho capito nulla...mi scriveresti bene tutto (runtime compresa) abbi pazienza son proprio agli inizi!
CIAO!

[webporta.it]

Riguardo i comandi non hai capito nulla!?!?!?Ma che c'è da capire...!
Hai detto che con le winsocket nessun problema
Ok....allora....
Connetti la tua applicazione al server smtp (scegli quello che vuoi) alla porta 25(non cambiarla)
quando viene generato l'evento:

Private Sub socket_Connect()

  winsocket1.sendData "HELO" & vbCrLf 
    DoEvents
  winsocket1.sendData "MAIL FROM: <EMAIL@MITTINTE.IT>" & vbCrLf 
    DoEvents
  winsocket1.sendData "RCPT TO: <EMAIL@DESTINATARIO.IT>" & vbCrLf 
    DoEvents  
winsocket1.sendData "DATA" & vbCrLf 
   DoEvents  
  winsocket1.sendData "" & vbCrLf 'Invii una stringa vuota  :D 
   DoEvents  
  winsocket1.sendData "PROVA TESTO DEL MESSAGGIO" & vbCrLf 
   DoEvents  
  winsocket1.sendData "." & vbCrLf 'INVII LA FINE
   DoEvents  

     msgbox "EMAIL INVIATA"
 
End Sub

Certo questo è una bozza che potresti migliarare controllando le risposte che invia il server quando arrivano i tuoi messaggi..
Cmq già cosi dovrebbe funzionare...
Ti prego capiscimi sono l' 1:15
Cmq se hai problemi posta di nuovo..
Byez

[Pinco Pallino 2]

lo so ke è tardi e ti ringrazio...ma ci sono ancora molti buki...
ti scrivo che faccio io:

Creo un nuovo exe
nel form ci trascino
1 bottone
1 Microsoft Winsock 6
1 campo di testo


nel codice scrivo

Private Sub Command1_Click()
winsocket1.Connect
End Sub

Private Sub socket_Connect()

  winsocket1.SendData "HELO" & vbCrLf
    DoEvents
  winsocket1.SendData "MAIL FROM: <polistus.gallicus@inwind.it>" & vbCrLf
    DoEvents
  winsocket1.SendData "RCPT TO: <polistus.gallicus@inwind.it>" & vbCrLf
    DoEvents
winsocket1.SendData "DATA" & vbCrLf
   DoEvents
  winsocket1.SendData "" & vbCrLf 'Invii una stringa vuota
   DoEvents
  winsocket1.SendData "PROVA TESTO DEL MESSAGGIO" & vbCrLf
   DoEvents
  winsocket1.SendData "." & vbCrLf 'INVII LA FINE
   DoEvents

     MsgBox "EMAIL INVIATA"
 
End Sub

ma non funzia...(senza contare che io vorrei mandar come testo quello che c'è nella textbox...!
CIAOOO!!! :sgrat:

[webporta.it]

Originariamente inviato da Pinco Pallino 2
lo so ke è tardi e ti ringrazio...ma ci sono ancora molti buki...
ti scrivo che faccio io:

Creo un nuovo exe
nel form ci trascino
1 bottone
1 Microsoft Winsock 6
1 campo di testo


nel codice scrivo

Private Sub Command1_Click()
winsocket1.Connect
End Sub

Private Sub socket_Connect()

  winsocket1.SendData "HELO" & vbCrLf
    DoEvents
  winsocket1.SendData "MAIL FROM: <polistus.gallicus@inwind.it>" & vbCrLf
    DoEvents
  winsocket1.SendData "RCPT TO: <polistus.gallicus@inwind.it>" & vbCrLf
    DoEvents
winsocket1.SendData "DATA" & vbCrLf
   DoEvents
  winsocket1.SendData "" & vbCrLf 'Invii una stringa vuota
   DoEvents
  winsocket1.SendData "PROVA TESTO DEL MESSAGGIO" & vbCrLf
   DoEvents
  winsocket1.SendData "." & vbCrLf 'INVII LA FINE
   DoEvents

     MsgBox "EMAIL INVIATA"
 
End Sub

ma non funzia...(senza contare che io vorrei mandar come testo quello che c'è nella textbox...!
CIAOOO!!! :sgrat:

Se hai copiato il codice da me postato è logico chje non funziona perchè nell'evento connect() ho messo socket_connect()...invece di winsocket1_connect()
poi postami l'errore che ti da, altrimenti come faccio a risolverlo?!!?
Ciao..A presto
Byez

[hacker_nait]

POTETE AIUTARMI? CLICCATE SU UNA DOMANDINA FACILE FACILE VI PREGOOO!

[Pinco Pallino 2]

ci avevo già pensato ma non era quell il probl!
Sono un pirla l'oggetto winsock si kiamava winsock1.
l'ho rinominato winsocket e ora va!

Senti nell'e-mail nn mi appare il mittente e l'oggetto. come devo fare per vederlo?

E ancora per far si che il testo del messaggio sia quello che viene scritto in 2 campi di testo come si fa?

CIAO E GRAZIE DI TUTTO!