Problème aléatoire lors de l'envoi d'un mail

**exclusif** · 29/07/2007, 22h02

Bonsoir tout le monde,

Je suis en train de réaliser une application permettant d'envoyer un fichier zip par mail en pièce jointe mais le problème c'est que mon mail n'arrive pas à tous les coups chez le destinataire. Et je ne vois pas pourquoi !

Voici mon code

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
                Dim strAdresseMail As String = "*****@free.fr"
                Dim mail As New MailMessage()
                Try
                    'set the addresses
                    mail.From = New MailAddress(strAdresseMail)
                    mail.To.Add(strAdresseMail)
 
                    'set the content
                    mail.Subject = "Test envoi mail"
                    mail.Body = "Voir pièce jointe"
 
                    'add an attachment from the filesystem
                    mail.Attachments.Add(New Attachment(sDirectory & "\fichier.zip"))
 
                    'send the message
                    Dim smtp As New SmtpClient("smtp.free.fr")
                    smtp.Send(mail)
                    MessageBox.Show("Envoi terminé avec succès.", , MessageBoxButtons.OK, MessageBoxIcon.Information)
                Catch ex As Exception
                    MessageBox.Show("Erreur lors de l'envoi." & vbCrLf & "Vérifiez votre serveur SMTP dans les préférences.", , MessageBoxButtons.OK, MessageBoxIcon.Error)
                Finally
                    mail.Dispose()
                    mail = Nothing
                End Try