envoi par mail d'une page aspx

**dev31** · 14/06/2011, 11h33

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.

**sou_rif** · 14/06/2011, 14h18

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
email.Body =tmp

Voilà le tour est joué.

**dev31** · 14/06/2011, 15h00

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 ?

**sou_rif** · 14/06/2011, 15h42

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

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

**dev31** · 14/06/2011, 16h31

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

Donc cela fonctionne bien.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

**sou_rif** · 14/06/2011, 17h27

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

Voilà comment procéder :

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
 
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

**dev31** · 15/06/2011, 11h44

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**sou_rif** · 15/06/2011, 12h16

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**dev31** · 15/06/2011, 12h26

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 ?

**sou_rif** · 15/06/2011, 13h33

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

**dev31** · 15/06/2011, 14h27

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é

**sou_rif** · 15/06/2011, 14h37

N'oublie pas de passer le post à

A+

envoi par mail d'une page aspx

ASP.NET

Discussions similaires

Partager

Partager