[VB.NET] Envoyer Piece jointe

**PM_calou** · 27/08/2007, 14h06

Bonjour

J'ai besoins de créer un petit programme qui poste des mails avec une piece jointe, mais j'ai un petit problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim msg As MailMessage = New MailMessage
Dim smtp As New SmtpClient
 
msg.From = New MailAddress("toto@free.fr")
msg.To.Add("titi@free.fr")
smtp.Host = "smtp.free.fr"
msg.Subject = "Essai de mail par .NET"
msg.Body = "Juste pour un essai. On vera bien."
msg.Attachments.Add(New MailAttachment("test.txt", MailEncoding.UUEncode))
 
' envoi du message  
smtp.Send(msg)

et j'ai le message d'erreur suivant:
Type 'MailAttachments' non défini. (BC30002)

J'ai importé system.net.mail

Si je supprime la ligne de code concernant la piece jointe, pas de problème, le prog fonctionne bien.

Merci d'avance

Pascal

**Aspic** · 27/08/2007, 16h31

Voici une procédure qui marche :

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
 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)
        Catch ex As SmtpException
            B_Send.Enabled = True
            MsgBox(ex.Message)
        End Try
    End Sub