Säg att jag har en sida på adressen https://www.bla.se/data.aspx?id=3. När jag skall skicka ut ett nyhetsbrev så vill jag att det är den sidan som visas MailMessage.Body. Hur gör jag då?
sida i epost
9 svar · 381 visningar · startad av Dino
Brimba har försökt med det i följande tråd, tror det lyckades till slut. http://www.webforum.nu/showthread.php?s=&forumid=29&threadid=80429
Ok, har testat den sista koden du postade i den tråden, men får felmeddelandet
Undantagsinformation: System.Net.WebException: Försökte utföra för många automatiska omdirigeringar.
...
Rad 76: Dim res As System.Net.WebResponse = req.GetResponse()
:q
red// Testade med https://www.aftonbladet.se och då funkade det. Konstigt. Jaja, får kolla mer på det imorgon. :)
Fortfarande samma felmeddelande som ovan. Någon som ser/vet vad det beror på?
Dim req As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create("http://localhost/BookStore/complete_order.aspx?ordID=12"), System.Net.HttpWebRequest)
Dim res As System.Net.WebResponse = req.GetResponse()
Dim reader As New System.IO.StreamReader(res.GetResponseStream(), System.Text.Encoding.GetEncoding("iso-8859-1"))
Dim page As String = reader.ReadToEnd()
reader.Close()
Du skickar inte mail från den sidan du vill hämta mailet i från? Det kan nog ställa till problem.
Nä, det är två åtskilda sidor. Processen är nu:
1. Spara in ny order i databasen och retunera order id:t.
2. Skapa ny HttpWebRequest osv (koden ovan) med det retunerade order id:t i "complete_order.aspx?ordID=orderID"
3. Skicka eposten
Ok, det krävs ingen form av authentisering när man ska komma åt complete_order.aspx?
Den enda kollen som görs är med Request.Params("ordID") för att se om "ordID" finns i urlen. Och det gör den.
Testade även med "http://www.asp.net/webmatrix/default.aspx?tabIndex=4&tabId=46" i WebRequest.Create och det funkar fint det med. Börjar bli lite frustrerad.
Här är koden i complete_order:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Request.Params("ordID") <> Nothing Then
If Not IsPostBack Then
binddata(Request.Params("ordID"))
End If
Else
Response.Redirect("default.aspx")
End If
End Sub
Sub binddata(ByVal ordID As String)
Dim objCustomer_accountBL As New customer_accountBL()
repOrderInfo.DataSource = objCustomer_accountBL.GetOrderInfo(ordID)
repOrderInfo.DataBind()
objCustomer_accountBL = nothing
End Sub
Googlat på felmeddelandet? Är dock på svenska vilket kan ställa till problem då det inte är lika många som kan ha problem med den svenska versionen.
Jo, jag har ju installerat svenska felmeddelanden. Bra ibland, men väldigt dåligt i sådana här situationer.
Testade och googla, men jag känner att jag inte får fram en bra översättning på engelska. Löser sig förhoppningsvis av sig själv. :l