Discussion :

[Publicnew]

Bonjour,

J'ai construit un formulaire pour recueillir des renseignements à envoyer par Internet.

Ce formulaire fonctionne bien.

Cependant, j'aimerais que l'internaute puisse ajouter une pièce jointe à partir de son poste de travail.

Aussi, ai-je ajouté à mon formulaire un contrôle FileUpload avec son bouton "Parcourir" pour la sélection du fichier à joindre.

Ma difficulté: je n'arrive pas à compléter ce code :
(je vous joins aussi un échantillon de capture d'écran du formulaire)

Merci d'avance pour vos réponses.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Imports System.Net.Mail
Imports System.IO
Imports System.Net.Mime
 
Partial Class Mail_Default
    Inherits System.Web.UI.Page
 
    Protected Sub btnEnvoyer_Click(sender As Object, e As System.EventArgs) Handles btnEnvoyer.Click
        ' Construction du message qui contient un TextBox Nom, TextBox Prénom, TextBox Email et TextBox Commentaire
                ' txtMail.Text contient l'adresse Mail de l'expéditeur
                ' "contact@monsite.com" est le destinataire (le webmaster du site www.@monsite.com)
 
                Dim message As New System.Net.Mail.MailMessage(txtMail.Text, "webmaster@monsite.com")
                'l'objet du message
                message.Subject = "[Demande d'informations]"
                'le corps du message
                message.Body = "[Demande transmise par le site www.monsite.com]" _
                   & vbCr & txtNom.Text.ToUpper _
                   & vbCr & txtPrenom.Text _
                   & vbCr & txtMail.Text _
                   & vbCr & txtCommentaire.Text
 
 
                Dim Fichier As String = ""
                ' Créer le fichier à joindre avec le message .
                Dim data As New Attachment(Fichier, MediaTypeNames.Application.Octet)
                ' Ajouter les propriétés du fichier.
                Dim disposition As ContentDisposition = data.ContentDisposition
                disposition.CreationDate = System.IO.File.GetCreationTime(Fichier)
                disposition.ModificationDate = System.IO.File.GetLastWriteTime(Fichier)
                disposition.ReadDate = System.IO.File.GetLastAccessTime(Fichier)
                ' Add the file attachment to this e-mail message.
                message.Attachments.Add(data)
 
 
        Dim cheminPieceJointe As FileUpload = fileUploadChemin
        'Comment concertir ce FileUpload en String ?
        'Comment sauver le chemin du fichier contenu dans cet FileUpload ,
 
 
                'Envoi du message
                Dim smtp As New SmtpClient
                smtp.Host = "localhost"
        smtp.Send(message)
        ' comment ajouter ici l'envoi de la pièce jointe ?
 
        Try
            smtp.Send(message)
        Catch ex As Exception
            Console.WriteLine("Exception(): {0}", ex.ToString())
        End Try
 
 
        ' Afficher les proprités de la pièce jointe.
        Dim cd As ContentDisposition = data.ContentDisposition
        Console.WriteLine("Content disposition")
        Console.WriteLine(cd.ToString())
        Console.WriteLine("File {0}", cd.FileName)
        Console.WriteLine("Size {0}", cd.Size)
        Console.WriteLine("Creation {0}", cd.CreationDate)
        Console.WriteLine("Modification {0}", cd.ModificationDate)
        Console.WriteLine("Read {0}", cd.ReadDate)
        Console.WriteLine("Inline {0}", cd.Inline)
        Console.WriteLine("Parameters: {0}", cd.Parameters.Count)
        For Each d As DictionaryEntry In cd.Parameters
            Console.WriteLine("{0} = {1}", d.Key, d.Value)
        Next
        data.Dispose()
    End Sub
End Class