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

Soyez le premier à donner votre avis sur cette source.

Vue 11 664 fois - Téléchargée 994 fois

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

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de rainman66
rainman66
Messages postés
1
Date d'inscription
jeudi 6 novembre 2008
Statut
Membre
Dernière intervention
25 décembre 2008
 -
salutt mec ,je te trouve ke ce ke ta fai est merveilleux ,et je me demande si tu peut m'aider :j'ai la meme application a faire mais avec c#.net ,si tu en sais quelque chose hésite pas stp de me renseigner je t'en serai tres reconnaissant .
Signaler Commenter la réponse de wicca05
wicca05
Messages postés
9
Date d'inscription
mardi 22 novembre 2005
Statut
Membre
Dernière intervention
1 février 2008
 -
Super prog, y a t'il un moyen pour que la fenetre message Txtmsg soit en HTML pour envoyer un msg avec arriere plan ?,cela pour envoyer un design different quand on le veut? Merci et bravo
Signaler Commenter la réponse de Belouafi
Belouafi
Messages postés
6
Date d'inscription
lundi 21 août 2006
Statut
Membre
Dernière intervention
14 août 2010
 -
Tu as raison, la source n'est pas commentée. L'objet visuel BrowsingFS est un objet .NET qui permet d'ouvrir une fenêtre d'expolration du poste de travail.Ceci permet de sélectionner un fichier lequel va être envoyé comme pièce jointe. Je reste à ta disposition pour des infos complémentaires.
Signaler Commenter la réponse de simo5963
simo5963
Messages postés
128
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009
 -
La source n’est pas commentée, il y a des instructions je les comprendre pas
Et si tu veux ou est-ce que je trouve l’objet visuel «BrowsingFS »
Et dit nous a quoi se sert ?
Merci !!!!!
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)