Newsgroup: it.comp.lang.visual-basic
Titolo: Winsock e email

Salve a tutti
Come posso utilizzare il controllo winsock x spedire email? magari con
allegati?
Ho provato l'esempio ke c'ш sul sito comune ma non mi funziona e
sinceramente c capisco poko!
Mi fareste un esempio veloce veloce?
Grazie 1000 a tutti!
--
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј
                       Home Page
 
http://www.maziar.3000.it
 
maz...@inwind.it
                     C6: 83goku83
                    ICQ: 78428181
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј

| Come posso utilizzare il controllo winsock x spedire email? magari con
| allegati?
| Mi fareste un esempio veloce veloce?
Dim Response as String
Private Sub Attendi()
    Do Until Response <> ""
        DoEvents
    Loop                   'Attendiamo che il server risponda...
    'ricorda di mettere un controllo che se per caso il server ha qualche
    'problema ti va in Loop
End Sub
Private Sub cmdInvia_Click()
    sck1.RemoteHost = txtServer.Text '
mail.tin.it
, 
mail.libero.it
 ....
    sck1.RemotePort = 25 ' porta dell'SMTP
    sck1.Connect      'Ti dovrebbe comparire il menu della connessione
    Attendi
    sck1.SendData "HELO " & txtProvider.Text & vbNullChar
    'ci presentiamo...
    Attendi
    sck1.SendData "MAIL FROM: " & txtMittente.Text & vbNullChar
    'indirizzo del mittente...
    Attendi
    sck1.SendData "RCPT TO: " & txtDest.Text & vbNullChar
    'indirizzo del destinatario...
    Attendi
    sck1.SendData "DATA" & vbNullChar
    'siamo pronti a inviare i dati del messaggio...
    Attendi
    sck1.SendData "From: " & txtNomeMittente.Text & vbNullChar
    'nome che comparirą sul programma di posta del destinatario...
    sck1.SendData "To: " & txtNomeDest.Text & vbNullChar
    'nome del destinatario...
    sck1.SendData "Subject: " & txtOggetto.Text & vbNullChar
    'oggetto del messaggio...
    sck1.SendData "Data: " & txtData.Text & vbNullChar
    'data del messaggio...
    sck1.SendData vbCrLf & vbNullChar
    'adesso viene il testo del messaggio...
    sck1.SendData txtMessaggio.Text & vbNullChar
    'appunto...
    sck1.SendData vbCrLf & vbNullChar
    sck1.SendData vbCrLf & vbNullChar
    sck1.SendData "." & vbNullChar
    'formula di chiusura del messaggio
    Attendi
    sck1.SendData "QUIT" & vbNullChar
    'chiudiamo il collegamento col server
    MsgBox "Messaggio inviato"
    sck1.Close 'chiudiamo la sessione WinSock
End Sub
Private Sub sck1_DataArrival (ByVal bytesTotal As Long)
    sck1.GetData Response
    ' quando arriva qualcosa dal server lo passo a response
End Sub

 wrote in message 8o11sh$7s6$1...@nslave1.tin.it...

Solo una cosa
sck1.SendData "MAIL FROM: <" & txtMittente.Text & ">" &vbNullChar
     'indirizzo del mittente...
     Attendi
     sck1.SendData "RCPT TO: <" & txtDest.Text & ">" & vbNullChar
     'indirizzo del destinatario...
senza i segni <> su alcuni server non funziona ...!!!!!!!!! ti conviente
specificarli sempre
ciao

| senza i segni <> su alcuni server non funziona ...!!!!!!!!! ti conviente
| specificarli sempre
| ciao
Grazie, non lo sapevo... solo su mail from?

Grazie a tutti, ma x aggiungere degli allegati qual'è il comando da usare
con telnet?
Fatemi un esmpio!
Grazie 1000!!!

 wrote in message
news:8o399e$5lm$1...@sirmdpsin16.inwind.it...
