[VB.NET] Envoyer Piece jointe

Version imprimable

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:

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

Voici une procédure qui marche :

Code:

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

Ne pas oublier l'import System.Net.Mail

++

30/08/2007, 08h13
PM_calou

Bonjour

Ca marche :king:

avec juste une petite réadaptation pour mes besoins, mais super. :lol:

J'ai juste retiré

Code:

B_Send.Enabled = True

qui devait être une variable public de ton prog. ;)

:merci: pour ton aide

@+

Pascal
30/08/2007, 10h09
Aspic

Oui exact ;)