MailForm (Jmail) som sender dato med på mailen.

i dette eksempel hedder filen der sender mailen "sendmail.asp":

<form name="mailform" action="sendmail.asp" method="post">
navn: <input type="text" name="navn">
<br>
email: <input type="text" name="emailadresse">
<br>
emne: <input type="text" name="emne">
<br>
besked: <textarea name="besked"></textarea>
</form>

<%

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = request.form("emailadresse")
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
' Jmail.AddRecipientCC "andenmodtager@email.adr" ' ikke nødvendig
' Jmail.AddRecipientBCC "skjultmodtager@email.adr" ' ikke nødvendig
JMail.Subject = "Dette er emne linien.."
JMail.Body = request.form("besked") & vbCrLf & vbCrLf & date & " - " & time
JMail.Execute
Set JMail = Nothing
%>

/theSurfer.

dammit... jeg var lidt for hurtig..

rettelser:

JMail.ServerAddress = "DIN_Mail_server.dk"

JMail.Subject = "Dette er emne linien.."  > JMail.Subject = request.form("emne")

JMail.AddRecipientEx "modtager@email.adr" > JMail.AddRecipientEx "DIN_email@adresse.dk"

thesurfer:
Mangler der ikke noget? der kommer ikke noget dato på den mail.

Mangler der ikke noget til at fortælle den hvilken dato der er når bruger skriver denne besked?

..og det ville nok være klogt at bruge Server.HTMLEncode(request.form("felt-navn")) så man fjern "programmering"..

date & " - " & time  <-- burde skrive nuværende dato og tid

det her kode

<% response.write "testing..." & vbCrLf & vbCrLf & date & " - " & time %>

gave dette resultat:

testing... 8/29/02 - 18:51:26

hmm..

erstat:
vbcrlf & vbcrlf

med:

"<br><br>"

Du have rettet noget på dette første script.

Hvordan bliver det kompelt?

skal jeg skrive det igen? som det skal være?

Ja det vil være dejligt.

Kan man ikke få den til at skrive 29/8/02 - 18:51:26 ?

som standard skrive den på den engelske måde

man skal bare skrive Session.LCID = 1010 (tror jeg nok.. kigger på det lige om lidt)..

Okay skriver du lige hele scriptet som det skal være og med dette med dato, sådan det kommer til at stå ordrenlig.

..er i gang..

Det lyder godt.

Denne fil hedde "kontakt.asp":


<form name="mailform" action="sendmail.asp" method="post">
navn: <input type="text" name="navn">
<br>
email: <input type="text" name="email">
<br>
emne: <input type="text" name="emne">
<br>
besked: <textarea name="besked"></textarea>
</form>



Denne fil hedder "sendmail.asp":

<%

strNavn = Server.HTMLEncode(request.form("navn"))
strEmail = Server.HTMLEncode(request.form("email"))
strEmne = Server.HTMLEncode(request.form("emne"))
strBesked = Server.HTMLEncode(request.form("besked"))


Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "DIN_Mail_server.dk"
JMail.Priority = 1
JMail.Sender = strEmail
JMail.AddRecipientEx "DIN_EMAIL.DK", "DIT NAVN"
' Jmail.AddRecipientCC "andenmodtager@email.adr" ' ikke nødvendig
' Jmail.AddRecipientBCC "skjultmodtager@email.adr" ' ikke nødvendig
JMail.Subject = strEmne
JMail.Body = "Besked fra " & strNavn & ":<br><br>" & strBesked & "<br><br>" & date & " - " & time
JMail.Execute
Set JMail = Nothing
%>

det burde være det... prøv det og fortæl om det lykkes..

/theSurfer.

du behøver vist ikke denne del:

, "DIT NAVN"

i

JMail.AddRecipientEx "DIN_EMAIL.DK", "DIT NAVN"

Dette har virker ikke.

den kommer ikke med dato.

prøv:
1) lav en backup af sendmail.asp
2) at fjerne alt koden fra sendmail.asp
3) indsæt: <% response.write "testing..." & vbCrLf & vbCrLf & date & " - " & time %>
4) prøv formen igen

Det hjælper ikke noget når dette ikke kommer i den mail rbuger skal sende til mig.

det er bare en test for at se om den kan skrive datoen..

jeps det virker.

rettelse: dette skulle lave datoen "29/8/2002"..

i denne linie:

JMail.Body = "Besked fra " & strNavn & ":<br><br>" & strBesked & "<br><br>" & date & " - " & time


istedet for: date & " - " & time

skriver du:

strDato = day(now) & "/" & month(now) & "/" & year(now)
strTime = Time

strDato & " - " & strTime

hovsa..

strDato = day(now) & "/" & month(now) & "/" & year(now)
strTime = Time

skal stå sammen med de andre variable (i toppen) der starter med str..

..så ser det pænere ud :)

FEJL:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/shopping/returordre.asp, line 36

strDato = day(now) &amp; "/" &amp; month(now) &amp; "/" &amp; year(now)
-----------------------^

der skal ikke stå "&amp;" men "&"

"&amp;" er html koden for "&"

der skal ikke stå Server.HTMLEncode efter: strDato =

Tak for hjælpen makker.

Har du et ICQ nr: hehe hvis jeg måske nok har en anden opgave.

en anden opgave ? jamen, det er jo derfor Eksperten.dk blev oprettet :)


..og 200 points er lidt for meget.. jeg tror jeg tager 30 points og giver dig 170 points tilbage..

læg et svar på: http://www.eksperten.dk/spm/251913

/theSurfer.