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 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89
|
Imports System.Net.Mail
Imports System.Net.WebRequestMethods
Partial Class membres_notifier_
Inherits System.Web.UI.Page
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If IsPostBack Then Exit Sub
lblMessage.Visible = False
lblMessageInfos.Visible = False
txtNotifier.Visible = False
lbl1.Visible = False
lbl1.Text = Membership.GetUser().UserName().ToString
lblCliquez.Visible = False
End Sub
Protected Sub btnEnvoyer_Click(sender As Object, e As EventArgs) Handles btnEnvoyer.Click
Dim Direction As String = Me.MapPath("~/membres/upload/")
Dim mm As New System.Net.Mail.MailMessage("sitewebfmc@siteweb.fr", "web.public@siteweb.fr")
With Uploader
If .HasFile Then
Direction &= .FileName
.SaveAs(Direction)
txtNotifier.Text = .FileName
Dim link As String
link = txtNotifier.Text
Dim chemin As String
chemin = "http://www.siteweb.fr/membres/upload/" & link
mm.Subject = "FORMATION CONTINUE : Un Fichier a été envoyé par un membre"
mm.Body = "Un fichier a été chargé par" & " " & lbl1.Text & " " & "sur le serveur du site de la FORMATION" _
& vbCr & "le nom du fichier est" & " : " & vbCr & txtNotifier.Text _
& vbCr & "Il sera disponible dans 24 à 48 heures dans la page Téléchargements de l'année en cours " _
& vbCr & "Pour le Télécharger dès Maintenant" & " : " & chemin & link
'------------------------------------------------------------ -------
mm.CC.Add("web.public@siteweb.fr")
lblMessage.Text = String.Format("le fichier <b> {0} </b>" _
& "<br /> a été sauvegardé sur le serveur." _
& " <br /> Taille:{1}" _
& "<br /> Type MIME : {2}", _
.FileName, _
.PostedFile.ContentLength, _
.PostedFile.ContentType) & "."
lblCliquez.Text = "<br /><br />" & "Copiez cette ce lien et collez-le dans la barre d'adresse de votre navigateur pour vérifier la présence de votre fichier sur le serveur" & "<br /><br />" & "Attention: un nom de fichier trop long peut ne pas avoir" & " <br />" & "été correctement mis en forme dans le lien internet!" & "<br /><br />"
Dim lien As String
lien = "http://www.siteweb.fr/membres/upload/" & link
lblMessageInfos.Text = String.Format(" Il peut être téléchargé sous le lien suivant:" _
& "<br />" & lien _
, .FileName)
Else
lblMessage.Text = "Le fichier est incorrect.Il n'a pas été envoyé !"
End If
End With
'------------------------------------------------
'Envoi du message
Dim smtp As New SmtpClient
smtp.Host = "mail.siteweb.fr"
smtp.Send(mm)
'-----------------------------------------------
lblMessage.Visible = True
lblCliquez.Visible = True
lblMessageInfos.Visible = True
End Sub
Protected Sub btnAnnuler_Click(sender As Object, e As EventArgs) Handles btnAnnuler.Click
Response.Redirect("~/membres/uploader.aspx")
End Sub
End Class |
Partager