mail sender i J.mail
jeg har oprettet en mail sender i j.mail - men....når jeg får min mail fra formularen kan jeg ikke besvar den med den mail jeg har modtaget med. men kan det skyldes at afsenderens mailserver ikke har haft noget med det at gøre eller hvordan? www.poletter.dk/mail.asp formularen ser således ud:
<%if Request.QueryString("page") = "" then%>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0
'Her bliver variabler til inputene fra formen defineret
Dim strNavn, strAdresse, strPostnr, strBy, strTlf, strEmail, strForsendelse, strVarer
'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede
'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen
'og skriver en lille response på skærmen til brugeren.
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
' Følgende linier henter dataen fra form-mailen.
strNavn = Trim(Request.Form("navn"))
strAdresse = Trim(Request.Form("adresse"))
strPostnr = Trim(Request.Form("postnr"))
strBy = Trim(Request.Form("by"))
strTlf = Trim(Request.Form("tlf"))
strEmail = Trim(Request.Form("email"))
strForsendelse = Trim(Request.Form("forsendelse"))
strVarer = Trim(Request.Form("varer"))
'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail),
'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.)
JMail.ServerAddress = "pop.poletter.dk"
JMail.sender = "" & StrEmail & ""
JMail.subject = "bestilling fra " & StrNavn & ""
JMail.AddRecipient "askov@poletter.dk"
JMail.AddRecipientCC ""
JMail.AddRecipientBCC ""
'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"
JMail.Body = "Bestilling fra: " & VbCrLf & VbCrLf
JMail.Body = JMail.Body & "Navn: " & strNavn & VbCrLf
JMail.Body = JMail.Body & "Adresse: " & strAdresse & VbCrLf
JMail.Body = JMail.Body & "Postnr/by: " & strPostnr & strBy & VbCrLf
JMail.Body = JMail.Body & "Telefon: " & strTlf & VbCrLf
JMail.Body = JMail.Body & "Email: " & strEmail & VbCrLf
JMail.Body = JMail.Body & "Forsendelse: " & strForsendelse & VbCrLf
JMail.Body = JMail.Body & "Varer: " & strVarer & VbCrLf
JMail.Body = JMail.Body & "" & strCv
'Her bliver form-mailens prioritet bestemt
' 1 - højeste (Haster / Vigtigt)
' 3 - normal
' 5 - lavest
JMail.Priority = 1
JMail.Execute
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
</head>
<body topmargin="5" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" background="../images/bg-frame.jpg" style="background-attachment: fixed">
<p><font face="Tahoma" size="2"><b>··· Bestilling</b></font></p>
<center><b><font size="2" face="Tahoma">
Din mail er sendt, tak!
</font></b></center>
<%else%>
<html>
<head>
<title>Ny side 1</title>
</head>
<body topmargin="5" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" background="../images/bg-frame.jpg" style="background-attachment: fixed">
<p><font face="Tahoma" size="2"><b>··· Bestilling</b></font></p>
<form method="POST" action="mail.asp" onsubmit="return validate(this)">
<div align="center">
<table border="0" width="300" cellspacing="0" cellpadding="0" id="table1">
<tr>
<td width="100" height="25"><font size="2" face="Tahoma">Navn:</font></td>
<td height="25">
<input type="text" name="navn" size="27" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></td>
</tr>
<tr>
<td width="100" height="25"><font size="2" face="Tahoma">Adresse:</font></td>
<td height="25">
<input type="text" name="adresse" size="27" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></td>
</tr>
<tr>
<td width="100" height="25"><font size="2" face="Tahoma">Postnr. & By:</font></td>
<td height="25">
<table border="0" width="100%" height="100%" id="table2" cellspacing="0" cellpadding="0">
<tr>
<td width="75">
<input type="text" name="postnr" size="8" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></td>
<td>
<input type="text" name="by" size="15" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100" height="25"><font size="2" face="Tahoma">Telefonnr.:</font></td>
<td height="25">
<input type="text" name="tlf" size="10" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></td>
</tr>
<tr>
<td width="100" height="25"><font size="2" face="Tahoma">E-mail:</font></td>
<td height="25">
<input type="text" name="email" size="27" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></td>
</tr>
<tr>
<td width="100" height="25"><font size="2" face="Tahoma">Forsendelse:</font></td>
<td height="25">
<select style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt" name="forsendelse" size="1">
<option selected>Pakke</option>
<option>Brev</option>
<option>Rekommanderet</option>
</select></td>
</tr>
<tr>
<td width="100" valign="top" height="25">
<font size="2" face="Tahoma">Polet/varenr.:</font></td>
<td height="25">
<textarea rows="7" name="varer" cols="28" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></textarea></td>
</tr>
<tr>
<td height="35" colspan="2">
<p align="center">
<input type="reset" value="Slet felter" name="B2" style="border: 1px solid #808080; background-color: #666666; font-family:Tahoma; font-size:8pt; color:#FFFFFF">
<input type="submit" value="Accepter bestillingen..." name="B1" style="border: 1px solid #808080; background-color: #666666; font-family:Tahoma; font-size:8pt; color:#FFFFFF; font-weight:bold"></td>
</tr>
</table>
</div>
</form>
<%end if%>
</body>
</html>
<%end if%>
