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] Aiuto programma email
Forum - C# / VB.NET - [VB.NET] Aiuto programma email

Avatar
BustinGame (Normal User)
Newbie


Messaggi: 6
Iscritto: 07/02/2010

Segnala al moderatore
Postato alle 12:55
Domenica, 28/02/2010
Questo topic Ŕ stato chiuso dal moderatore

Salve a tutti, avrei una richiesta riguardo alla creazione di un programma per l'invio di emails. Penso che questo spieghi giÓ tutto... Praticamente, dopo parecchie ricerche in google, non riesco a ancora a crearlo, e quindi mi affido a un buon forum di programmatori.
Mi potreste scrivere il codice? Grazie infinite in anticipo.


E' pi¨ grande la botte o il bottone?
E' pi¨ grande la pulce o il pulcino?
Il bottino Ŕ una somma da dividere prima o dopo averla sottratta?
PM
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5702
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 13:04
Domenica, 28/02/2010
Testo quotato

Postato originariamente da BustinGame:

Mi potreste scrivere il codice?



No ... questo non l'otterrai in un "buon forum di programmatori".


Ricorda che nessuno Ŕ obbligato a risponderti e che nessuno Ŕ perfetto ...
---
Il grande studioso italiano Bruno de Finetti (uno dei padri fondatori del moderno Calcolo delle probabilitÓ) chiamava il gioco del Lotto Tassa sulla stupiditÓ.
PM
Avatar
fabriziorocca (Normal User)
Guru


Messaggi: 1162
Iscritto: 22/03/2009

Segnala al moderatore
Postato alle 13:25
Domenica, 28/02/2010
Ahah, no, comunque eccoti il codice:


Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net.Mail 'importo il Namespace
  2. 'Imports System.IO.File
  3.  
  4. Public Class Form1
  5.     Dim mail As MailMessage 'questa dichiarazione deve essere globale
  6.  
  7.  
  8.     'funzione per l'invio di un messaggio email
  9.     Private Sub invia_messaggioUNICO()
  10.         Try
  11.             Me.Cursor = Cursors.WaitCursor
  12.             mail = New MailMessage()
  13.  
  14.             'definisco i dati del mittente
  15.             Dim mittente As New MailAddress(TextBox1.Text.ToString, _
  16.                                             TextBox2.Text.ToString)
  17.             mail.From = mittente
  18.  
  19.             'aggiungo un destinatario, copiando questa
  20.             'riga si possono aggiungere destinatari multipli
  21.             mail.To.Add(TextBox6.Text.ToString)
  22.  
  23.             'definisco l'oggetto del messaggio
  24.             mail.Subject = TextBox7.Text.ToString '"Oggetto messaggio"
  25.  
  26.             'definisco la prioritÓ del messaggio
  27.             mail.Priority = ComboBox2.SelectedIndex 'Net.Mail.MailPriority.High
  28.  
  29.             If FormatoHTMLToolStripMenuItem.Checked = True Then
  30.                 'definisco la codifica del corpo del messaggio
  31.                 mail.BodyEncoding = System.Text.Encoding.UTF8
  32.                 'definisco il messaggio in modalitÓ HTML
  33.                 mail.IsBodyHtml = True
  34.             End If
  35.             If FormatoTestoToolStripMenuItem.Checked = True Then
  36.                 'definisco la codifica del corpo del messaggio
  37.                 mail.BodyEncoding = System.Text.Encoding.Unicode
  38.                 'definisco il messaggio in modalitÓ HTML
  39.                 mail.IsBodyHtml = False
  40.             End If
  41.             'definisco il corpo del messaggio
  42.             mail.Body = TextBox8.Text.ToString '"<html><head></head><body>" & TextBox8.Text & "</body></html>"
  43.  
  44.             If TextBox5.Text.Trim = Nothing Then
  45.                 mail.Attachments.Dispose()
  46.             Else
  47.                 'aggiungo un allegato specificandone il percorso esatto
  48.                 mail.Attachments.Add(New Attachment(TextBox5.Text.ToString))
  49.             End If
  50.  
  51.             'definisco l'indirizzo del server SMTP
  52.             Dim smtp As New SmtpClient(ComboBox1.Text.ToString.ToLower)
  53.             'definisco i dati per l'autenticazione al server SMTP
  54.             smtp.UseDefaultCredentials = False
  55.             smtp.Credentials = New Net.NetworkCredential(TextBox3.Text.ToString, _
  56.                                                      TextBox4.Text.ToString)
  57.  
  58.             'al termine dell'invio verra richiamata
  59.             'la funzione invio_completato
  60.             AddHandler smtp.SendCompleted, AddressOf invio_completato
  61.  
  62.             Dim Token As New Object
  63.             'invio il messaggio in modalitÓ asincrona
  64.             smtp.SendAsync(mail, Token)
  65.         Catch ex As SmtpException
  66.             'qui il codice da eseguire in caso di mancanza
  67.             'di una connessione ad internet
  68.             Me.Cursor = Cursors.Default
  69.             MsgBox("Nessuna connessione ad internet attiva", _
  70.                     MsgBoxStyle.Exclamation, _
  71.                     "Errore")
  72.             mail.To.Clear()
  73.             If TextBox5.Text.Trim <> "" Then
  74.                 mail.Attachments.Clear()
  75.             End If
  76.             mail.Dispose()
  77.         End Try
  78.     End Sub
  79.  
  80.     Private Sub invia_messaggioMultiplo()
  81.         Dim i As Integer
  82.         'ListBox1.Items.Add("indimio&")
  83.         Me.Cursor = Cursors.WaitCursor
  84.         Label11.Visible = True
  85.         For i = 0 To ListBox1.Items.Count - 1
  86.             '   If ListBox1.Items(i) = "indimio&" Then
  87.             'mail.To.Clear()
  88.             'mail.Attachments.Clear()
  89.             'mail.Dispose()
  90.             'Exit For
  91.             'End If
  92.             Try
  93.                 mail = New MailMessage()
  94.  
  95.                 'definisco i dati del mittente
  96.                 Dim mittente As New MailAddress(TextBox1.Text.ToString, _
  97.                                                 TextBox2.Text.ToString)
  98.                 mail.From = mittente
  99.  
  100.                 'aggiungo un destinatario, copiando questa
  101.                 'riga si possono aggiungere destinatari multipli
  102.                 Try
  103.                     'mail.To.Add(ListBox1.Items(i))
  104.                     mail.To.Add(ListBox1.Items(i).ToString)
  105.                     TextBox10.Text = ListBox1.Items(i)
  106.                 Catch
  107.                     mail.To.Add(ListBox1.Items(i) & "@niente.it")
  108.                     TextBox10.Text = ListBox1.Items(i) & "@niente.it"
  109.                 End Try
  110.                 'definisco l'oggetto del messaggio
  111.                 mail.Subject = TextBox7.Text.ToString '"Oggetto messaggio"
  112.  
  113.                 'definisco la prioritÓ del messaggio
  114.                 mail.Priority = ComboBox2.SelectedIndex 'Net.Mail.MailPriority.High
  115.                 If FormatoHTMLToolStripMenuItem.Checked = True Then
  116.                     'definisco la codifica del corpo del messaggio
  117.                     mail.BodyEncoding = System.Text.Encoding.UTF8
  118.                     'definisco il messaggio in modalitÓ HTML
  119.                     mail.IsBodyHtml = True
  120.                 End If
  121.                 If FormatoTestoToolStripMenuItem.Checked = True Then
  122.                     'definisco la codifica del corpo del messaggio
  123.                     mail.BodyEncoding = System.Text.Encoding.ASCII
  124.                     'definisco il messaggio in modalitÓ HTML
  125.                     mail.IsBodyHtml = False
  126.                 End If
  127.                 'definisco il corpo del messaggio
  128.                 mail.Body = TextBox8.Text.ToString '"<html><head></head><body>" & TextBox8.Text & "</body></html>"
  129.  
  130.                 If TextBox5.Text.Trim = Nothing Then
  131.                     mail.Attachments.Dispose()
  132.                 Else
  133.                     'aggiungo un allegato specificandone il percorso esatto
  134.                     mail.Attachments.Add(New Attachment(TextBox5.Text.ToString))
  135.                 End If
  136.  
  137.                 'definisco l'indirizzo del server SMTP
  138.                 Dim smtp As New SmtpClient(ComboBox1.Text.ToString.ToLower)
  139.                 'definisco i dati per l'autenticazione al server SMTP
  140.                 smtp.UseDefaultCredentials = False
  141.                 smtp.Credentials = New Net.NetworkCredential(TextBox3.Text.ToString, _
  142.                                                          TextBox4.Text.ToString)
  143.                 Label11.Text = "Mail inviate: " & i + 1 & " su " & ListBox1.Items.Count
  144.                 Label11.Refresh()
  145.                 'al termine dell'invio verra richiamata
  146.                 'la funzione invio_completato
  147.                 AddHandler smtp.SendCompleted, AddressOf invio_completatoMulti
  148.  
  149.                 Dim Token As New Object
  150.                 'invio il messaggio in modalitÓ asincrona
  151.                 'Dim riga As Integer
  152.                 ' Try
  153.                 smtp.SendAsync(mail, Token)
  154.                 'riga = LV1.Items.Count
  155.                 'Dim it As New ListViewItem(Now)
  156.                 ''Aggiungo SubItems nella ListView
  157.                 'it.SubItems.Add(TextBox10.Text)
  158.                 'it.SubItems.Add("Inviato con successo")
  159.                 ''Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  160.                 'LV1.Items.Insert(riga.ToString, it)
  161.                 'Catch
  162.                 '   riga = LV1.Items.Count
  163.                 '   Dim it As New ListViewItem(Now)
  164.                 '   'Aggiungo SubItems nella ListView
  165.                 '   it.SubItems.Add(TextBox10.Text)
  166.                 '   it.SubItems.Add("Errore: " & Err.Description)
  167.                 '   'Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  168.                 '   LV1.Items.Insert(riga.ToString, it)
  169.                 'End Try
  170.                 System.Threading.Thread.Sleep(200) 'Pausa Programma
  171.  
  172.             Catch ex As SmtpException
  173.                 'qui il codice da eseguire in caso di mancanza
  174.                 'di una connessione ad internet
  175.                 Me.Cursor = Cursors.Default
  176.                 MsgBox("Nessuna connessione ad internet attiva", _
  177.                         MsgBoxStyle.Exclamation, _
  178.                         "Errore")
  179.                 mail.To.Clear()
  180.                 If TextBox5.Text.Trim <> "" Then
  181.                     mail.Attachments.Clear()
  182.                 End If
  183.                 mail.Dispose()
  184.             End Try
  185.             System.Threading.Thread.Sleep(2000) 'Pausa Programma
  186.         Next
  187.         Me.Cursor = Cursors.Default
  188.     End Sub
  189.  
  190.  
  191.  
  192.     'la seguente funzione viene richiamata in ogni caso
  193.     'al termine dell'invio del messaggio
  194.     Private Sub invio_completato(ByVal sender As Object, _
  195.                     ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
  196.         Dim Token As Object = e.UserState
  197.         Dim riga As Integer
  198.         If e.Cancelled Then
  199.             Me.Cursor = Cursors.Default
  200.             'l'invio Ŕ stato annullato
  201.             'Debug.WriteLine("Invio annullato")
  202.             riga = LV1.Items.Count
  203.             Dim it As New ListViewItem(Now)
  204.             'Aggiungo SubItems nella ListView
  205.             it.SubItems.Add(TextBox6.Text)
  206.             it.SubItems.Add("Invio annullato")
  207.             'Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  208.             LV1.Items.Insert(riga.ToString, it)
  209.  
  210.             MsgBox("Invio annullato")
  211.         End If
  212.  
  213.         If e.Error IsNot Nothing Then
  214.             Me.Cursor = Cursors.Default
  215.             riga = LV1.Items.Count
  216.             Dim it As New ListViewItem(Now)
  217.             'Aggiungo SubItems nella ListView
  218.             it.SubItems.Add(TextBox6.Text)
  219.             it.SubItems.Add("Errore: " & e.Error.ToString)
  220.             'Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  221.             LV1.Items.Insert(riga.ToString, it)
  222.  
  223.             'si Ŕ verificato un'errore durante l'invio
  224.             'Debug.WriteLine("Errore: " & e.Error.ToString)
  225.             MsgBox("Errore: " & e.Error.ToString)
  226.         Else
  227.             Me.Cursor = Cursors.Default
  228.             'invio completato senza errori
  229.             'Debug.WriteLine("Invio completato")
  230.             riga = LV1.Items.Count
  231.             Dim it As New ListViewItem(Now)
  232.             'Aggiungo SubItems nella ListView
  233.             it.SubItems.Add(TextBox6.Text)
  234.             it.SubItems.Add("Invio completato")
  235.             'Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  236.             LV1.Items.Insert(riga.ToString, it)
  237.  
  238.             MsgBox("Invio completato")
  239.         End If
  240.  
  241.         mail.To.Clear()
  242.         If TextBox5.Text.Trim <> "" Then
  243.             mail.Attachments.Clear()
  244.         End If
  245.         mail.Dispose()
  246.     End Sub
  247.  
  248.  
  249.     'la seguente funzione viene richiamata in ogni caso
  250.     'al termine dell'invio del messaggio
  251.     Private Sub invio_completatoMulti(ByVal sender As Object, _
  252.                     ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
  253.         Dim Token As Object = e.UserState
  254.         Dim riga As Integer
  255.         If e.Cancelled Then
  256.             Me.Cursor = Cursors.Default
  257.             'l'invio Ŕ stato annullato
  258.             'Debug.WriteLine("Invio annullato")
  259.             riga = LV1.Items.Count
  260.             Dim it As New ListViewItem(Now)
  261.             'Aggiungo SubItems nella ListView
  262.             it.SubItems.Add(TextBox10.Text)
  263.             it.SubItems.Add("Invio annullato")
  264.             'Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  265.             LV1.Items.Insert(riga.ToString, it)
  266.  
  267.             'MsgBox("Invio annullato")
  268.         End If
  269.  
  270.         If e.Error IsNot Nothing Then
  271.             Me.Cursor = Cursors.Default
  272.             riga = LV1.Items.Count
  273.             Dim it As New ListViewItem(Now)
  274.             'Aggiungo SubItems nella ListView
  275.             it.SubItems.Add(TextBox10.Text)
  276.             it.SubItems.Add("Errore: " & e.Error.ToString)
  277.             'Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  278.             LV1.Items.Insert(riga.ToString, it)
  279.  
  280.             'si Ŕ verificato un'errore durante l'invio
  281.             'Debug.WriteLine("Errore: " & e.Error.ToString)
  282.             'MsgBox("Errore: " & e.Error.ToString)
  283.         Else
  284.             Me.Cursor = Cursors.Default
  285.             'invio completato senza errori
  286.             'Debug.WriteLine("Invio completato")
  287.             riga = LV1.Items.Count
  288.             Dim it As New ListViewItem(Now)
  289.             'Aggiungo SubItems nella ListView
  290.             it.SubItems.Add(TextBox10.Text)
  291.             it.SubItems.Add("Invio completato")
  292.             'Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  293.             LV1.Items.Insert(riga.ToString, it)
  294.  
  295.             'MsgBox("Invio completato")
  296.         End If
  297.  
  298.         mail.To.Clear()
  299.         ' If TextBox5.Text.Trim <> "" Then
  300.         'mail.Attachments.Clear()
  301.         'End If
  302.         mail.Dispose()
  303.     End Sub
  304.  
  305.  
  306.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  307.         If TextBox1.Text.Trim = "" Then
  308.             MsgBox("Inserisci indirizzo mail mittente.", MsgBoxStyle.Information, "Mail mancante")
  309.             TextBox1.Focus()
  310.             Exit Sub
  311.         End If
  312.         If TextBox2.Text.Trim = "" Then
  313.             MsgBox("Inserisci nome mittente.", MsgBoxStyle.Information, "Nome mancante")
  314.             TextBox2.Focus()
  315.             Exit Sub
  316.         End If
  317.         If TextBox3.Text.Trim = "" Then
  318.             MsgBox("Inserisci nome account.", MsgBoxStyle.Information, "Account mancante")
  319.             TextBox3.Focus()
  320.             Exit Sub
  321.         End If
  322.         If TextBox4.Text.Trim = "" Then
  323.             MsgBox("Inserisci la password account.", MsgBoxStyle.Information, "Password mancante")
  324.             TextBox4.Focus()
  325.             Exit Sub
  326.         End If
  327.         If ComboBox1.Text.Trim = "" Then
  328.             MsgBox("Inserisci server smtp.", MsgBoxStyle.Information, "Server SMTP mancante")
  329.             ComboBox1.Focus()
  330.             Exit Sub
  331.         End If
  332.         If TextBox7.Text.Trim = "" Then
  333.             MsgBox("Inserisci l'oggetto del messaggio", MsgBoxStyle.Information, "Oggetto mancante")
  334.             TextBox7.Focus()
  335.             Exit Sub
  336.         End If
  337.         If RadioButton1.Checked = True Then
  338.             If TextBox6.Text.Trim = "" Then
  339.                 MsgBox("Inserisci indirizzo mail destinatario.", MsgBoxStyle.Information, "Mail mancante")
  340.                 TextBox6.Focus()
  341.                 Exit Sub
  342.             End If
  343.         End If
  344.         If RadioButton2.Checked = True Then
  345.             If ListBox1.Items.Count = 0 Then
  346.                 MsgBox("Inserisci indirizzo mail destinatario.", MsgBoxStyle.Information, "Mail mancante")
  347.                 TextBox9.Focus()
  348.                 Exit Sub
  349.             End If
  350.         End If
  351.         If RadioButton1.Checked = True Then
  352.             Call invia_messaggioUNICO()
  353.             Exit Sub
  354.         End If
  355.         If RadioButton2.Checked = True Then
  356.             Call invia_messaggioMultiplo()
  357.         End If
  358.     End Sub
  359.  
  360.     Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  361.         Dim k
  362.         k = MsgBox("CHIUDERE IL PROGRAMMA?", MsgBoxStyle.DefaultButton2 + MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Chiudi")
  363.         If k = vbYes Then
  364.             End
  365.         Else
  366.             e.Cancel = True
  367.         End If
  368.     End Sub
  369.  
  370.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  371.         ComboBox2.SelectedIndex = 0
  372.         TextBox9.Enabled = False
  373.         Button3.Enabled = False
  374.         Button4.Enabled = False
  375.         Button5.Enabled = False
  376.         TextBox6.Text = ""
  377.         TextBox9.Text = ""
  378.         ListBox1.Items.Clear()
  379.         TextBox9.Focus()
  380.     End Sub
  381.  
  382.     Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
  383.         TextBox9.Enabled = False
  384.         Button3.Enabled = False
  385.         Button4.Enabled = False
  386.         Button5.Enabled = False
  387.         TextBox6.Enabled = True
  388.         TextBox6.Text = ""
  389.         TextBox6.Focus()
  390.     End Sub
  391.  
  392.     Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
  393.         TextBox9.Enabled = True
  394.         Button3.Enabled = True
  395.         Button4.Enabled = True
  396.         Button5.Enabled = True
  397.         TextBox6.Enabled = False
  398.         TextBox6.Text = ""
  399.         TextBox9.Text = ""
  400.         ListBox1.Items.Clear()
  401.         TextBox9.Focus()
  402.         Me.AcceptButton = Button3
  403.     End Sub
  404.  
  405.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  406.         If TextBox9.Text.Trim = "" Then
  407.             Exit Sub
  408.         End If
  409.         ListBox1.Items.Add(TextBox9.Text)
  410.         TextBox9.Text = ""
  411.         TextBox9.Focus()
  412.         Label12.Text = ListBox1.Items.Count
  413.     End Sub
  414.  
  415.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  416.         If ListBox1.Items.Count = 0 Then
  417.             Exit Sub
  418.         End If
  419.         If ListBox1.SelectedIndex = -1 Then
  420.             MsgBox("Seleziona l'indirizzo mail da eliminare", MsgBoxStyle.Information, "Elimina indirizzo")
  421.             Exit Sub
  422.         End If
  423.         Dim k
  424.         k = MsgBox("Eliminare l'indirizzo:" & vbCrLf & vbCrLf & ListBox1.Items(ListBox1.SelectedIndex) & vbCrLf & vbCrLf & "Eliminare?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Elimina indirizzo")
  425.         If k = vbYes Then
  426.             ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
  427.             Label12.Text = ListBox1.Items.Count
  428.         End If
  429.     End Sub
  430.  
  431.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  432.         Dim O As New OpenFileDialog
  433.         O.Filter = "Tutti i file|*.*" ';*.tif;*.tiff;*.png;*.wmf;*.gif;*.emf;*.exif"
  434.         If O.ShowDialog = Windows.Forms.DialogResult.OK Then
  435.             TextBox5.Text = O.FileName
  436.         Else
  437.             TextBox5.Text = ""
  438.         End If
  439.     End Sub
  440.  
  441.     Private Sub FormatoHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormatoHTMLToolStripMenuItem.Click
  442.         FormatoTestoToolStripMenuItem.Checked = False
  443.         FormatoHTMLToolStripMenuItem.Checked = True
  444.     End Sub
  445.  
  446.     Private Sub FormatoTestoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormatoTestoToolStripMenuItem.Click
  447.         FormatoTestoToolStripMenuItem.Checked = True
  448.         FormatoHTMLToolStripMenuItem.Checked = False
  449.     End Sub
  450.  
  451.     Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
  452.         Application.Exit()
  453.     End Sub
  454.  
  455.     Private Sub LogInvioMailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInvioMailToolStripMenuItem.Click
  456.         Form2.Show()
  457.         Dim i As Integer, riga As Integer
  458.         Me.Cursor = Cursors.WaitCursor
  459.         For i = 0 To LV1.Items.Count - 1
  460.             riga = Form2.LV1.Items.Count
  461.             Dim it As New ListViewItem(LV1.Items(i).Text)
  462.             'Aggiungo SubItems nella ListView
  463.             it.SubItems.Add(LV1.Items(i).SubItems(1).Text)
  464.             it.SubItems.Add(LV1.Items(i).SubItems(2).Text)
  465.             'Inserisco gli elementi alla Posizione Specificata dall'utente nella textbox(name: riga)
  466.             Form2.LV1.Items.Insert(riga.ToString, it)
  467.         Next
  468.         Me.Cursor = Cursors.Default
  469.     End Sub
  470.  
  471.     Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
  472.         Dim i As Integer, trov As Boolean
  473.         If TextBox1.Text.Trim = "" Then
  474.             Exit Sub
  475.         End If
  476.         trov = False
  477.         For i = 0 To TextBox1.Text.Length - 1
  478.             If TextBox1.Text.Substring(i, 1) = "@" Then
  479.                 trov = True
  480.             End If
  481.         Next
  482.         If trov = False Then
  483.             MsgBox("Inserisci un indirizzo mail valido." & vbCrLf & vbCrLf & "Es.: miamail@provider.it", MsgBoxStyle.Information, "Indirizzo non valido")
  484.             TextBox1.Focus()
  485.         Else
  486.             TextBox3.Text = TextBox1.Text
  487.         End If
  488.     End Sub
  489.  
  490.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  491.         Dim O As New OpenFileDialog
  492.         O.Filter = "File testo|*.txt" ';*.tif;*.tiff;*.png;*.wmf;*.gif;*.emf;*.exif"
  493.         If O.ShowDialog = Windows.Forms.DialogResult.OK Then
  494.             'TextBox5.Text = O.FileName
  495.             ' Dim oFile As System.IO.File
  496.             Form3.Show()
  497.             Dim oRead As System.IO.StreamReader
  498.  
  499.             Try
  500.                 oRead = IO.File.OpenText(O.FileName)
  501.  
  502.                 While oRead.Peek <> -1
  503.                     'Console.WriteLine(oRead.ReadLine())
  504.                     Form3.CL1.Items.Add(oRead.ReadLine())
  505.                 End While
  506.  
  507.             Catch ex As Exception
  508.  
  509.             Finally
  510.                 oRead.Close()
  511.                 Form3.Label3.Text = Form3.CL1.Items.Count
  512.             End Try
  513.             'Else
  514.             'TextBox5.Text = ""
  515.         End If
  516.     End Sub
  517.  
  518.     Private Sub TextBox3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.LostFocus
  519.         Dim i As Integer, trov As Boolean
  520.         If TextBox3.Text.Trim = "" Then
  521.             Exit Sub
  522.         End If
  523.         trov = False
  524.         For i = 0 To TextBox3.Text.Length - 1
  525.             If TextBox3.Text.Substring(i, 1) = "@" Then
  526.                 trov = True
  527.             End If
  528.         Next
  529.         If trov = False Then
  530.             MsgBox("Inserisci un indirizzo mail valido." & vbCrLf & vbCrLf & "Es.: miamail@provider.it", MsgBoxStyle.Information, "Indirizzo non valido")
  531.             TextBox3.Focus()
  532.         End If
  533.     End Sub
  534.  
  535.     Private Sub TextBox6_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox6.LostFocus
  536.         If TextBox6.Text.Trim = "" Then
  537.             Exit Sub
  538.         End If
  539.         Dim i As Integer, trov As Boolean
  540.         trov = False
  541.         For i = 0 To TextBox6.Text.Length - 1
  542.             If TextBox6.Text.Substring(i, 1) = "@" Then
  543.                 trov = True
  544.             End If
  545.         Next
  546.         If trov = False Then
  547.             MsgBox("Inserisci un indirizzo mail valido." & vbCrLf & vbCrLf & "Es.: miamail@provider.it", MsgBoxStyle.Information, "Indirizzo non valido")
  548.             TextBox6.Focus()
  549.         End If
  550.     End Sub
  551.  
  552.     Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
  553.         If TextBox9.Text.Trim = "" Then
  554.             Exit Sub
  555.         End If
  556.         Dim i As Integer, trov As Boolean
  557.         trov = False
  558.         For i = 0 To TextBox9.Text.Length - 1
  559.             If TextBox9.Text.Substring(i, 1) = "@" Then
  560.                 trov = True
  561.             End If
  562.         Next
  563.         If trov = False Then
  564.             MsgBox("Inserisci un indirizzo mail valido." & vbCrLf & vbCrLf & "Es.: miamail@provider.it", MsgBoxStyle.Information, "Indirizzo non valido")
  565.             TextBox9.Focus()
  566.         End If
  567.     End Sub
  568.  
  569.     Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
  570.         Form4.Show()
  571.         Me.Enabled = False
  572.     End Sub
  573.  
  574.     Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter
  575.  
  576.     End Sub
  577. End Class












Pero come vedi la firma di Nessuno dice tutto.

Questo Ŕ un forum di programmatori, non di gente che crea il programma per te


PM
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5702
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 13:28
Domenica, 28/02/2010
Testo quotato

Postato originariamente da fabriziorocca:
Questo Ŕ un forum di programmatori, non di gente che crea il programma per te



No ti sei accorto che ti sei smentito da solo ?


Ricorda che nessuno Ŕ obbligato a risponderti e che nessuno Ŕ perfetto ...
---
Il grande studioso italiano Bruno de Finetti (uno dei padri fondatori del moderno Calcolo delle probabilitÓ) chiamava il gioco del Lotto Tassa sulla stupiditÓ.
PM
Avatar
fabriziorocca (Normal User)
Guru


Messaggi: 1162
Iscritto: 22/03/2009

Segnala al moderatore
Postato alle 13:55
Domenica, 28/02/2010
GiÓ ma gli ho postato il codice solo per contertarlo, dato che probabilmente si Ŕ registrato su Pierotofy solo per ottenere quel codice


PM
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5702
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 13:57
Domenica, 28/02/2010
Testo quotato

Postato originariamente da fabriziorocca:

GiÓ ma gli ho postato il codice solo per contertarlo, dato che probabilmente si Ŕ registrato su Pierotofy solo per ottenere quel codice



contertarlo ? Che lingua Ŕ ? Che senso ha quello che dici ?

Ok ... lascia perdere ... come non detto ...


Ricorda che nessuno Ŕ obbligato a risponderti e che nessuno Ŕ perfetto ...
---
Il grande studioso italiano Bruno de Finetti (uno dei padri fondatori del moderno Calcolo delle probabilitÓ) chiamava il gioco del Lotto Tassa sulla stupiditÓ.
PM
Avatar
Gianluca87 (Ex-Member)
Expert


Messaggi: 300
Iscritto: 16/11/2008

Segnala al moderatore
Postato alle 15:29
Domenica, 28/02/2010
eccola li una sbrodolata di funzioni inutile...
inutile non di per sŔ, ma inutile per chi ne usufruisce dato che non Ŕ nemmeno in grado di usare google...:asd:

Ultima modifica effettuata da Gianluca87 il 28/02/2010 alle 15:40


a domanda precisa, risposta precisa...
a domanda generica, risposta generica...
PM
Avatar
lorenzo (Normal User)
Guru


Messaggi: 1178
Iscritto: 15/04/2008

Segnala al moderatore
Postato alle 18:07
Domenica, 28/02/2010
Testo quotato

Postato originariamente da Gianluca87:

eccola li una sbrodolata di funzioni inutile...
inutile non di per sŔ, ma inutile per chi ne usufruisce dato che non Ŕ nemmeno in grado di usare google...:asd:



:yup:


"There's no point in being exact about something if you don't even know what you're talking about."

JOHN VON NEUMANN


Siamo italiani NO??
Allora scriviamo in ITALIANO!!!!
PM
Avatar
fabriziorocca (Normal User)
Guru


Messaggi: 1162
Iscritto: 22/03/2009

Segnala al moderatore
Postato alle 19:39
Domenica, 28/02/2010
Scusate se non ho seguito l'etica del sito


PM