Bonjour,

Je souhaiterai Upload plusieurs fichiers en même temps dans un dossier spécifier, récupérer les noms de fichiers Upload pour pouvoir les afficher dans un mail, j'utilise AjaxFileUpload de Ajaxtoolkit.

J'en récupère un, et je l'affiche mais pas pour plusieurs.

Voici les codes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
    Protected Sub UploadComplete(ByVal sender As Object, ByVal e As AjaxControlToolkit.AjaxFileUploadEventArgs) Handles AjaxFileUpload2.UploadComplete
        Dim path As String = MapPath("~/Fichiers_Recus/") + e.FileName
        AjaxFileUpload2.SaveAs(path)
        etat(False)
        Session("fileName") = e.FileName
    End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 Sub etat(ByVal change As Boolean)
        change = True
    End Sub
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
Private Sub Btn_Click_Send(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_valid.Click
        Dim strHTML As String
        Dim mail = New MailMessage
        Dim SMTP = New SmtpClient("rtbnrtg")
        strHTML = ""
        strHTML = strHTML & "<HEAD>"
        strHTML = strHTML & "<BODY>"
        strHTML = strHTML & "<B><SPAN STYLE='font-size:15px; color:#754F7D;'>De </SPAN><SPAN STYLE='font-size:15px; color:#535353;'>" & DropDownList1.Text & " " & TextBox1.Text & " " & TextBox2.Text & "</B>" & "</SPAN><BR><BR>"
        strHTML = strHTML & "<B><SPAN STYLE='font-size:15px; color:#754F7D;'>Objet : </B></SPAN><SPAN STYLE='font-size:15px; color:#535353;'>" & TextBox4.Text & "</SPAN><BR><BR>"
        strHTML = strHTML & "<B><SPAN STYLE='font-size:15px; color:#754F7D;'>Message: </B></SPAN><BR><BR><SPAN STYLE='font-size:15px; color:#535353;'>" & TextBox5.Text & "</SPAN><BR><BR>"
        strHTML = strHTML & "Fichier(s) reçu(s):<a href='accrelab.com/test/Fichiers_Recus/" & Session("fileName") & "'>" & Session("fileName") & "</a>"
        strHTML = strHTML & "<BR><BR><B><SPAN STYLE='font-size:15px; color:#754F7D;'>Cordialement, " & TextBox2.Text & " " & TextBox1.Text & "</SPAN><B><BR><BR>"
 
        strHTML = strHTML & "</BODY>"
        strHTML = strHTML & ""
 
        mail.From = New MailAddress(TextBox3.Text)
        mail.To.Add("yy@gmail.com")
        mail.Subject = TextBox4.Text
        mail.Body = strHTML
        mail.IsBodyHtml = True
 
        SMTP.Port = "25"
        SMTP.Credentials = New System.Net.NetworkCredential(TextBox3.Text, "")
        SMTP.EnableSsl = True
        SMTP.Send(mail)
 
        If SMTP.EnableSsl = True Then
            SMTP.Send(mail)
            Response.Redirect("Mess_ok.aspx")
        Else
            MsgBox("Erreur d'envoie du message")
            Response.Redirect("Contacts.aspx")
        End If
 
    End Sub
Merci d'avance pour votre aide