Messagerie en vb.net

Voir le sujet précédent Voir le sujet suivant Aller en bas

migau
migau

Messages : 5353
Points : 24482
Réputation : 14956
Date d'inscription : 21/10/2016
Localisation : Pays de la Loire
Voir le profil de l'utilisateur http://www.informaticsclubs.com/

Messagemigau le Mer 7 Aoû - 19:31

  • 18px
  • 24px
Information
les règles.
Pour toute question à propos de ce tutoriel merci  de la poser dans le forum de dépannage.
Poser une question au sujet de ce tutoriel en cliquant ICI

 n'hésitez pas à sauter le pas inscrivez-vous sur le forum, Merci.

je m'inscris


Bonjour

pour mes besoins, je me suis fait un courrielleur pour envoyer un mail par semaine sur 12 semaines à 9 personnes identiques.

le message est toujours le même sauf la pièce jointe sera différente.

je vous donne le code.

Pour Info

ceci sera mémorisé dans le script(bien sur ce ci n'apparait pas dans le code ici

mon adresse mail
mon mot de passe
l'adresse mail des destinataires
l'objet du mail
le texte du message
l'objet

je n'aurais plus qu'à ajouter la pièce jointe.

Messagerie en vb.net NCSPAGh


Code:
Imports System.Net.Mail


Public Class Form1

    Private Function EstUnMailValide(ByVal email As String) As Boolean
        Return (New System.Text.RegularExpressions.Regex("^(?!\.)(""([^""\r\\]|\\[""\r\\])*""|([-a-z0-9!#$%&'*+/=?^_`{|}~]|(?<!\.)\.)*)(?<!\.)@[a-z0-9][\w\.-]*[a-z0-9]\.[a-z][a-z\.]*[a-z]$")).IsMatch(email)
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        GroupBox1.Enabled = True
        GroupBox2.Enabled = False
        btnenvoi.Enabled = False

        Me.ActiveControl = tbexp

    End Sub
    Private Sub Btnconnexion_Click(sender As Object, e As EventArgs) Handles btnconnexion.Click

        On Error GoTo Identifiant


        If tbmdp.Text = Nothing Then
            MsgBox("Entrer un mot de passe de compte !", vbCritical, "Erreur ! ")

        ElseIf Not (EstUnMailValide(tbexp.Text)) Then

            messagebox.Show(String.Format("email incorrect : {0}", tbexp.Text))

            'tbexp.Text Like "*[a-zA-Z0-9\.\-\_]*[a-zA-Z0-9]@[a-zA-Z]*[\.]*[a-zA-Z]" = Nothing Then
            ' MessageBox.Show("Veuillez entrer un email valide !", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
Identifiant:

        Else

            GroupBox1.Enabled = False
            GroupBox2.Enabled = True
            btnenvoi.Enabled = True

        End If
    End Sub

    Private Sub Btnenvoi_Click(sender As Object, e As EventArgs) Handles btnenvoi.Click
        On Error GoTo messagerie

        If tbobjet.Text = Nothing Or tbbody.Text = Nothing Then
            MsgBox("Veuillez entrer un destinataire, un objet, un message !", vbCritical, "Erreur")

            ' ElseIf Not (EstUnMailValide(tbdest.Text)) Then

            '   MessageBox.Show(String.Format("email incorrect : {0}", tbdest.Text))

messagerie:

        Else

            Dim mesdestinataires As String = "l'adresse mail des personnes sera inscrite ici  en dure et séparée par des virgules"
            tbdest.Text = mesdestinataires





            Dim mail As New MailMessage
            Dim smtp As New SmtpClient("smtp.gmail.com")

            mail.From = New MailAddress(tbexp.Text)
            mail.To.Add(tbdest.Text)
            mail.Subject = tbobjet.Text

            mail.Body = tbbody.Text

            smtp.Port = "587"
            smtp.Credentials = New System.Net.NetworkCredential(tbexp.Text, tbmdp.Text)

            smtp.EnableSsl = True

            If TBPJ.Text <> "" Then
                Dim data = New Net.Mail.Attachment(TBPJ.Text)
                mail.Attachments.Add(data)
            End If

            smtp.Send(mail)

            MsgBox("Message envoyé")
            tbdest.Clear()
            tbobjet.Clear()
            tbbody.Clear()
            tbexp.Clear()
            tbmdp.Clear()
            TBPJ.Clear()
        End If
    End Sub

    Private Sub BtnQuitter_Click(sender As Object, e As EventArgs) Handles BtnQuitter.Click
        Me.Close()
    End Sub

    Private Sub BtnReset_Click(sender As Object, e As EventArgs) Handles BtnReset.Click
        tbdest.Clear()
        tbobjet.Clear()
        tbbody.Clear()

    End Sub

    Private Sub Btnpj_Click(sender As Object, e As EventArgs) Handles btnpj.Click
        OpenFileDialog1.Title = "Choisir un fichier à importer"
        OpenFileDialog1.InitialDirectory = ""
        OpenFileDialog1.ShowDialog()
        TBPJ.Text = OpenFileDialog1.FileName

    End Sub

End Class



   

Voir le sujet précédent Voir le sujet suivant Revenir en haut

Créer un compte ou se connecter pour répondre

Vous devez être membre pour répondre.

S'enregistrer

Rejoignez notre communauté ! C'est facile !


S'enregistrer

Connexion

Vous êtes déjà membre ? Aucun soucis, cliquez ici pour vous connecter.


Connexion

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum