Discussion :

[exclusif]

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

Et bien entendu j'ai bien fait mon import au début de la classe Form1.

Code :

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

Imports System.Net.Mail

Merci pour votre aide.

Ludo

[Aspic]

Salut, essaye avec ma fonction :

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
    Public Sub CreateMessageWithAttachment(ByVal server As String, ByVal file As String, ByVal [From] As String, ByVal [To] As String, ByVal Texte As String, Optional ByVal CC As String = "", Optional ByVal Sujet As String = "")
        Try
            Dim message As New MailMessage([From], [To], Sujet, Texte)
            Dim data As New Attachment(file, Net.Mime.MediaTypeNames.Application.Octet)
            Dim disposition As Net.Mime.ContentDisposition = data.ContentDisposition
 
            With disposition
                .CreationDate = System.IO.File.GetCreationTime(file)
                .ModificationDate = System.IO.File.GetLastWriteTime(file)
                .ReadDate = System.IO.File.GetLastAccessTime(file)
            End With
 
            message.Attachments.Add(data)
 
            Dim client As New SmtpClient(server)
 
            client.Credentials = Net.CredentialCache.DefaultNetworkCredentials
            client.Send(message)
 
            'MessageBox.Show("Merci de votre participation. Email envoyé", "Informations", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As SmtpException
            MsgBox(ex.Message)
        End Try
    End Sub

[exclusif]

Merci beaucoup Aspic pour ta fonction mais j'ai toujours le même problème. Le pire c'est que le message est bien généré et envoyé par l'application que ce soit avec ton code ou le mien car mon antivirus analyse bien la pièce jointe. Du coup j'ai pensé que ça pouvait venir de lui mais même en le désactivant ça ne fonctionne pas. J'ai même utilisé un Xp propre sans antivirus ni rien avec Virtual PC 2007 pour faire le test et je reçois toujours rien. C'est vraiment bizarre ! Ca vient peut être de mon fournisseur d'accès, qu'est-ce que vous en pensez tous ?

[Aspic]

Merci beaucoup Aspic pour ta fonction mais j'ai toujours le même problème. Le pire c'est que le message est bien généré et envoyé par l'application que ce soit avec ton code ou le mien car mon antivirus analyse bien la pièce jointe. Du coup j'ai pensé que ça pouvait venir de lui mais même en le désactivant ça ne fonctionne pas. J'ai même utilisé un Xp propre sans antivirus ni rien avec Virtual PC 2007 pour faire le test et je reçois toujours rien. C'est vraiment bizarre ! Ca vient peut être de mon fournisseur d'accès, qu'est-ce que vous en pensez tous ?

Probleme avec ton fournisseur car chez moi (free) ca marche très bien... Peut etre que ta messagerie necessite une authentification (login/pass) pour envoyer des mails...

[exclusif]

Une authentification ? Pourtant c'est la messagerie classique de Free. Et pourquoi de temps en temps le mail est bien envoyé ?

J'y comprends plus rien.

[Aspic]

Une authentification ? Pourtant c'est la messagerie classique de Free. Et pourquoi de temps en temps le mail est bien envoyé ?

J'y comprends plus rien.

En plus tu es chez free, chez moi ca passe tout le temps. Je ne sais pas

[exclusif]

Je crois que je vais me tourner vers MAPI pour envoyer mon mail, tant pis. Va falloir que je parte à la pêche aux infos.

Merci quand même

[exclusif]

Est-il possible d'envoyer un mail via MAPI sans se servir d'un ocx avec VB2005 car j'ai de sérieux doutes ?