Envoi d'email avec des api windows via une interface graphique
Soyez le premier à donner votre avis sur cette source.
Vue 11 942 fois - Téléchargée 1 125 fois
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 (...).
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
Codes Sources
A voir également
- Api envoi email
- Api email - Meilleures réponses
- Email api - Meilleures réponses
- ASP / ASP.NET : Envoyer un email via l'asp (données d'un formulaire) - CodeS SourceS - Guide
- C / C++ / C++.NET : Magicexport : exportation d'enreg dans une bdd sql server via odbc (api windows - Guide
- Remplacer l'api windows readini (via des dictionnaires) - Codes sources - Visual Basic / VB.NET (API)
- Visual Basic / VB.NET : Mapi- envoyer un email depuis vb via outlook express - CodeS SourceS - Guide
- Visual Basic / VB.NET : Envoi mail vb 2005 api windows - CodeS SourceS - Guide
Commentaires
Et si tu veux ou est-ce que je trouve l’objet visuel «BrowsingFS »
Et dit nous a quoi se sert ?
Merci !!!!!
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.