Code de l’expéditeur de l’e-mail dans VB.NET

Posted on


Code de l’expéditeur de l’e-mail dans VB.NET

Problème

Créez un programme d’application Windows Form dans Visual Basic.Net qui permettra aux utilisateurs d’envoyer des e-mails

La description

Ce didacticiel permettra à l’utilisateur de saisir le compte Gmail et le mot de passe de l’utilisateur / expéditeur pour envoyer un e-mail, avec une pièce jointe si vous le souhaitez, au compte Gmail du destinataire.

Avant le didacticiel, les éléments suivants sont nécessaires pour démarrer:

  • Microsoft Visual Studio 2008 – Ci-dessus
  • Internet rapide et sécurisé

Le tutoriel commence ici:

  1. Connectez votre appareil à Internet.
  2. Ouvrez Microsoft Visual Studio 2012
  3. Sélectionnez un nouveau projet dans le menu Fichier.
  4. Sélectionnez Visual Basic, Application Windows Form, puis cliquez sur OK.
  5. Nous devons concevoir notre formulaire par les contrôles suivants:
  • 7 étiquettes – 6 étiquettes pour la zone de texte Compte Gmail, Mot de passe, Objet, Pièce jointe, Récepteur et Message, et 1 étiquette pour afficher la boîte de dialogue Ouvrir un fichier.
  • 6 Zone de texte – zones de texte pour le compte Gmail, le mot de passe, l’objet, la pièce jointe, le destinataire et le message.
  • 2 Bouton de commande – 1 bouton pour envoyer le message au destinataire et 1 bouton pour annuler / fermer le formulaire
  1. Nous nommerons également nos contrôles de formulaire de cette manière:
  • txtGmail est le nom de la zone de texte de la zone de texte du compte Gmail de l’expéditeur.
  • txtPassword est le nom de la zone de texte de la zone de texte du mot de passe.
  • txtSubject est le nom de la zone de texte de la zone de texte du sujet.
  • txtattach est le nom de la zone de texte pour la zone de texte de pièce jointe.
  • txtTo est le nom de la zone de texte de la zone de texte du compte Gmail du récepteur.
  • txtBody est le nom de la zone de texte de la zone de texte du message.
  • cmdSend est le nom du bouton du bouton d’envoi.
  • cmdCancel est le nom du bouton pour le bouton Annuler.
  • lblBrowse est le nom de l’étiquette pour parcourir un fichier.
  1. C’est ainsi que nous concevons le formulaire. (N’hésitez pas à mettre en page le vôtre)
Expéditeur de courrier électronique dans la conception de formulaires VB.Net
Expéditeur de courrier électronique dans la conception de formulaires VB.Net

Figure 1. Conception du formulaire

  1. Double-cliquez sur le formulaire de la fenêtre et collez le code suivant au-dessus du gestionnaire de chargement Form1_.

Codez ici

Imports System.Net.Mail
Public Class Form1
    Dim Ofd As New OpenFileDialog
End Code

Explication du code:

Le code ci-dessus activera les services de messagerie et rendra également la boîte de dialogue de fichier ouvert disponible une fois demandée par l’utilisateur.

  1. Double-cliquez sur l’étiquette de navigation et collez le code suivant.

Codez ici

Private Sub lblbrowse_Click(sender As Object, e As EventArgs) Handles lblbrowse.Click
        Ofd.Filter = "Image Files(*.Png,*.Jpg,*.Gif,*.SVG,*.Ico)|*.png;*.Jpg;*.Gif;*.SVG;*.Ico|Executetables(*.exe)|*.exe|Winzip(*.zip,*.7zip,*.rar)|*.zip;*.7zip;*.rar|Documents(*.mdb;*doc;*.xlsx,*.pptx,*.pub,*.sql,*.mdf)|*.mdb;*.doc;*.xlsx;*.pptx;*.pub;*.sql;*.mdf|Text File(*.txt,*.inf,*.ini)|*.txt;*.inf;*.ini|Dll Files(*.dll,*.sys,*.db,*.cfg)|*.dll;*.sys;*.db;*.cfg|Crystal Report(*.rpt)|*.rpt|All Files(*.*)|*.*"
        Ofd.FileName = ""
        If Ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            txtattach.Text = Ofd.FileName
        End If
End Sub

Code de fin

Explication du code:

Il affichera une boîte de dialogue de fichier ouvert qui prend en charge certaines extensions de fichier,

  1. Double-cliquez sur le txtattach et collez le code suivant sous le gestionnaire txtattach_TextChanged.

Codez ici

Private Sub txtattach_DragEnter(sender As Object, e As DragEventArgs) Handles txtattach.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub
End Code

Explication du code:

Cela permettra à l’utilisateur de faire glisser et déposer un fichier dans le champ Pièce jointe.

  1. Double-cliquez sur le bouton Annuler et collez le code suivant.

Codez ici

Private Sub cmdCancel_Click(sender As Object, e As EventArgs) Handles cmdCancel.Click
        Me.Dispose()
End Sub

Code de fin

Explication du code:

Le code ci-dessus effacera tout le contenu et quittera le formulaire.

  1. Double-cliquez sur le bouton Envoyer et collez le code suivant.

Codez ici

Private Sub btnsend_Click(sender As Object, e As EventArgs) Handles btnsend.Click
        If txtto.Text = "" Then
            MsgBox("Required Gmail...")
        ElseIf Not txtto.Text.EndsWith("@gmail.com") Then
            MsgBox("Invalid Format Gmail Account.", MsgBoxStyle.Exclamation)
            txtto.Text = ""
        Else
            Try
                Dim smtp_server As New SmtpClient
                Dim e_mail As New MailMessage()
                Dim attachment As System.Net.Mail.Attachment
                smtp_server.UseDefaultCredentials = False
                smtp_server.Credentials = New Net.NetworkCredential((txtgmail.Text), (txtpassword.Text))
                smtp_server.Port = 587
                smtp_server.EnableSsl = True
                smtp_server.Host = "smtp.gmail.com"
                e_mail = New MailMessage()
                e_mail.From = New MailAddress(txtgmail.Text)
                e_mail.IsBodyHtml = True
                e_mail.To.Add(txtto.Text)
                e_mail.Subject = txtsubject.Text
                e_mail.Body = txtmessage.Text
                attachment = New System.Net.Mail.Attachment(txtattach.Text)
                e_mail.Attachments.Add(attachment)
                smtp_server.Send(e_mail)
                MsgBox("Email Has Been Sent!", MsgBoxStyle.Information)
                txtsubject.Clear()
                txtto.Clear()
                txtattach.Clear()
                txtmessage.Clear()
                txtgmail.Clear()
                txtpassword.Clear()
                Me.Dispose()
            Catch ex As Exception
                MsgBox("Please Connect to the Internet Connection!", MsgBoxStyle.Information)
            End Try
        End If
End Sub


Code de fin

Explication du code:

Le code récupérera toutes les informations sur les zones de texte, enverra le message contenu dans la zone de texte txtBody au gmail du destinataire contenu dans la zone de texte txtTo. Il peut également indiquer si l’appareil est connecté à Internet ou si la vitesse Internet est trop lente.

Expéditeur d'e-mail dans la sortie finale de VB.Net
Expéditeur d’e-mail dans la sortie finale de VB.Net

Conclusion:

Avec ce tutoriel et le code source, vous pouvez désormais envoyer un e-mail via ce projet. Le projet et le code source sont disponibles pour téléchargement et vous pouvez le modifier en fonction de vos préférences et exigences.

Auteur:

Nom: Charlie Devera
Adresse électronique: [email protected]

Téléchargement gratuit du code source (expéditeur de courrier électronique dans VB.Net)

Vous pouvez visiter notre Facebook page pour plus d’informations, demandes de renseignements et commentaires.

Louer notre équipe pour faire le projet.

commentaires

commentaires





Telecharger ici

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *