ENVOI D'EMAIL AVEC DES API WINDOWS VIA UNE INTERFACE GRAPHIQUE

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