Bonjour,

Je dois actuellement crée un système d'envoi de mail a partir d'un bouton. je rencontre un problème pour y inclure une pièce jointe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
  'objet mail
            Dim email As New MailMessage
 
            'addresse de l'envoyeur
            email.From = "mon_adresse@adresse.fr"
            'addresse de reception
            email.To = mail
            'sujet du message
            email.Subject = txt_obj.Text
            'corps du message
            email.Body = txt_mess.Text
            'format du mail
            email.BodyFormat = MailFormat.Text
 
            'piece attaché
            email.Attachments.Add("C:\mon_document.xls")
 
            'addresse du server smtp
            SmtpMail.SmtpServer = "smtp.fr.oleane.com"
 
Try
                SmtpMail.Send(email)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
Si je met en commentaire la ligne pour l'envoie de la pièce jointe l'email est envoyé. Par contre si je rajoute la ligne ma machine ne fait plus rien et j'ai un taux de 100% pour l'utilisation du processeur.
Et je ne rencontre pas d'erreur pour le catch. Le fichier que je veut envoyé pèse 15Ko, je ne pense pas que ce soit du a son poids.

Merci de bien vouloir m'aider