Envoi d'email avec des api windows via une interface graphique

Télécharger le projet
Commenter

Description

Cette source utilise une DLL contenant des API windows permettant d'envoyer des mails . Elle dispose d'une interface graphique simplie plus une fenêtre de paramètrages du serveur SMTP.
Cette interface graphique est munie aussi d'un composant listbox, qui permet de rassembler les fichiers sélectionnés à partir du filedialog qui apparait lors de l'appui sur le bouton (...).

Source / Exemple : 


Try
            If Not File.Exists("C:\\Sendmail.config") Then
                MsgBox("Fichier de configuration introuvable. Veillez contrôler la configuration dans le menu configuration.", MsgBoxStyle.Information, "Configuration")
                Exit Sub
            End If

            f = Split(File.ReadAllText("C:\\Sendmail.config"), " ")

            Server = f(0)
            sender = f(1)

            For i = 0 To ListFichier.Items.Count - 1
                If File.Exists(ListFichier.Items.Item(i)) Then
                    att.Add(ListFichier.Items.Item(i))
                Else
                    MsgBox("Le fichier " & ListFichier.Items.Item(i) & " n'est pas un fichier ou il est introuvable ! ", MsgBoxStyle.Information, "Erreur fichier")
                End If
            Next i

            Mail.SendMail(TxtTo.Text, TxtSubject.Text, TxtMessage.Text, att, sender, Server, True, txtCopieTo.Text, TxtCC.Text, Sendmail.MailingClass.Mail_Software.Smtp)

            MsgBox("Votre message est envoyé !", MsgBoxStyle.Information, "Envoi de mail avec succès")

            txtCopieTo.Clear()
            TxtMessage.Clear()
            TxtSubject.Clear()
            TxtTo.Clear()
            TxtCC.Clear()
            ListFichier.Items.Clear()

        Catch ex As Exception
            MsgBox("Une erreur est survenue." & Err.Description, MsgBoxStyle.Exclamation, "Erreur")
            Exit Sub
        End Try
    End Sub

    Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
        Try
            txtCopieTo.Clear()
            TxtMessage.Clear()
            TxtSubject.Clear()
            TxtTo.Clear()
            TxtCC.Clear()
            ListFichier.Items.Clear()
        Catch ex As Exception
            MsgBox("Une erreur est survenue." & Err.Description, MsgBoxStyle.Exclamation, "Erreur")
            Exit Sub
        End Try
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Belouafi)