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 SubMerci d'avance pour votre aide
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
Partager