For all the ones who wants to create a email link from within the database, hers's how you do it.
It works for plain text and also HTML text in Outlook. But the only problem I ran into was the output into Outlook. It was producing a single line of text with no returns, and vbcrlf and
just was not working.
I did not want to auto generate from the Table Event view, because I needed to control how the email was being sent. So I created a link from within the ASP database that would send the indivual records. This information is posted in the ..... list.asp page. Whatever name you use in your database for the link i.e., that's where this info will replace that text which was generate when you build your database.
So after a long long week of crying and praying and bearing my soul to customer support I finally got it to work. I had to use [color=#FF0000]+"%0D%0A" in the place of the other tags and it works perfect.
And for all of you who have had the same problems, I am glad to share the results with you.
Thanks to Sergey for all the hard work and patient he has with me.
<%
if IsBinaryField(rs.Fields("emailto")) or Format("emailto")=FORMAT_DATABASE_FILE then
Response.Write CreateImageControl(rs, "emailto", "")
strData = GetData(rs.Fields("emailto"), "HTML") ("cust_email", "cc_manager_email", "cost_center_tkt", "cc_manager_tkt", "first_name_cust", "last_name_cust", "service_issue","service_tkt_status")
else
Response.write "<a href=""mailto:" & GetData(rs.Fields("emailto"),"")& "&cc=" & GetData(rs.Fields("email_cust"), "")& "," &GetData(rs.Fields("cc_manager_email"), "") & "?subject=Service Ticket # " & GetData(rs.Fields("tktid"), "") & "&body=This ticket may be charged to your cost center. Cost Center manager please reply to this email for your approval". +"%0D%0A"+"%0D%0A" &
"Customer: "&GetData(rs.Fields("first_name_cust"), "")& " " &GetData(rs.Fields("last_namecust"), "")+"%0D%0A" +"%0D%0A" &
"Cost Center Manager: "& GetData(rs.Fields("cc_managertkt"), "")+"%0D%0A" +"%0D%0A" &
"Cost Center: "& GetData(rs.Fields("cost_centertkt"), "")+"%0D%0A" +"%0D%0A" &
"Service Issue: "& GetData(rs.Fields("serviceissue"), "")+"%0D%0A" +"%0D%0A" &
"Service Ticket Status:" & GetData(rs.Fields("service_tkt_status"), "")& """>Click to send record info!</a>"
end if
%>
