Discussion :

[methos99]

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

[Danyel]

Juste en regardant msdn, la syntaxe est deja differente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim MyMessage As MailMessage = new MailMessage()
MyMessage.Attachments.Add(New MailAttachment(fileName1))
MyMessage.Attachments.Add(New MailAttachment(fileName2, MailEncoding.UUEncode))

[methos99]

Bonjour,

Merci de ta réponse, mais en modifiant mon code il ne marche toujours pas. Voila ou j'en suis pour l'envoi

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
27
28
29
 
 'objet mail
Dim email As MailMessage = New MailMessage
 
'addresse de l'envoyeur
email.From = "adresse_moi@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é
Dim fichier As String
 
fichier = "C:\mon_document.xls"
email.Attachments.Add(New MailAttachment(fichier, MailEncoding.UUEncode))
 
'addresse du server smtp
SmtpMail.SmtpServer = "smtp.fr.oleane.com"
 
Try
  SmtpMail.Send(email)
Catch ex As Exception
  MessageBox.Show(ex.Message)
End Try

Merci de votre aide

[Danyel]

As tu essaye avec un autre serveur smtp ?
Puis je pense que avant de donner le dit fichier, il serait bien de controler qu'il est bien present et libre.

[methos99]

J'ai essayé a partir d'un autre serveur smtp mais toujours le même problème. L'envoi de mail simple marche mais pas celui avec pièce jointe.
Pour ce qui est du fichier il y a une procédure avant qui le crée et le place a cet emplacement. C'est impossible qu'il soit vide ou non crée sinon une exception serait levé.