1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources VB.NET
  5. Envoi d'email avec des api windows via une interface graphique

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

Soyez le premier à donner votre avis sur cette source.

Vue 12 493 fois - Téléchargée 1 223 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
rainman66 Messages postés 1 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 25 décembre 2008
25 déc. 2008 à 21:25
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 .
wicca05 Messages postés 9 Date d'inscription mardi 22 novembre 2005 Statut Membre Dernière intervention 1 février 2008
1 févr. 2008 à 18:48
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
Belouafi Messages postés 6 Date d'inscription lundi 21 août 2006 Statut Membre Dernière intervention 14 août 2010
14 janv. 2008 à 17:54
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.
simo5963 Messages postés 127 Date d'inscription vendredi 12 octobre 2007 Statut Membre Dernière intervention 24 mars 2009 1
14 janv. 2008 à 17:32
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)