ENVOYER DES EMAILS VB 2008
Mayzz
Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
-
21 juin 2009 à 13:20
Mayzz Messages postés 2813 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 2 juin 2020 - 22 juin 2009 à 00:27
Mayzz Messages postés 2813 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 2 juin 2020 - 22 juin 2009 à 00:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/50159-envoyer-des-emails-vb-2008
https://codes-sources.commentcamarche.net/source/50159-envoyer-des-emails-vb-2008
22 juin 2009 à 00:27
Mon commentaire était purement suggestif, je disais cela pour toi, pour améliorer ta source et te faire progresser...
Cordialement, Mayzz.
21 juin 2009 à 23:27
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.
21 juin 2009 à 13:20
Tant qu'a faire une démo de ces classes, tu aurais pu inclure l'envoi mutlti-destinataires, les pièces jointes, le cc etc...
Mayzz.