Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET] Email sender
Forum - C# / VB.NET - [VB.NET] Email sender

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
torre92 (Normal User)
Rookie


Messaggi: 22
Iscritto: 01/08/2007

Segnala al moderatore
Postato alle 14:19
Martedì, 31/08/2010
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

  1. Imports System.Net.Mail
  2. Imports System.Net
  3.  
  4. Public Class Form1
  5.     Dim client As SmtpClient
  6.  
  7.     Sub Invia()
  8.         If txtdestinatario.Text = "" Then
  9.             MsgBox("Errore nel campo destinatario", MsgBoxStyle.Critical, "Errore")
  10.             Return
  11.         End If
  12.  
  13.         If txtmittente.Text = "" Then
  14.             MsgBox("Errore nel campo mittente", MsgBoxStyle.Critical, "Errore")
  15.             Return
  16.         End If
  17.  
  18.         If txtoggetto.Text = "" Then
  19.             MsgBox("Errore nel campo oggetto", MsgBoxStyle.Critical, "Errore")
  20.             Return
  21.         End If
  22.  
  23.         Dim msg As MailMessage
  24.         Dim dest As MailAddress
  25.         Dim author As New MailAddress(txtmittente.Text) 'Omesso il , "")
  26.         dest = New MailAddress(txtdestinatario.Text)    'Omesso il , "")
  27.  
  28.         msg = New MailMessage
  29.  
  30.         msg.Subject = txtoggetto.Text
  31.         msg.Sender = author
  32.         msg.From = author
  33.         msg.Body = testomsg.Text
  34.         msg.ReplyTo = author
  35.         msg.To.Add(dest)
  36.  
  37.         client = New SmtpClient(txtserver.Text)
  38.         Try
  39.             client.Credentials = New System.Net.NetworkCredential("", "")
  40.             client.Send(msg)
  41.             MsgBox("Email inviata correttamente", MsgBoxStyle.Information, "Email inviata")
  42.         Catch ex As Exception
  43.             MsgBox(ex.ToString, MsgBoxStyle.Critical, "ERRORE DI INVIO")
  44.         End Try
  45.     End Sub
  46.  
  47.  
  48.     Private Sub btninvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninvia.Click
  49.         Invia()
  50.     End Sub
  51.  
  52.     Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
  53.         End
  54.     End Sub
  55.  
  56.     Private Sub SmtpmailyahooitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpmailyahooitToolStripMenuItem.Click
  57.         txtserver.Text = "mail.libero.it"
  58.     End Sub
  59.  
  60.     Private Sub MailhclamelacomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MailhclamelacomToolStripMenuItem.Click
  61.         txtserver.Text = "smtp.live.com"
  62.     End Sub
  63.  
  64.     Private Sub Mail191itToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mail191itToolStripMenuItem.Click
  65.         txtserver.Text = "mail.191.it"
  66.     End Sub
  67.  
  68.     Private Sub OutaliceitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OutaliceitToolStripMenuItem.Click
  69.         txtserver.Text = "out.alice.it"
  70.     End Sub
  71.  
  72.     Private Sub SmtptiscaliitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtptiscaliitToolStripMenuItem.Click
  73.         txtserver.Text = "smtp.tiscali.it"
  74.     End Sub
  75.  
  76.     Private Sub SmtpmailyahoocomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpmailyahoocomToolStripMenuItem.Click
  77.         txtserver.Text = "smtp.mail.yahoo.com"
  78.     End Sub
  79.  
  80.     Private Sub SmtparubaitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtparubaitToolStripMenuItem.Click
  81.         txtserver.Text = "smtp.aruba.it"
  82.     End Sub
  83.  
  84.     Private Sub SmtpemailitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpemailitToolStripMenuItem.Click
  85.         txtserver.Text = "smtp.email.it"
  86.     End Sub
  87. End Class



PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 10:53
Mercoledì, 01/09/2010
Leggete il regolamento prima di postare:
Testo quotato

- 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)
PM Quote
Avatar
torre92 (Normal User)
Rookie


Messaggi: 22
Iscritto: 01/08/2007

Segnala al moderatore
Postato alle 13:51
Mercoledì, 01/09/2010
Testo quotato

Postato originariamente da Il Totem:

Leggete il regolamento prima di postare:
Testo quotato

- 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è...

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 16:03
Mercoledì, 01/09/2010
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)
PM Quote
Avatar
torre92 (Normal User)
Rookie


Messaggi: 22
Iscritto: 01/08/2007

Segnala al moderatore
Postato alle 13:06
Domenica, 05/09/2010
Allegato...


torre92 ha allegato un file: Cattura.JPG (42309 bytes)
Clicca qui per guardare l'immagine
PM Quote
Avatar
Grubby (Ex-Member)
Rookie


Messaggi: 27
Iscritto: 25/08/2010

Segnala al moderatore
Postato alle 13:17
Domenica, 05/09/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....
PM Quote
Avatar
torre92 (Normal User)
Rookie


Messaggi: 22
Iscritto: 01/08/2007

Segnala al moderatore
Postato alle 13:27
Domenica, 05/09/2010
Testo quotato

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...

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 14:12
Domenica, 05/09/2010
E' un errore che non mi è familiare, ma penso che questo possa esserti utile:
http://www.palomine.net/qmail/relaying.html


"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)
PM Quote
Avatar
torre92 (Normal User)
Rookie


Messaggi: 22
Iscritto: 01/08/2007

Segnala al moderatore
Postato alle 14:18
Domenica, 05/09/2010
ok grazie mille, adesso me lo studio per bene... :k:

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo