Envoyer des emails vb 2008

Soyez le premier à donner votre avis sur cette source.

Vue 5 948 fois - Téléchargée 1 103 fois

Description

Pour d'autres, comme moi (abroutilles). Une source qui voulait juste une journée pour une recherche... Ne jamais perdre d'autres heures. Je suis très débutant en vb net! A vous de jouer! :)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
38
Je te remercie, mais je n'avais pas besoin d'exemple...

Mon commentaire était purement suggestif, je disais cela pour toi, pour améliorer ta source et te faire progresser...

Cordialement, Mayzz.
Messages postés
5
Date d'inscription
vendredi 8 décembre 2006
Statut
Membre
Dernière intervention
19 mai 2009

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.
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
38
Très bonne démonstartion des classes MailMessage et SMTPClient, cependant ton code n'est pas bien structuré et tes commentaires laissent à désirer...

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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.