[VB.NET] Inviare email tramite SMTP

[giacomo1991]

Salve,
volevo chiedervi una informazione: devo far si che il programma che sto costruendo dia la possibilità di inviare email al mio indirizzo di posta da parte dell'utente.
Ho scritto questo codice ma non funziona, non riesco a capire due cose:
quale e' l'smtp da usare, e se è obbligatorio utilizzare l'user e la password personali per accedere il servizio.

Private Sub send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles send.Click

Dim user As String
Dim messaggio As String
Dim destinatario As String
Dim oggetto As String
Dim pass As String
Dim SMTP_SERVER As String
Dim nome_mittente As String
'Impostazioni Mittente
nome_mittente = Val(mittente.Text)
Dim mit As New Net.Mail.MailAddress(nome_mittente)
'Impostazioni Destinatario
destinatario = ("miamail")
Dim dest As New Net.Mail.MailAddress(destinatario)
'Impostazioni E-Mail
oggetto = (" Curtains 2010 - Messaggio utente")
Dim ms As New Net.Mail.MailMessage(mit, dest)
ms.Subject = oggetto
ms.Body = Val(textmail.Text)
'Connessione SMTP Server
SMTP_SERVER = ("smtp.gmail.com")
Dim m As New Net.Mail.SmtpClient(SMTP_SERVER, 25)
'Verifica Credenziali
user=("
Dim cr As New Net.NetworkCredential(user, pass)
m.Credentials = cr
'Invio Mail
m.Send(ms)
End Sub
End Class

[carmineabomb]

io di solito uso "out.alice.it" non richiede credenziali.

faccio così:

Net.Mail.MailMessage message = new Net.Mail.MailMessage(eMailMittente, eMailDestinatario, oggetto, messaggio);
Net.Mail.SmtpClient mailClient = new Net.Mail.SmtpClient("out.alice.it");
mailClient.Send(message);

[MItaly]

Originariamente inviato da giacomo1991
quale e' l'smtp da usare,

Dipende dall'ISP dell'utente; in alternativa puoi mettere in piedi un tuo server SMTP (nel qual caso dovrai inserire nel programma il suo indirizzo), oppure puoi usare una casella e-mail gratuita da dedicare a questo scopo, nel qual caso inserirai il server SMTP indicato dall'hoster di tale casella.

e se è obbligatorio utilizzare l'user e la password personali per accedere il servizio.

Per l'SMTP dell'ISP dell'utente di solito no; negli altri casi solitamente sì.

[MdE2005]

Mi ha preceduto carmineabomb, in ogni caso cerca su internet l'SMTP che ti interessa; per libero.it per esempio è: mail.libero.it

Ciao

[MItaly]

Originariamente inviato da carmineabomb
io di solito uso "out.alice.it" non richiede credenziali.

Questo solo se sei su connessione Telecom o se stai inviando la mail ad un destinatario che ha la casella gestita da Telecom. Io che sono su connessione Wind infatti non posso usare out.alice.it per spedire messaggi a chiunque:

matteo@teoubuntu:~$ telnet out.alice.it 25
Trying 82.57.200.132...
Connected to out.aliceposta.it.
Escape character is '^]'.
220 smtp207.alice.it ESMTP Service ready
EHLO io    
250-smtp207.alice.it
250-DSN
250-8BITMIME
250-PIPELINING
250-HELP
250-AUTH=LOGIN
250-AUTH LOGIN CRAM-MD5 DIGEST-MD5 PLAIN
250-DELIVERBY 300
250 SIZE
MAIL FROM:<io@io.it>
250 MAIL FROM:<io@io.it> OK
RCPT TO:<qualcuno@qualcunaltro.org>
    Se provo a spedire ad un dominio non-telecom
    giustamente non mi lascia - non è un open relay
550 RCPT TO:<qualcuno@qualcunaltro.org> Relaying not allowed - please use SMTP AUTH
RCPT TO:<padre.pio@alice.it>
    Se invece spedisco ad un utente loro giustamente
    mi consente (anche se non è sempre così, spesso
    viene usata una greylist per gli indirizzi IP
    residenziali, che non hanno motivo di contattare
    direttamente gli SMTP dei destinatari)
250 RCPT TO:<padre.pio@alice.it> OK
DATA
354 Start mail input; end with <CRLF>.<CRLF>
^]      

telnet> q
Connection closed.
matteo@teoubuntu:~$

[giacomo1991]

Inanzi tutto mille grazie per le risposte di aiuto.

Ho provato a fare così:

Dim eMailMittente As String
Dim eMailDestinatario As String
Dim oggetto As String
Dim messaggio As String
Dim SMTP As String
Dim message As String
eMailMittente = ("miamail@gmail.com")
eMailDestinatario = Val(us.Text)
messaggio = Val(textmail.Text)
oggetto = Val(ogg.Text)
Net.Mail.MailMessage(Message = New Net.Mail.MailMessage(eMailMittente, eMailDestinatario, oggetto, messaggio))
Net.Mail.SmtpClient(mailClient = New Net.Mail.SmtpClient("smtp.gmail.com"))
mail.ClientRectangle.Send(message)

premetto che uso telecom, ma non so se quelli che useranno il programma lo hanno.
Comunque ci sono errori in ogni rica che mi dicono: mail..... non possono essere usati come espressione.

[carmineabomb]

MItaly hai ragione...io ho telecom.
cmq ce ne sono di server che non hanno controlli, tempo fa utilizzavo libero e non avevo infostrada.

http://www.sandrodiremigio.com/docum...p3smtpnntp.htm

a quel link c'è una bella lista provali...

[giacomo1991]

Non capisco perché non funziona.

[MItaly]

Scusa, ma quelle due righe

Net.Mail.MailMessage(Message = New Net.Mail.MailMessage(eMailMittente, eMailDestinatario, oggetto, messaggio))
Net.Mail.SmtpClient(mailClient = New Net.Mail.SmtpClient("smtp.gmail.com"))

cosa mi dovrebbero rappresentare?

Net.Mail.MailMessage non sono funzioni, sono classi, non possono essere usate in quella maniera...

E poi, perché usi quei Val così a casaccio? Oltre al fatto che Val è deprecato in .NET, non ce n'è nessun bisogno, visto che sia la variabile che la property Text sono di tipo String...

Un consiglio: per il tuo bene, prima di continuare con .NET, leggiti un libro introduttivo su VB.NET, se continui a programmare come se fosse VB6 farai solo danni.

[Pirelli72]

Ho scritto questo codice ma non funziona, non riesco a capire due cose:
quale e' l'smtp da usare, e se è obbligatorio utilizzare l'user e la password personali per accedere il servizi

Ma non funziona cosa ??? Dove ??

Dim nome_mittente As String
'Impostazioni Mittente
nome_mittente = Val(mittente.Text)

E questa cosa cos'è??

Cioè a una stringa che sarebbe 'nome_mittente' assegni il risultato di una funzione che ritorna un Double per impostarlo come MailAddress??