ENVOYER DES EMAILS VB 2008

Commentaire de spqrliv le 21/06/2009 23:27:51

Salut a tous qui pass par la....
Mayzz.... tres gentile de ta part de faire un comentaire pour ma source mais, c'est MA Premiere source en vb net. En plus, est tres simple pour faire des commentaires. (J'ai pas besoin des notes ou des truc paraille... C'est joust pour partager... c'est tout.)

Voir ca pour une liste des emails:

If TextBox2To.Visible = True Then
                MyMailMessage.To.Add(TextBox2To.Text) '("blablabla@gmail.com")
            Else
                For Each Item As String In ListBox3.Items
                    MyMailMessage.To.Add(Item)'liste des destinataires
                Next

                'MyMailMessage.To.Add(ListBox3)
            End If

'ListBox3 une liste avec des emails des destinataires.

'Pour l'atach metre OpenFileDialog1 et une "RichTextBox2"
'metre dans MainEvents
If at Is Nothing Then
                MyMailMessage.Attachments.Clear()
            Else

                For Each Lines As String In RichTextBox2.Lines
                    at = New Attachment(Lines)
                    MyMailMessage.Attachments.Add(at)
                Next
            End If
'jusqu au la metre dans MainEvents

'sur un bouton
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.OpenFileDialog1.Filter = "Toate tipurile de fishiere (*.*)|*.*"
        Me.OpenFileDialog1.ShowDialog()
        Try
            att = Me.OpenFileDialog1.FileName
            Dim s As Integer = Me.OpenFileDialog1.FileName.LastIndexOf("\")
            at = New Attachment(att)
            chemin.Text = chemin.Text & " ; " & Me.OpenFileDialog1.FileName.Substring(s + 1)
        Catch ex As Exception
            MsgBox("T'a appuie sur  Cancel", MsgBoxStyle.Information, "Info")
        End Try
    End Sub

'En plus tu peut la modifier comment tu veut avec milions des idees.

N'esite pas...
Bon continuation a toi Mayzz.