Hej igen!

Hade ett problem för några dagar sedan om att jag inte kunde skicka ett formulär till epost. Tror mig vet att det beror på att jag har använt FrontPage formulärguide och då står det i hjälpen att det kan bli problem om inte frontpagetillägg för detta är installerat på servern.

Finns det någon vänlig själ i detta avlånga land som kan ge mig några trix om hur man kan kringå frontpage guiden. När jag trycker på en knapp vill jag att formuläret ska skickas till min epostadress.

Tack på förhand
/Jessica

Hej!

Jag har ett litet script i min gästbok som skickar mail till mig när den har uppdaterats.

<code>
<%
set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "david@purjo.com"
objMail.From = mail
objMail.Subject = "Nytt inlägg i din Gästbok"
objMail.Body = "Namn: " & name & chr(13) & "Inlägg: " & comments & chr(13) & "IP: " & ip
objMail.Send
set objMail = Nothing
%>
</code>

Exakt vad alla rader gör vet jag inte riktigt men mailet som jag får innehåller iaf variablerna "name", "comments" och "ip" som är hämtade från ett formulär på inmatningssidan. Sidan ligger på en Win2k-server och funkar perfa!

/ David

Vil du skicka ett E-Mail formaterat i html som innehåller ett formulär (<FORM></FORM>)?

Typ Bekräfta följande order. Eller nåt sånt?

Tanken är att man ska fylla i ett formulär på en hemsida, typ namn, adress och telefonnr. Sen ska datan gå till en mailadress. Det är inte så att man kan spara ner det som har skrivits i forumläret till en text-fil och sen skicka textfilen till mailadressen?

/Jessica

<code>
'ta emot informationen för formuläret
Dim strNamn 'as String
Dim strAdress 'as String
Dim strTel 'as String
Dim body 'as String

strNamn = Request.Form("namn")
strAdress = Request.Form("adress")
strTel = Request.Form("tel")

'felhantering. Kolla så att värdena innehåller något
if len(strNamn) = 0 OR Len(strAdress) = 0 OR Len(strTel) = 0
response.redirect("erroPage.asp")
else

'CDONTS.Newmail kod
Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.From = "someAdress@foretag.se"
oMail.To = "anotherAdress@foretag.se"
oMail.Subject = "Ett ämne på mailet."

body = "Namn: " & strNamn & vbcrlf &_
"Adress: " & strAdress & vbcrlf &_
"Tel: " & strTel

oMail.Body = Body
oMail.Send

'JMail kod
Set JMail = Server.CreateObject ("JMail.SMTPMail")
JMail.ServerAddress = "mail.domain.com"
JMail.Sender = "someAdress@foretag.se"
JMail.AddRecipient "anotherAdress@foretag.se"
JMail.Subject = "Ett ämne på mailet."

body = "Namn: " & strNamn & vbcrlf &_
"Adress: " & strAdress & vbcrlf &_
"Tel: " & strTel

Jmail.body = body
JMail.Execute

end if




Hoppas detta hjälper

/Putte
</code>