Soyez le premier à donner votre avis sur cette source.
Vue 12 493 fois - Téléchargée 1 223 fois
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
25 déc. 2008 à 21:25
1 févr. 2008 à 18:48
14 janv. 2008 à 17:54
14 janv. 2008 à 17:32
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.