2. ASPRunnerPro General questions
  3. How to send "VIEW" page as <body> in ASPR Email
This topic is locked

How to send "VIEW" page as <body> in ASPR Email

 		1/31/2010 2:29:42 PM
ASPRunnerPro General questions
D
 DigitalDean8 author

I have a database where I would like to auto send full HTML emails when edits are made. The idea is that I would embed the actual HTML tables from the ASPrunner VIEW pages into the email as <body> elements. i tried using just the HTML link and allowing users to just click that link and while the link is fully formed, the security structure forces them to LOGIN before looking at the view page so its very cumbersome. They click the link, have to login, then click the link in the email again so that the page will display, not very functional. If I could embed the actual page as HTML elements this all would be solved.
Any ideas on how to do that?
C
 		clig 2/1/2010



I have a database where I would like to auto send full HTML emails when edits are made. The idea is that I would embed the actual HTML tables from the ASPrunner VIEW pages into the email as <body> elements. i tried using just the HTML link and allowing users to just click that link and while the link is fully formed, the security structure forces them to LOGIN before looking at the view page so its very cumbersome. They click the link, have to login, then click the link in the email again so that the page will display, not very functional. If I could embed the actual page as HTML elements this all would be solved.
Any ideas on how to do that?


In 5.2 I create a lengthy html based code to sort of mimic the view page but this would be ultra handy if there was a function to push the view...
an idea on building the html email after making that change in asprunner include to send html - I get values of relevant tables for that transaction and create using this type of sample:

Dim dkeys

message="Description: " & Session("Description") & "<hr size=1><a href=http://server/NTSS/NTSS_Tickets_Assign_list.asp?a=search&value=1&SearchOption=Equals&SearchField=TicketNo&SearchFor="; & Session("TicketNo") & ">Unassigned Queue</a>" & "

Entered By (email): " & SESSION("UserIDEmail") & "<hr size=1>"

dkeys = dict.keys

For n = 0 To dict.Count-1

message = message & dkeys(n) & " : " & dict(dkeys(n)) & vbcrlf & "<hr size=1>"

Next

email=SESSION("EmailTeam") & ";" & SESSION("UserIDEmail") & ";" & SESSION("DistList") & ";" & Session("EmailSub") & ";" & Session("EmailSub2") & ";NTSS@server.com"

subject="NTSS - New [" & Session("Customer") & "] Referral" & " / System Type: " & Session("SYSType") & " / Customer: " & Session("Customer") & " / " & Session("Address") & " / " & Session("Addy2") & " / " & Session("Addy3") & " / " & Session("City") & " / " & Session("Province") & " / NTSS Ticket No: " & Session("TicketNo")

sendmail email, subject, message