Soyez le premier à donner votre avis sur cette source.
Vue 12 059 fois - Téléchargée 1 128 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
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.