torre92 (Normal User)
Rookie
 
Messaggi: 22
Iscritto: 01/08/2007
|
Ciao a tutti, sono nuovo del mondo vb, o almeno lo facciamo a scuola ma ad un livello che fa rabbrividire... sto provando a fare un programma per inviare email ma tutte le volte che provo a inviare una email da errore...
Chi mi sa aiutare?
Codice sorgente - presumibilmente VB.NET |
Imports System.Net.Mail Imports System.Net Public Class Form1 Dim client As SmtpClient Sub Invia() If txtdestinatario.Text = "" Then MsgBox("Errore nel campo destinatario", MsgBoxStyle.Critical, "Errore") Return End If If txtmittente.Text = "" Then MsgBox("Errore nel campo mittente", MsgBoxStyle.Critical, "Errore") Return End If If txtoggetto.Text = "" Then MsgBox("Errore nel campo oggetto", MsgBoxStyle.Critical, "Errore") Return End If Dim msg As MailMessage Dim dest As MailAddress Dim author As New MailAddress(txtmittente.Text) 'Omesso il , "") dest = New MailAddress(txtdestinatario.Text) 'Omesso il , "") msg = New MailMessage msg.Subject = txtoggetto.Text msg.Sender = author msg.From = author msg.Body = testomsg.Text msg.ReplyTo = author msg.To.Add(dest) client = New SmtpClient(txtserver.Text) Try client.Credentials = New System.Net.NetworkCredential("", "") client.Send(msg) MsgBox("Email inviata correttamente", MsgBoxStyle.Information, "Email inviata") Catch ex As Exception MsgBox(ex.ToString, MsgBoxStyle.Critical, "ERRORE DI INVIO") End Try End Sub Private Sub btninvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninvia.Click Invia() End Sub Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click End End Sub Private Sub SmtpmailyahooitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpmailyahooitToolStripMenuItem.Click txtserver.Text = "mail.libero.it" End Sub Private Sub MailhclamelacomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MailhclamelacomToolStripMenuItem.Click txtserver.Text = "smtp.live.com" End Sub Private Sub Mail191itToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mail191itToolStripMenuItem.Click txtserver.Text = "mail.191.it" End Sub Private Sub OutaliceitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OutaliceitToolStripMenuItem.Click txtserver.Text = "out.alice.it" End Sub Private Sub SmtptiscaliitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtptiscaliitToolStripMenuItem.Click txtserver.Text = "smtp.tiscali.it" End Sub Private Sub SmtpmailyahoocomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpmailyahoocomToolStripMenuItem.Click txtserver.Text = "smtp.mail.yahoo.com" End Sub Private Sub SmtparubaitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtparubaitToolStripMenuItem.Click txtserver.Text = "smtp.aruba.it" End Sub Private Sub SmtpemailitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpemailitToolStripMenuItem.Click txtserver.Text = "smtp.email.it" End Sub End Class
|
|
|
|
Il Totem (Admin)
Guru^2
Messaggi: 3635
Iscritto: 24/01/2006
|
Leggete il regolamento prima di postare:
- Una precisazione sulla gestione degli errori
Ricordo, inoltre, di indicare - sempre, ove possibile - il nome, la descrizione, il tipo e la locazione dell'errore che si produce, annettendo l'eventuale codice. Questo evita molti post inutili del tipo "ma che errore dà?" oppure "ma in che punto del codice si blocca?" e via dicendo. |
"Infelici sono quelli che hanno tanto cervello da vedere la loro stupidità."
(Fligende Blatter)
"Dubitare di se stessi è il primo segno d'intelligenza."
(Ugo Ojetti) |
|
|
torre92 (Normal User)
Rookie
Messaggi: 22
Iscritto: 01/08/2007
|
Postato originariamente da Il Totem:
Leggete il regolamento prima di postare:
- Una precisazione sulla gestione degli errori
Ricordo, inoltre, di indicare - sempre, ove possibile - il nome, la descrizione, il tipo e la locazione dell'errore che si produce, annettendo l'eventuale codice. Questo evita molti post inutili del tipo "ma che errore dà?" oppure "ma in che punto del codice si blocca?" e via dicendo. |
|
sorry, hai pientamente ragione...
comunque l'errore è che va sempre nella eccezione del "try" e da diversi errori, dipende dal server che uso...
in poche parole con un sorgente che avevo trovato nella sezione download e con il server mail.x.com (per fare un esempio), la mail andava, mentre con questo da errore... e non capisco xkè... |
|
|
Il Totem (Admin)
Guru^2
Messaggi: 3635
Iscritto: 24/01/2006
|
Siamo sempre al punto di prima, non hai detto quale eccezione si verifica...
"Infelici sono quelli che hanno tanto cervello da vedere la loro stupidità."
(Fligende Blatter)
"Dubitare di se stessi è il primo segno d'intelligenza."
(Ugo Ojetti) |
|
|
torre92 (Normal User)
Rookie
Messaggi: 22
Iscritto: 01/08/2007
|
Allegato...
|
|
|
Grubby (Ex-Member)
Rookie
Messaggi: 27
Iscritto: 25/08/2010
|
Hai controllato che l'indirizzo a cui devi inviare l'e-mail sia valido?
Io non voglio essere un prodotto del mio ambiente, voglio che il mio ambiente sia un mio prodotto.... |
|
|
torre92 (Normal User)
Rookie
Messaggi: 22
Iscritto: 01/08/2007
|
Postato originariamente da Grubby:
Hai controllato che l'indirizzo a cui devi inviare l'e-mail sia valido?
|
Si si certo, ci ho messo il mio... |
|
|
Il Totem (Admin)
Guru^2
Messaggi: 3635
Iscritto: 24/01/2006
|
"Infelici sono quelli che hanno tanto cervello da vedere la loro stupidità."
(Fligende Blatter)
"Dubitare di se stessi è il primo segno d'intelligenza."
(Ugo Ojetti) |
|
|
torre92 (Normal User)
Rookie
Messaggi: 22
Iscritto: 01/08/2007
|
ok grazie mille, adesso me lo studio per bene... 
|
|
|
![C# / VB.NET - [VB.NET] Email sender](/data/logos/logositov9.png)
| 
torre92 ha allegato un file: Cattura.JPG (42309 bytes)