11. september 2004 - 10:02Der er
10 kommentarer og 1 løsning
maile indhold af formular med aspmail
jeg har et website hos wannafind og de bruger aspmail. jeg vil gerne ha nogle personer til at udfylde en formular og trykke på en submitknap der så fyrer en mail af til mig???
<% if request.servervariables("REQUEST_METHOD") "POST" then
Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Dit navn" Mailer.FromAddress= "afsender@domæne.dk" 'RemoteHost skal du indtaste Mailer.RemoteHost = "mail.domæne.dk"
sbody = "Hej der er mail til dig:" & vbCrLf sbody = sbody & Request.Form("navn") & " har skrevet dette: " & vbCrLf sbody = sbody & Request.Form("MsgBody") Mailer.BodyText = sbody
' Send e-mail og skriv status if Mailer.SendMail then Response.Write "Mailen er afsendt..." else Response.Write "Der skete en fejl: " & Mailer.Response end if
Eagleeye - kan man udvide den form med flere felter såsom fornavn - efternavn adresse osv.d.v.s jeg har ikke brug for et testfelt kun inputfelter.kan man bare tilføje nogle flere sbody i aspkoden??
Ja du kan udvide til alle de felter du har lyst til.
Hvis du har koden i samme fil bruges request.servervariables("SCRIPT_NAME") bare til automatisk at indsætte filnavnet. Hvis din fil hedder sendmail.asp kan du skrive sådan her i stedet for. action="sendmail.asp"
Det du skal havde rette er denne linje: Mailer.RemoteHost = "mail.domæne.dk"
Du har sikkert modtaget en mail fra din udbyder hvori der står hvilken mail server mails skal sendes igennem, eller så kig på deres support sider.
eagleeye - jeg har nu lavet to filer - en formularder ser sådan ud: <HTML> <HEAD> <TITLE>Afsend mail</TITLE> </HEAD> <BODY> <FORM ACTION="sendmail.asp" method="post"> Navn: <input type="text" name="navn" size="60" align="right"><br> Besked: <textarea wrap="off" name="MsgBody"></textarea> <br> <input type="submit" value="Send mail"> </FORM> </BODY> </HTML> samt en sendmail.asp der ser sådan ud
<%
Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "søren schou" Mailer.FromAddress= "vigbil@privat.dk" 'RemoteHost skal du indtaste Mailer.RemoteHost = "mail.wannafind.dk"
sbody = "Hej der er mail til dig:" & vbCrLf sbody = sbody & Request.Form("navn") & " har skrevet dette: " & vbCrLf sbody = sbody & Request.Form("MsgBody") Mailer.BodyText = sbody
' Send e-mail og skriv status if Mailer.SendMail then Response.Write "Mailen er afsendt..." else Response.Write "Der skete en fejl: " & Mailer.Response end if
' Fjern objekt igen Set Mailer = Nothing
end if %> men jeg får en fejl - siden kan ikke vises??
dr chaos det virker ikke alligevel - jeg kan ikke få indholdet fra formular med - laver lige et nyt spm.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
