webForumDet fria alternativet

JMail funktion

ASP

1 svar · 175 visningar · startad av Webbie

Medlem sedan jan. 20021 inlägg
Frågan#1

Kan någon ge ett fullständigt kontaktformulär till mig som använder sig av JMail komponenten?
Alltså där man fyller i, tills det skickas iväg och möjligtvis komma till en tacksida..?

------------------
<mailto=robert.lengberg@telia.com>Skicka E-post</email>
Besök www.friserverplads.dk/webbie

Medlem sedan okt. 2001387 inlägg
#2

Direkt från mitt webhotell:

Först behövs en formulär sida som skicka samlar in informationen vi vill skicka. Vi kallar sidan för CollectForm.asp.

<html>
<head>
<title>Formulär sidan</title>
</head>
<body>
<form method="post" action="JMailForm.asp">
Fyll i detta formulär och klicka på skicka-knappen. Vi kommer att besvara er så snart vi kan.
<br><br>
Namn<br>
<input type="text" size="25" name="name"><br>
E-post adress<br>
<input type="text" size="25" name="email"><br>
Mottagarens E-post adress<br>
<input type="text" size="25" name="recipient"><br>
Uppge ert ärende<br>
<select name="subject" size="1">
<option value="help">Hjälp
<option value="tips">Tips
<option value="other">Övrigt
</select><br>
Fyll i er fråga<br>
<textarea name="body" cols="40" rows="15" wrap="physical"></textarea><br>
<input type="submit" value="Skicka">
</form>
</body>
</html>

Därefter behöver vi läsa in informationen som uppgavs i formuläret. Så vi skapar en sida med det ändamålet. Sidan får namnet JMailForm.asp.

<%@LANGUAGE = VBSCRIPT%>
<html>
<body>
<%
' Lagrar informationen i variabler
name = Request.Form("name")
senderEmail = Request.Form("email")
subject = "Angående " & Request.Form("subject")
recipient = Request.Form("recipient")
body = Request.Form("body")

' Skapar en koppling till JMail
set msg = Server.CreateOBject( "JMail.Message" )

' Ställ in logging som true så är det enklare att spåra eventuella fel
' Och ställ in silent som tru så att vi själva kan hantera felmeddelandena
msg.Logging = true
msg.silent = true

' Läser in avsändar informationen
msg.From = senderEmail
msg.FromName = name

' Notera att addReciptient är en metod och inte en
' egenskap, så vi använder inte ett lika-med (=) tecken
msg.AddRecipient recipient

' Meddelandets ämne
msg.Subject = subject

' Och texten i meddelandet
msg.body = body

' Till sist skickar vi meddelandet, med den inlagda e-post servern
if not msg.Send("mail.mindoman.se" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Meddelandet skickades!"
end if

' Och så var klara! Meddelandet ligger nu i er Inkorg om allt gick rätt till.

%>
</body>
</html>

250 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
124 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)