envoi par mail d'une page aspx

Version imprimable

14/06/2011, 11h33
dev31

envoi par mail d'une page aspx

Bonjour à tous,

Tout d'abord je vais vous exposer la situation. J'ai une page accueil.aspx.vb où je lis un fichier pour mettre à jour une table de ma BDD lorsque l'utilisateur clique sur un bouton pour importer ce fichier.

Lors du click sur ce bouton, je souhaite envoyer une page mail.aspx par mail qui lit des informations dans ma BDD mis à jour et bien sûr met en forme la page.

En entrant un peu plus dans les détails, lors de la lecture du fichier importé dans la page accueil.aspx.vb, une clé est lue, et elle est passée en variable de session à la page mail.aspx pour que cette dernière lit les informations en fonction de cette clé. Actuellement, deux fonctions sont rattachées à la page mail.aspx.vb. Une fonction qui initialise toutes les variables et une autre qui appelle cette fonction au chargement de la page.

Mon problème est que je ne sais pas comment faire pour envoyer l'intégralité d'une page aspx par mail.

Pourriez-vous m'orienter sur la méthode à employer, me donner un exemple ou tout autre chose qui pourrait m'être utile, svp ?

Merci d'avance.

Bonjour,

Pour envoyer un mail en Asp.net :
http://webman.developpez.com/article.../email/csharp/.

Dans ton cas tu peut te baser sur le lien. Et pour envoyer l'intégralité de ta page il faut récupérer le contenu de ta page dans une chaine de caractère comme suit :
Exemple :
Code:

1 2 3 4 5 6 7 8 9 Dim uri as New Uri("http://www.microsoft.com/default.aspx");If(uri.Scheme == uri.UriSchemeHttp) Then Dim request as HttpWebRequest = HttpWebRequest.Create(uri) request.Method = WebRequestMethods.Http.Get Dim response As HttpWebResponse = request.GetResponse() Dim reader As New StreamReader(response.GetResponseStream()) Dim tmp As String = reader.ReadToEnd() response.Close() End If
Il ne te reste qu'a recuperer la chaine de réponse "tmp" et de faire :
Code:

1 2 email.Body =tmp
Voilà le tour est joué.

14/06/2011, 15h00
dev31

Merci bien pour ta réponse.

je venais de faire quelque chose de similaire. J'ai testé ta solution, ça fonctionne très bien aussi.

Le souci maintenant, c'est que mes variables dans la page mail.aspx.vb ne se chargent pas car elles sont mises dans l'évènement page_load.

Sauriez-vous quel évènement dois-je utiliser pour que cela fonctionne ?
14/06/2011, 15h42
sou_rif

Si tu passe correctement tes variables en session ou dans l'url etc .... ca doit fonctionner :D

Par contre juste comme ça c'est un peu difficile de voir ou ca bloque ....

Si tu montre un peu de code ca peut résoudre le souci
14/06/2011, 16h31
dev31

Au temps pour moi, j'avais fait une petite erreur dans mes tests :aie:

Donc cela fonctionne bien.

Mais par contre, un problème subsiste. Dans ma page aspx, j'ai une image :

Code:

<asp:Image ID="img_debut" runat="server" ImageUrl="/img/debut.jpg"/>

Or je voudrais qu'elle apparaisse dans le mail mais pour l'instant, ce n'est pas le cas.

j'ai joint l'image comme ceci à l'email.

Code:

mail.Attachments.Add(New Attachment(Server.MapPath("img") & "\" & "debut.jpg"))

Quel chemin dois-je mettre dans la balise image ou comment dois-je m'y prendre svp ?

Merci d'avance

MailAttachment sert à mettre des pièces jointes pas à mettre l'image à l'intérieur du mail ;)

Voilà comment procéder :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
using System.Net.Mail;
 
string htmlBody = "<html><body><h1>Picture</h1><br><img src=\"cid:Pic1\"></body></html>";
AlternateView avHtml = AlternateView.CreateAlternateViewFromString
    (htmlBody, null, MediaTypeNames.Text.Html);
 
// Create a LinkedResource object for each embedded image
LinkedResource pic1 = new LinkedResource("pic.jpg", MediaTypeNames.Image.Jpeg);
pic1.ContentId = "Pic1";
avHtml.LinkedResources.Add(pic1);
 
 
// Add the alternate views instead of using MailMessage.Body
MailMessage m = new MailMessage();
m.AlternateViews.Add(avHtml);
 
// Address and send the message
m.From = new MailAddress("rizwan@dotnetplayer.com", "Rizwan Qureshi");
m.To.Add(new MailAddress("shayan@dotnetplayer.com", "Shayan Qureshi"));
m.Subject = "A picture using alternate views";
SmtpClient client = new SmtpClient("smtp.dotnetplayer.com");
client.Send(m);

Bon courage

merci, l'ajout d'image fonctionne très bien :)

juste une petite question sur ça, peut-on donner un nom à l'image car dans le mail, son nom est "noname" en pièce jointe. J'ai essayé de mettre un id comme ça mais sans succès :

Code:

Dim avHtml As AlternateView = AlternateView.CreateAlternateViewFromString("<img id=test src=cid:test>", Nothing, "text/html")

enfin au pire, ce n'est pas très grave, ce qui me dérange plus, c'est que j'ai une erreur que je n'avais pas avant, je ne sais pas trop pourquoi.

L'erreur 500 apparaît à cette ligne en mode debug :

Code:

Dim response As HttpWebResponse = request.GetResponse()

Apparemment, cela vient soit du code soit du serveur. Or ça fonctionnait bien avant, alors je suppose que ça vient de mon code mais je ne vois pas où elle pourrait se situer.

En ce qui concerne mon code, j'ai une fonction mail qui appelle une fonction page qui me renvoie la page souhaitée, en l'occurence mail.aspx.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Function mail() As Boolean Dim email As New MailMessage() Dim Adr As New MailAddress("destinataire@orange.fr") Dim client As New SmtpClient Dim mail As String = "expediteur@orange.fr" Dim avHtml As AlternateView = AlternateView.CreateAlternateViewFromString("<img src=cid:test>" & page(), Nothing, "text/html") Dim test As LinkedResource = New LinkedResource(Server.MapPath("img") & "\" & "test.jpg") test.ContentId = "test" avHtml.LinkedResources.Add(test) email.AlternateViews.Add(avHtml) client.Host = "smtp.orange.fr" email.From = Adr email.To.Add(mail) email.Subject = "sujet" email.IsBodyHtml = True connexion.Close() client.Send(email) End Function
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function page() Dim tmp as String = "" Dim uri as New Uri("http://www.microsoft.com/default.aspx") If(uri.Scheme == uri.UriSchemeHttp) Then Dim request as HttpWebRequest = HttpWebRequest.Create(uri) request.Method = WebRequestMethods.Http.Get Dim response As HttpWebResponse = request.GetResponse() Dim reader As New StreamReader(response.GetResponseStream()) Dim tmp As String = reader.ReadToEnd() response.Close() End If Return tmp End Function
Pouvez vous m'aiguiller svp ?

Je t'avoue je connait pas bien VB.Net.
Par contre il me semble qu'il te manque un type de retour et dans ton cas c'est As String a ta fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function page() As String
  Dim tmp as String = "" 
  Dim uri as New Uri("http://www.microsoft.com/default.aspx")
  If(uri.Scheme == uri.UriSchemeHttp) Then
    Dim request as HttpWebRequest = HttpWebRequest.Create(uri)
    request.Method = WebRequestMethods.Http.Get
    Dim response As HttpWebResponse = request.GetResponse()
    Dim reader As New StreamReader(response.GetResponseStream())
    Dim tmp As String = reader.ReadToEnd()
    response.Close()
  End If
  Return tmp
End Function

15/06/2011, 12h26
dev31

ah oui merci, mais c'est juste un oubli dans la recopie du code, il est bien dans mon code source ;)

Pas d'idée sur l'origine de l'erreur ?
15/06/2011, 13h33
sou_rif

Peut-etre que l'url que tu utilise n'est pas bonne !!

Pour test : essaye de prendre l'url que tu utilise dans ta fonction "page() " et utilise toi un Navigateur directement histoire de tester si l'url que tu utilise est bonne !!! Je pense que l'erreur vient de là ....

Pour moi je vois d'autre raisons ....

Bon courage
15/06/2011, 14h27
dev31

haa merci bien ! tu m'as aidé à trouver mon erreur.. C'est bête, j'avais modifié des données dans ma page aspx et j'avais une erreur dedans ! J'avais regardé partout sauf là -_-

Merci pour toute l'aide que tu m'as apporté ;)
15/06/2011, 14h37
sou_rif

N'oublie pas de passer le post à :resolu:

A+