Hjælp til Jmail

Dit eget JMail komponent? Du mener nu nok JMail script.

Prøv med dette:

<%
Navn = Request.Form("Navn")
Nick = Request.Form("Nick")
email = Request.Form("email")
Web = Request.Form("Web")
Besked = Request.Form("Besked")

SenderEmail = "afsender@dinadresse.dk"
Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "dint.smtp.dk"
    JMail.AddRecipient "modtager@dinadresse.dk"
    JMail.Sender = SenderEmail
    JMail.Subject = "E-mail fra dinside.dk"
   
    body = "Navn: " & vbcrlf & Navn & vbcrlf & vbcrlf & "Nick: " & vbcrlf & Nick & vbcrlf & vbcrlf & "E-mail: " & vbcrlf & email & vbcrlf & vbcrlf & "Web: " & vbcrlf & Web & vbcrlf & vbcrlf & "Besked: " & vbcrlf & Besked

    JMail.Body = Body
    JMail.Priority = 3
    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    JMail.Execute
' Her angiver du den side der skal omstilles til når mailen er sendt.
    Response.Redirect "Sendt.asp"

%>

her
<html>

<head>
<title>New Page 2</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body>
<div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="97%">
  <tr>
    <td valign="top"><p align="left"><b><font face="Arial"><br>
    Ask Away<br>
    <font size="2">Stil dine spørgsmål herunder</font><br>
    </font></b><% if mode = "" then %> <% mode = request("mode") %> </p>
    <form METHOD="post" ACTION="?mode=send">
      <div align="left"><table border="0" width="100%">
        <tr>
          <td width="100%" align="center"><font size="2" face="Arial"><% end if %> <% if mode = "send" then %> <% if request.form("fra_navn") = "" OR request.form("fra_mail") ="" OR request.form("emne") ="" OR request.form("besked") ="" then
response.write("Du mangler at indtaste en oplysning")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "post.tele.dk"
JMail.Sender = Request.Form("fra_mail")
JMail.Sendername = Request.Form("fra_navn")
JMail.Subject = Request.Form("emne")
JMail.AddRecipient Request.Form("D1")
JMail.Body = Request.Form("besked")
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Silent = True
If JMail.Execute then
%> Tak for din Mail. <% Else %> Mailen
          er desværre ikke afsendt prøv igen. <% End If %> <% end if %> <% end if %> </font></td>
        </tr>
        <tr>
          <td width="100%" align="center"><font size="2" face="Arial"><div align="left"><p></font><small><font
          face="Arial">Att :</font></small> <select name="D1" size="1">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database.mdb")
Set rs = Conn.Execute("select * from kontaktmail")
Do until rs.eof
%>            <option value="<%=rs("kontaktmail")%>"><%=rs("kontaktnavn")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>          </select><font size="2" face="Arial"><br>
          <br>
          Dit Navn:<br>
          <input type="text" name="fra_navn" size="20"><br>
          Din E-mail:<br>
          <input type="text" name="fra_mail" size="20"><br>
          Emne:<br>
          <input type="text" name="emne" size="35"><br>
          Spørgsmål/kommentar:<br>
          <textarea cols="35" rows="6" name="besked"></textarea><br>
          <br>
          <input TYPE="submit" VALUE="Send E-mail"></font></td>
        </tr>
      </table>
      </div>
    </form>
    </td>
  </tr>
</table>
</center></div>
</body>
</html>

denne her er lige til at rode med

Jeg har tilpasset selve feltnavnen, men du skal selvfølgelig lige selve sørge for at tekstboksene hedder det samme på din HTML, som jeg har defineret her. Derudover skal du også rette de forskellige e-mail adresser og adressen til din SMTP server.

/peter

de personer man skal kunne sende til kan du angive i databasen = database.mdb i tabellen kontaktmail

pfp --->  hmmm den sender i det samme man klikker ind på siden lol
          altså ingen mulighed for at skrive noget :)

ups, jeg har jo ingen htm side hvor de skal indtaste :( hjælp :)

Nej det var jo også det jeg skrev at du selv skulle tilpasse din html side. Men nå det er nu ikke det store problem.

Opret en fil ved navn "kontakt.html" og indsæt følgende:
-------------------------------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form1" method="post" action="Send.asp">
  <p> Navn:<br>
    <input name="Navn" type="text" id="Navn">
  </p>
  <p> Nick:<br>
    <input name="Nick" type="text" id="Nick">
  </p>
  <p> E-mail:<br>
    <input name="Email" type="text" id="Email">
  </p>
  <p> Web:<br>
    <input name="Web" type="text" id="Web">
  </p>
  <p>Besked:<br>
    <textarea name="Besked" id="Besked"></textarea>
  </p>
  <p>
    <input type="submit" name="Submit" value="Send besked">
  </p>
  </form>
</body>
</html>


Opret nu en fil ved navn "send.asp" og indsæt følgende:
-----------------------------------------------------------
<%
Navn = Request.Form("Navn")
Nick = Request.Form("Nick")
email = Request.Form("email")
Web = Request.Form("Web")
Besked = Request.Form("Besked")

SenderEmail = "afsender@dinadresse.dk"
Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "dint.smtp.dk"
    JMail.AddRecipient "modtager@dinadresse.dk"
    JMail.Sender = SenderEmail
    JMail.Subject = "E-mail fra dinside.dk"
   
    body = "Navn: " & vbcrlf & Navn & vbcrlf & vbcrlf & "Nick: " & vbcrlf & Nick & vbcrlf & vbcrlf & "E-mail: " & vbcrlf & email & vbcrlf & vbcrlf & "Web: " & vbcrlf & Web & vbcrlf & vbcrlf & "Besked: " & vbcrlf & Besked

    JMail.Body = Body
    JMail.Priority = 3
    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    JMail.Execute
' Her angiver du den side der skal omstilles til når mailen er sendt.
    Response.Redirect "Sendt.asp"

%>

Og til allersidst opretter du en fil der hedder "sendt.asp" og indsætter følgende:

<%
Response.Write "Hej. Din mail blev sendt " & Now()
%>

Så skulle det hele meget gerne være i orden.

Jeps jeg fandt ud af det :-)

Jeg checker lige no_doubts metode :)

no_doubts det er desværre bare med access, som ikke er nødvendigt, for det skal bare være simpelt :)

pfp----> er det muligt at indsætte et upload felt, eller er det umuligt ?

Nå men skip det med upload :-)

Hvis du kunne hjælpe mig med en anden ting ?
Hvordan tvinger man man en bruger til at taste sine email, altså de ikke kan sende før f.eks navn, email, besked er blevet udfyldt, og kan man evt. logge IP på den der sender ?