Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Problema non identificato!
Forum - C# / VB.NET - Problema non identificato!

Avatar
alex2thebest (Normal User)
Rookie


Messaggi: 23
Iscritto: 17/05/2008

Segnala al moderatore
Postato alle 15:09
Sabato, 19/07/2008
Salve, ho un problema da cui non riesco a uscirne!!!
sto creando un programma per l'invio di e-mail anonime e non riesco a risolvere 2 errori insistenti, potreste aiutarmi?

gli errori sono: Impossibile convertire il valore di tipo 'String' in 'System.Net.Mail.MailAddress'.

La proprietà 'To' è 'ReadOnly'

ecco il sorgente:

Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net
  2. Imports System.Net.Mail
  3.  
  4. Public Class Form1
  5.  
  6.     Dim svr
  7.     Dim Importanza
  8.     Dim allega
  9.  
  10.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  11.         ProgressBar1.Maximum = 100
  12.         ProgressBar1.Minimum = 0
  13.         ProgressBar1.Value = 0
  14.     End Sub
  15.  
  16.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  17.         allega = InputBox("Inserisci il percorso del file da allegare")
  18.     End Sub
  19.  
  20.     Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  21.  
  22.     End Sub
  23.  
  24.     Public Sub SendMail()
  25.         Dim mittente = TextBox1.Text
  26.         Dim destinatario = TextBox2.Text
  27.         Dim oggetto = TextBox3.Text
  28.         Dim Testo = RichTextBox1.Text
  29.         Dim serversmtp = svr
  30.         Dim allegato = allega
  31.         Dim myMail As New MailMessage()
  32.         myMail.From = mittente
  33.         myMail.To = destinatario
  34.         myMail.Subject = oggetto
  35.         myMail.Body = "<html><body>Text</body></html>"
  36.         myMail.Priority = Importanza
  37.         Dim myAttachment As New Mail.Attachment(allegato)
  38.         myMail.Attachments.Add(myAttachment)
  39.         Dim Smtp As New SmtpClient
  40.         Smtp.Host = serversmtp
  41.         Smtp.Send(myMail)
  42.     End Sub
  43.  
  44.  
  45.     Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
  46.  
  47.     End Sub
  48.  
  49.     Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
  50.  
  51.     End Sub
  52.  
  53.     Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
  54.  
  55.     End Sub
  56.  
  57.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  58.         svr = InputBox("Inserisci il server SMTP, se non ne conosci inserisci out.alice.it")
  59.     End Sub
  60.  
  61.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  62.         Timer1.Start()
  63.     End Sub
  64.  
  65.     Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
  66.  
  67.     End Sub
  68.  
  69.     Public Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
  70.         Importanza = MailPriority.Low
  71.     End Sub
  72.  
  73.     Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
  74.         Importanza = MailPriority.High
  75.     End Sub
  76.  
  77.     Public Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
  78.         Importanza = MailPriority.Normal
  79.     End Sub
  80.  
  81.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  82.         If ProgressBar1.Value = 100 Then
  83.             Timer1.Stop()
  84.             SendMail()
  85.         Else
  86.             ProgressBar1.Value = ProgressBar1.Value + 1
  87.         End If
  88.     End Sub
  89.  
  90.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  91.         Timer1.Stop()
  92.     End Sub
  93. End Class


PM Quote
Avatar
lorenzo (Normal User)
Guru


Messaggi: 1178
Iscritto: 15/04/2008

Segnala al moderatore
Postato alle 23:04
Sabato, 19/07/2008
1) se la proprietà .To è readonly significa che non puoi assegnarle un valore come fai tu.
Puoi solo leggerla, non scriverla.

Per il secondo sarebbe meglio che tu indicassi dove ti da errore.
Comunque la variabile stringa che hai definito non deve essere string ma System.Net.Mail.MailAddress.

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 9:52
Domenica, 20/07/2008
Se non ricordo male uno dei costruttori di MailMessage ti permette di impostare già mittente e destinatario come stringhe.

P.S.: se non vuoi che muoia d'infarto, dai un tipo a quelle variabili, ti prego!

PM Quote
Avatar
alex2thebest (Normal User)
Rookie


Messaggi: 23
Iscritto: 17/05/2008

Segnala al moderatore
Postato alle 10:55
Domenica, 20/07/2008
Please, mi diresti questo costruttore per settare mittente e destinatario?

Le variabili... adesso ci penso :rotfl::rotfl:

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 11:39
Lunedì, 21/07/2008
http://msdn.microsoft.com/it-it/library/14k9fb7t(VS.80).aspx
Codice sorgente - presumibilmente C# / VB.NET

  1. Dim Mail As New MailMessage("indirizzo@mittente.it", "indirizzo@destinatario.it")


PM Quote