C costodia Medlem sedan aug. 2000 864 inlägg Frågan 23 sep. 2002 21:15 #1 Jag har länge velat göra så att istället för att emailadresen sysn så får användaren klicka på en länk som går till ett form som sedan skickar till emailadressen, som t ex påhttp://www2.blocket.se/view/708391.htm http://www.blocket.se/mailform?caller=kbl_s&num=19797
Jag har läst till lektion elva i webstudios (url: http://idg.se/webstudio ) asp-skola så jag har inte kommit till databaskopplningar ännu så jag är intresserad av i princip att som denna funktion innebär.
Jag tänkte först att jag skulle söka på om det finns någon annna tråd om detta här i forumet (det brukar alltid vara någon som tagit upp det jag undrar över innan, och det kanske inte är så konstigt när wf snart har 440' inlägg :) ) men jag vet inte vad jag ska söka på och de sökningarna jag gjorde resulterade inte i något.
Jesper T Medlem sedan nov. 2001 7 144 inlägg Din server/webhotel måste för det första klara av cdonts, jmail, aspmail eller någon annan mailkomponent. Sedan så är det en baggis.
O OveRRidE Medlem sedan feb. 2001 12 078 inlägg Använd JMail om du kan, mycket stabil och enkel komponent.
C costodia Medlem sedan aug. 2000 864 inlägg mitt hotell stödjer jmail, hur är det en baggis nu?
Jesper T Medlem sedan nov. 2001 7 144 inlägg Skriv ut din annons med allt vad det innebär:
Lägg annonsörens namn och epostadress i hiddenfält på samma sida som du visar annonsen. Döp till "annons.asp"
<--- Visa annons --->
<%
Response.write "<form method=""post"" action=""skicka.asp"">"& vbcrlf &_
"<input type=""hidden"" name=""email"" value="""& RecSet("epost") &""">"& vbcrlf &_
"<input type=""hidden"" name=""annons"" value="""& RecSet("annons")&""">"& vbcrlf &_
"Ditt namn:<input type=""text"" name=""namn"" value="""">"& vbcrlf &_
"Ditt telefonnr.:<input type=""text"" name=""tel"" value="""">"& vbcrlf &_
"<input type=""submit"" value=""submit"" action=""submit"">"& vbcrlf &_
"</form><br>"& vbcrlf &_
request("tack")
%>
Döp denna sida till "skicka.asp"
<%
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient(request.form("email"))
annons=request.form("annons")
namn=request.form("namn")
tel=request.form("tel")
jmail.From = "annons@din_domän.se"
Jmail.Priority = 1
jmail.Subject = "Jag har intresse av din annons!"
jmail.appendHTML "<html><head></head><body><font face=""verdana"" size=""2"">"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "Intresseanmälan av annons
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "Tid: "& now() &"<br>"
jmail.appendHTML "Anonns: "& annons &"<br>"
jmail.appendHTML "Namn: "& namn &"<br>"
jmail.appendHTML "Tel: "& tel &"<br>"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "</font></form></body></html>"
jmail.Send( "din_smtp_server.se" )
Set jmail = nothing
tacktext = "Tack, din intresseanmälan av "& annons &", är skickad till annonsören."
Response.redirect "annons.asp?tack="& tacktext
%>
Lycka till!
C cupy Medlem sedan apr. 2002 299 inlägg Jesper T!
Jesper T Medlem sedan nov. 2001 7 144 inlägg Jag använder det inte själv med det borde väl bli ngt i stil med:
annons=request.form("annons")
namn=request.form("namn")
tel=request.form("tel")
Dim strHTML
strHTML = "<HTML>"
strHTML = strHTML & "<Head>"
strHTML = strHTML & "</Head>"
strHTML = strHTML & "<Body>"
strHTML = strHTML & "<Font faze=""Verdana""size=""2"">"
strHTML = strHTML & "------------------------------------------<br>"
strHTML = strHTML & "Intresseanmälan av annons<br>"
strHTML = strHTML & "------------------------------------------<br>"
strHTML = strHTML & "Tid: "& now() &"<br>"
strHTML = strHTML & "Anonns: "& annons &"<br>"
strHTML = strHTML & "Namn: "& namn &"<br>"
strHTML = strHTML & "Tel: "& tel &"<br>"
strHTML = strHTML & "------------------------------------------<br>"
strHTML = strHTML & "</font></Body>"
strHTML = strHTML & "<HTML>"
Set ObjSendMail = CreateObject("CDONTS.NewMail")
With ObjSendMail
.From = "mail@domän.domännamn"
.To = ""& request.form("email") &""
.BodyFormat = cdoBodyFormatHTML
.Body = strHTML
.Send
End With
Set ObjSendMail = Nothing
C costodia Medlem sedan aug. 2000 864 inlägg jag har tyvärr inte fått det att funka, däremot så tänkte jag att jag vet hur jag ska kunna loopa ut en länk till http://www.sveriges.com/kompis/mailform.asp?email= <användarens emailadress>
S solbulle Medlem sedan mars 2001 5 287 inlägg Vad var det som knasade med det första då? Är inte det ett "vackrare" sätt?
Om nu den kod som Jesper visar fungerar så är det väl bara att byta ut:
jmail.AddRecipient(request.form("email"))
Samt helt enkelt plocka bort dom överflödiga fälten/variablerna.
mot din querystring:
jmail.AddRecipient(request.querystring("email"))
C costodia Medlem sedan aug. 2000 864 inlägg tack för tipset, tyvärr blir det lite konstigt på http://sveriges.com/innovation/skicka.asp?email=martin@ebid.se som jag tänkte testa scriptet på.
