14. februar 2004 - 20:51Der er
15 kommentarer og 1 løsning
Jmail asp form
På mit webhotel kan man anvende Jmail bl.a. til at sende mail til webmester (formular)
Er det muligt at få kodeeksempler på sådan en formular, eks. kunne den indeholde følgende:
Felt til senders mailadresse Felt til Overskrift Felt til senders fornavn og efternavn Felt til senders adresse (gade/nr) Felt til senders postnr. og by Textfelt til sendar at skrive i (Besked/forklaring)
PS. I koden skal man vel implementere modtag-mail-adresse
Her er et eks, du skal selv lige tilføje den mail adresse som skal modtage mailen i denne linje: JMail.AddRecipient "DIN EAMIL ADRESSE"
og den mail server mailen skal sendes igennem: JMail.ServerAddress = "tele.dk"
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then email = Request.Form("email") Overskrift = Request.Form("overskrift") fornavn = Request.Form("fornavn") efternavn = Request.Form("efternavn") Adresse = Request.Form("adresse") Postnummer = Request.Form("postnummer") By = Request.Form("by") besked = Request.Form("besked")
body = "Hej " & vbCrLf body = body & "Navn : " & fornavn & " " & efternavn & vbCrLf body = body & "Email : " & email & vbCrLf body = body & "Adresse : " & Adresse & vbCrLf body = body & "Postnummer : " & Postnummer & vbCrLf body = body & "By : " & by & vbCrLf body = body & "Beksed: " & vbCrLf & besked & vbCrLf & vbCrLf body = body & "Mvh. Din side"
Set JMail = Server.CreateObject("JMail.SMTPMail") 'Angiv mail server adresse som mailen sksl sendes igennem JMail.ServerAddress = "tele.dk" JMail.Sender = email JMail.Subject = Overskrift JMail.AddRecipient "DIN EAMIL ADRESSE" JMail.Body = body JMail.Execute Set JMail = Nothing
Response.Redirect(Request.ServerVariables("SCRIPT_NAME")&"?cmd=tak") end if %>
<HTML> <HEAD><TITLE>Untitled Document</TITLE></HEAD> <BODY> <% if Request.QueryString("cmd") = "tak" then %> Tak for din mail. <% else %> <form method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME")%>"> <table> <tr><td>Fornavn:</td><td><input type="text" name="fornavn"></td></tr> <tr><td>Efternavn:</td><td><input type="text" name="efternavn"></td></tr> <tr><td>Adresse:</td><td><input type="text" name="adresse"></td></tr> <tr><td>By:</td><td><input type="text" name="by"></td></tr> <tr><td>Postnummer:</td><td><input type="text" name="postnummer"></td></tr> <tr><td>Email:</td><td><input type="text" name="email"></td></tr> <tr><td>Besked:</td><td><textarea name="besekd" cols="20" rows="6"></textarea></td></tr> <tr><td></td><td><input type="submit" name="Send" value="Send"></td></tr> </table>
Det betyder som regel at enten Server adressen er forkert eller en mail adresse er forkert. Det gælder både den man sender til og den som står som afsender. Så prøv at tjekke dem.
Der er en anden J'mail form på webbet som virker, den sender. Jeg kan bare ikke finde ud af hvordan den kan forbedres, så jeg må gå ud fra at det er noget med koden :(
Formen som virker er noget rod (synes jeg:), som jeg ikke kan finde ud af at lave om på. Du ku måske hjælpe mig at lave om på den:
<% Function MailOK(Streng) Dim myReg Set myReg = New RegExp myReg.IgnoreCase = True myReg.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}$" MailOK = myReg.Test(Streng) End Function %>
Nu ved jeg ikke hvad der går galt, jeg går ud fra at "modtager adressen" skal ligge i koden og at den som sender mail fra hjemmesiden ikke blir informeret om "modtager adressen" Ved ikke om det er noget rod ;)
Dette er modtager adressen, så det ligger fast i koden og den som sender kan ikke se hvem mailen sendes til. JMail.AddRecipientEx "kk@da.dk", "Fra hjemmesiden"
Dette er den som kommer til at stå som afsender i mail programet: JMail.Sender = Request.Form("email")
Det ikke noget rod, det meget normalt for mail form de virker på den måde :) Spørgsmål er hvem skal stå som afsender af mail, om det skal være en fast JMail.Sender = "kk@da.dk" eller det skal være den adresse som tastes ind i formen
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.